محمد العدامه قام بنشر يونيو 3, 2018 قام بنشر يونيو 3, 2018 السلام عليكم في نموذج الرئيسي المطلوب اذا وضعت الرقم المدني للزوج ...وأردت الخروج من الحقل. يتم البحث في الرقم المدني للزوج وفي نفس الوقت يتم البحث في الرقم المدني للزوجة واذا وجد الرقم موجود .. تظهر رسالة ..( سبق وتم ادخال هذه الملف )) هذا الملف الفطر.rar
Shivan Rekany قام بنشر يونيو 3, 2018 قام بنشر يونيو 3, 2018 السلام عليكم لمثل هذه المواضيع تقدر ان تستخدم دالة DCount اذا تبحث عنهستجد كثير مثالات على ذلك كنت اريد ان اعمل تعديل على مرفقك لكن هناك سؤالك غير واضح بنسبة لي هل تريد مثلا اذا كتبنا رقم 1 في الحقل رقم المدني للزوج هل تريد ان يبحث عن رقم واحد في الجدول وفي حقل رقم المدني للزوج اذا وجد رقم 1 بيظهر لك رسالة ام تريد ان يبحث في جدول في كلا الحقلين الرقم المدني للزوج والزوجة واذا وجد رقم 1 في احدى الالحقلين بيظهر لك رسالة ام ماذا تريد بالضبط لذلك عندك اختيارين اولا اذا تريد ابحث عن دالة وقم بالعمل ثانيا رد علي وساقوم بالتعديل على مرفقك مع تحياتي 1
محمد العدامه قام بنشر يونيو 3, 2018 الكاتب قام بنشر يونيو 3, 2018 بحث في جدول في كلا الحقلين الرقم المدني للزوج والزوجة واذا وجد رقم 1 في احدى الالحقلين بيظهر لك رسالة هذا الملف هذا المطلوب ..بارك الله فيكم
Shivan Rekany قام بنشر يونيو 3, 2018 قام بنشر يونيو 3, 2018 2 ساعات مضت, محمد العدامه said: بحث في جدول في كلا الحقلين الرقم المدني للزوج والزوجة واذا وجد رقم 1 في احدى الالحقلين بيظهر لك رسالة اتفضل استخدمت هذا الكود Private Sub الرقم_المدني_للزوج_BeforeUpdate(Cancel As Integer) If DCount("*", "البيانات", "[الرقم المدني للزوج]=" & Me.الرقم_المدني_للزوج) > 0 Or DCount("*", "البيانات", "[الرقم المدني للزوجة]=" & Me.الرقم_المدني_للزوجة) > 0 Then MsgBox "هذا الرقم مكرر ... رجاءا قم بتغيره" Cancel = -1 End If End Sub الفطر.rar 1
محمد العدامه قام بنشر يونيو 4, 2018 الكاتب قام بنشر يونيو 4, 2018 بارك الله فيك مشكور ما قصرت... فعلا هذا المطلوب... الف شكر ايها الاستااذ الكريم
محمد العدامه قام بنشر يونيو 4, 2018 الكاتب قام بنشر يونيو 4, 2018 بارك الله فيك مشكور ما قصرت... فعلا هذا المطلوب... الف شكر ايها الاستااذ الكريم لكن ممكن تشرح لي الكود انا مبتديء بالبرمجة
Shivan Rekany قام بنشر يونيو 4, 2018 قام بنشر يونيو 4, 2018 13 ساعات مضت, Shivan Rekany said: If هو يعني ( اذا ) اي هناك شرط 13 ساعات مضت, Shivan Rekany said: DCount يعني تعداد اي عدد اللي بين قوسين 13 ساعات مضت, Shivan Rekany said: "*" اي شيء اي يعني اي سجلات وتقدر تكتب اسم احد الحقول بدل هذه العلامة 13 ساعات مضت, Shivan Rekany said: "البيانات" في جدول البيانات 13 ساعات مضت, Shivan Rekany said: "[الرقم المدني للزوج]=" & Me.الرقم_المدني_للزوج) > 0 بشرط ان يكون حقل الرقم المدني الزوجي في الجدول البيانات بيكون يساوي مع المربع النصي باسم الرقم المدني للزوج في النموذج 13 ساعات مضت, Shivan Rekany said: > 0 بيكون اكبر من الصفر 13 ساعات مضت, Shivan Rekany said: Or او 13 ساعات مضت, Shivan Rekany said: DCount("*", "البيانات", "[الرقم المدني للزوجة]=" & Me.الرقم_المدني_للزوجة) > 0 عدد كل شي في الجدول البيانات بشرط ان يكون رقم المدني للزوجة بيكون يساوي مربع الرقم المدني في النموذج واذا كان اكبر من صفر 13 ساعات مضت, Shivan Rekany said: Then اذا حقق الشرط قم بعمل اللي بين الشرط اي بين ايف و اند ايف وهو اظهار الرسالة بيكون مكتوب هذه 13 ساعات مضت, Shivan Rekany said: MsgBox "هذا الرقم مكرر ... رجاءا قم بتغيره" الغاء يساوي سالب 1 اي الغاء يساوي ترو نعم 13 ساعات مضت, Shivan Rekany said: Cancel = -1 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.