العائد2000 قام بنشر أغسطس 23, 2003 مشاركة قام بنشر أغسطس 23, 2003 السلام عليكم ورحمة الله وبركاته هذه مشاركتي الأولى استغلها لأهنئ القائمين على المنتدى وخاصة اننا نعرف قدراتهم الكبيرة واخلاقهم العالية ليست غريبة عنا وارجو ان احظى بمساعدتكم....... لدي قاعدة بيانات للهاتف يمكن من خلالها الاتصال بالرقم ولكن اريد اذا تكرمتم التعديلات التالية اذا كان ذلك ممكنا : 1- يقوم البرنامج بتفحص وجود الموديم ويحدد البورت الخاص به مباشرة 2- اذا كان الرقم الذي سنتصل به يتبعه رقم فرعي يدخل طبعا بعد استجابة الرقم الرئيسي فهل يمكن بالكود تحقيق ذلك .. اي طلب الرقم الرئيسي وعند الاجابة يضيف الرقم الفرعي . 1 رابط هذا التعليق شارك More sharing options...
mermaid قام بنشر أغسطس 24, 2003 مشاركة قام بنشر أغسطس 24, 2003 يمكنك تحقيق ذلك عن طريق الاتى : من tool box تختار command ثم miscellaneous ثم auto dialer و هذا الزرار سوف يقوم بعمل كل ما تريده رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر أغسطس 24, 2003 مشاركة قام بنشر أغسطس 24, 2003 بالنسبة لطلب الرقم الداخلي يمكن استخدام فاصلة أو أكثر للانتظار بين الرقمين مثل فاذا كنت تطلب خط خارجي و تريد طلب رقم 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها