קוד לאקסס עבור מרכזיה טלפונית

[HUBHCBH]

מנסה לעזור לעמותה שעובדת באקסס,
יש להם מרכזית IP, על המחשב מותקנת תוכנה שמחוברת לשלוחה שנמצאת בסמוך למחשב,
ניתן לחייג ישירות מהתוכנה ע"י הקשת מספר טלפון,
כמו"כ יש תוסף בדפדפן שכל טלפון שנמצא בדף האינטרנט, נוסף לידו סמל קטן, שבלחיצה על הסמל מתקשר אוטומט מספר הטלפון.
מחפש קוד לאקסס, שיכלו להתקשר ישירות מהתוכנה.
שם התוכנה במחשב Communicator
זה קישור לתוסף של התוכנה (לא יודע בדיוק למה הוא מותקן..)
וזה קישור לתוסף שמוסיף ליד כל מספר, אפשרות להתקשר ישירות.

תודה רבה!!!!

 

[HUBHCBH]

@moishy תוכל לעזור בבקשה?

 

[moishy]

לא יהיה לי זמן לבדוק את זה לפני ראש חודש

 

[HUBHCBH]

תודה רבה

אגב, חושב שמצאתי את אתר החברה..
https://www.bicomsystems.com/

 

[HUBHCBH]

הסתדר בפורם תחומים.
התברר שצריך לעשות "כעין" קישור את הטלפון, והתוכנה מוגדרת כברירת מחדל לקישורים של טלפון.
זה הקוד

Shell "cmd /c start tel://" & [שם שדה]

או הקוד בשלמותו, שיפעל על השדה הנוכחי, בתנאי שהשדה מכיל רק ספרות או מקף אמצעי + תיקוני שגיאות אפשריים

'בדיקה האם נמצא בתוך שדה
 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