זה הקוד הסופי שלי..
מה שחסר לי, במידה והכנסתי עכשיו מספר טלפון, ועדין לא יצאתי מהשדה, כלומר התוכן עדין לא "נספג" במערכת, הוא לא נותן לחייג,
ניסתי לרשום ,
Refresh.Stel
אבל אין תגובה בכלל, גם עם בשדה יש כבר מספר טלפון,
מה אמור לרענן לי את השדה הנוכחי?
Public Function TelMe()
'בדיקה האם נמצא בתוך שדה
On Error GoTo errorhandler
Dim sTel As String
sTel = Nz(Screen.ActiveControl, "")
sTel = Replace(Nz(sTel, ""), "-", "")
If IsNumeric(sTel) Then
'הכל תקין, אפשר לחייג, רק תבדוק שרוצה לחייג
Dim strMsg As String
strMsg = "לחייג ל " & sTel & " ?"
If MsgBox(strMsg, vbMsgBoxRtlReading + vbYesNo, "יצירת שיחה") = vbYes Then
Shell "cmd /c start tel://" & sTel
End If
Else
'כנראה הוא התבלבל, הוא לא נמצא בשדה שיש רק ספרות
MsgBox "שדה לא תקין להתקשרות!", vbMsgBoxRtlReading, "יצירת שיחה"
End If
'לא נמצא בתוך שדה
errorhandler:
Select Case Err.Number
Case Is = 2474
MsgBox "לא נמצא שדה להתקשרות!", vbMsgBoxRtlReading, "יצירת שיחה"
Case Else
End Select
End Function