أيمن عبادي قام بنشر مايو 17, 2012 قام بنشر مايو 17, 2012 السلام عليكم ورحمة الله وبركاته،،، إخواني الأعضاء ......... المحترمين في المرفق توجد قائمة 1 وتتضمن عدة أرقام .... وفي النموذجlist2 أريد عند كتابة أي رقم ... وهذا الرقم غير موجود في القائمة List1 فيعطني رسالة بأن هذا الرقم لم يتم إدخاله في List1 وأتقدم لسيادتكم بجزيل الشكر والعرفان... notavailabeinlist.rar
أبو آدم قام بنشر مايو 17, 2012 قام بنشر مايو 17, 2012 إنسخ الكود التالي للنموذج Private Sub FileNo_BeforeUpdate(Cancel As Integer) On Error Resume Next Dim txtList As String txtList = DCount("[ID Number]", "List1", "[ID Number] = " & Me.FileNo) If txtList < 1 Then MsgBox " الرقم غير موجود ضمن القائمة ، التزم بالارقام الموجودة ضمن القائمة", vbCritical + vbMsgBoxRight, "تنبيه ..." Me.Undo DoCmd.CancelEvent End If End Sub
أيمن عبادي قام بنشر مايو 17, 2012 الكاتب قام بنشر مايو 17, 2012 سلمت يداك أخي أبوآدم .... جزيت الجنة (وليس للحديث بقية)
أبو آدم قام بنشر مايو 17, 2012 قام بنشر مايو 17, 2012 جزيت نعيم الجنة ليس للحديث بقية ... ولبقية الحديث بقية (تمت الاجابة)
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.