برنامج للأتصالات

نعم يوجد امكانية وهو كتابة كود بسيط ولكن لم احفظه حاليا وسأبعثه لك ان شاء الله أما عن حفظ الرقم والمدة فلا بد من برمجة الأمر عن طريق الاكسس

تحياتي

اشكرك اخى ghaziothman على اهتمامك

وفى انتظار ارسالك للكود

وهذا ايميلى **********************

وارجوا ارساله لنا ايضا ونكون لك من الشاكرين وارجوا ان تشرح لنا كيف الطريقه

***************************

وأنا أيضا وأرجوا أن ترسل الحل هنا على الموقع

تنبيه :

الرجاء الإجابه بوضع المشاركه في المنتدى وليس ارسالها الى البريد الالكتروني .

الحل هو ان تنشيء زر اتصال وتسميه

Dial

وتضع في حدث عند النقر الكود التالي

On Error GoTo Err_Dial_Click

    Dim strDialStr As String
    Dim ctlPrevCtl As Control
    Const ERR_OBJNOTEXIST = 2467
    Const ERR_OBJNOTSET = 91

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    Set ctlPrevCtl = Screen.PreviousControl

    If TypeOf ctlPrevCtl Is TextBox Then
      strDialStr = IIf(VarType(ctlPrevCtl) > V_NULL, ctlPrevCtl, "")
    ElseIf TypeOf ctlPrevCtl Is ListBox Then
      strDialStr = IIf(VarType(ctlPrevCtl) > V_NULL, ctlPrevCtl, "")
    ElseIf TypeOf ctlPrevCtl Is ComboBox Then
      strDialStr = IIf(VarType(ctlPrevCtl) > V_NULL, ctlPrevCtl, "")
    Else
      strDialStr = ""
    End If

    Application.Run "utility.wlib_AutoDial", strDialStr

Exit_Dial_Click:
    Exit Sub

Err_Dial_Click:
    If (Err = ERR_OBJNOTEXIST) Or (Err = ERR_OBJNOTSET) Then
      Resume Next
    End If
    MsgBox Err.Description
    Resume Exit_Dial_Click

مثال

db1.rar

الأخوة الأعزاء

لقد سبق وأن قلت لكم أن الأمر متاح ولكن يبدو أن بعض الأخوة مشكورين قد سبقوني

الأمر المتاح هو كالتالي

Application.Run "utility.wlib_autodial"

ولكن هذا فيما يخض الاتصال برقم ويمكن تطويره عن طريق البرمجة مثل عمل timer لمعرفة وقت الاتصال ونهايته ومن ثم مدة الاتصال لكن ماذا بخصوص المكالمات الواردة أعتقد أن الأمر يحتاج لمعرفة الأمر أكثر من ذلك

تحياتي