חיוג מאקסס

[SHL]

יש לי מסד נתונים באקסס עם מספרי טלפון ועשיתי םקודה של חיוג ע"י

DoCmd.RunCommand acCmdAutoDial

ובחודש הראשון זה עבד מצויין אבל עכשיו זה הפסיק לעבוד
והוא מראה שגיאה שהחייגן לא מותקן וכדו'
ובפועל כשאני מפעיל את החייגן דרך הפעלה-dialer
הוא עובד מצויין. מישהו יודע מה הבעייה?
וחוץ מזה האם יש למישהו קישור להורדת חייגן למחשב?
כי אולי הבעייה בחייגן אז אני רוצה להוריד חייגן חדש
בתודה מראש

 

[saryoram]

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

Private Sub פקודה0_Click()
On Error GoTo Err_פקודה0_Click

    Dim stDialStr As String
    Dim PrevCtl As Control
    Const ERR_OBJNOTEXIST = 2467
    Const ERR_OBJNOTSET = 91
    Const ERR_CANTMOVE = 2483

    Set PrevCtl = Screen.PreviousControl
    
    If TypeOf PrevCtl Is TextBox Then
      stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
    ElseIf TypeOf PrevCtl Is ListBox Then
      stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
    ElseIf TypeOf PrevCtl Is ComboBox Then
      stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
    Else
      stDialStr = ""
    End If
    
    Application.Run "utility.wlib_AutoDial", stDialStr

Exit_פקודה0_Click:
    Exit Sub

Err_פקודה0_Click:
    If (Err = ERR_OBJNOTEXIST) Or (Err = ERR_OBJNOTSET) Or (Err = ERR_CANTMOVE) Then
      Resume Next
    End If
    MsgBox Err.Description
    Resume Exit_פקודה0_Click
    
End Sub

 

[SHL]

תודה אבל זה ג"כ מראה הודעת שגיאה שלא ניתן לשת לפרוצורה וכו'
נראה לי שפשוט חסר איזה הפנייה
מישהו יודע איזה הפנייה שייכת לפקודה הזאת (חיוג)?

 

[chaim1989]

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

 

[SHL]

למה זה לא ActivX או API וכדו' אלא פקודת מאקרו (RunCoomand)(בערך)
לא נראה לי שהוא יראה שגיאה של חוסר הפנייה

 

[SHL]

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