كود تشغيل الهاتف-التليفون-السنترال(رقم الداخلي)

[العائد2000]

السلام عليكم ورحمة الله وبركاته

هذه مشاركتي الأولى استغلها لأهنئ القائمين على المنتدى وخاصة اننا نعرف قدراتهم الكبيرة واخلاقهم العالية ليست غريبة عنا وارجو ان احظى بمساعدتكم.......

لدي قاعدة بيانات للهاتف يمكن من خلالها الاتصال بالرقم ولكن اريد اذا تكرمتم التعديلات التالية اذا كان ذلك ممكنا :

1- يقوم البرنامج بتفحص وجود الموديم ويحدد البورت الخاص به مباشرة 2- اذا كان الرقم الذي سنتصل به يتبعه رقم فرعي يدخل طبعا بعد استجابة الرقم الرئيسي فهل يمكن بالكود تحقيق ذلك .. اي طلب الرقم الرئيسي وعند الاجابة يضيف الرقم الفرعي .

[mermaid]

يمكنك تحقيق ذلك عن طريق الاتى :

من tool box تختار command ثم miscellaneous ثم auto dialer و هذا الزرار سوف يقوم بعمل كل ما تريده

[محمد طاهر عرفه]

بالنسبة لطلب الرقم الداخلي

يمكن استخدام فاصلة أو أكثر للانتظار بين الرقمين

مثل فاذا كنت تطلب خط خارجي و تريد طلب رقم 888888 ثم داخلي 999

فتكتب الرقم

9,888888,999

بعد انشاء الزر بالطريقة التي ذكرها الأخ الكريم

يمكنك تعديل الكود الموجود فى الزر لادراج الرقم من قاعدة البيانات

مثلا بان يكون الرقم ظاهر فى مربع نص اسمه Tel2

فى النموذج

و تستدعي الكود هكذا

( لم أجربه ، فارجو التجربة )

مثلا اذا أردت الطلب بالنقر المذدوج علي مربع النص الذي به الرقم

Private Sub Tel2_DblClick(Cancel As Integer)

On Error GoTo Err_Phone_Click


    Dim stDialStr As String

    Dim PrevCtl As Control

    Const ERR_OBJNOTEXIST = 2467

    Const ERR_OBJNOTSET = 91


      stDialStr = Me.Tel2

      If stDialStr = "" Then

       MsgBox " No Number Choosen !!!"

       Exit Sub

      End If

   stDialStr = Predial + stDialStr

    Application.Run "utility.wlib_AutoDial", stDialStr


Exit_Phone_Click:

    Exit Sub


Err_Phone_Click:

    If (Err = ERR_OBJNOTEXIST) Or (Err = ERR_OBJNOTSET) Then

      Resume Next

    End If

    MsgBox Err.Description

    Resume Exit_Phone_Click


End Sub

و يمكنك تكوين الجملة الخاصة ب

stDialStr = Predial + stDialStr

كما تشاء

فهنا قيمة predial عادة ما تكون ثابتة و تتعين مرة واحدة للبرنامج لذا تستدعي مرة واحدة و نكون مثلا "9," فى حالة انك تطلب 9 للحصول علي الرقم

أو أن تخير المستخدم فى اضافتها أو لا فى اعدادات البرنامج

لانها ستتغير من مكان لاخر فى حالة الكمبيوتر المحمول مثلا

و بالنسبة للقيمة التي تلي الرقم يمكن تعريفها بناء علي حقل آخر فى النموذج بنفس الطريقة و اذا كان موجود نضيفها علي الجملة و مثلا اذا كان حقل Ext به قيمة

stDialStr = Predial + stDialStr+Ext

حيث يتم قبلها تعريف Ext

بانها

Ext="," & Me.Extention