عبود022

ولكن لاتنسى اليوزر نيم والباس وورد

مشكوووووور عمل جميل مشكووووور جداً

هذا كود بحث بل رقم On Error Resume Next Dim x As String x = InputBox(" أدخل رقم المراد البحث عنه ") If x = Cancel Then Exit Sub Data1.Recordset.FindFirst ("telephone = '" + x + "'") If Data1.Recordset.NoMatch Then MsgBox (" رقم " + x + " غير موجود "), , " تنبي…

MsgBox "هل تريد الخروج من البرنامج" End هذا الكود للخروج

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