ابو عبدالحميد قام بنشر أغسطس 19, 2005 قام بنشر أغسطس 19, 2005 الاخوة الافاضل السلام عليكم ورحمة الله وبركاته اواجه المشكلة التالية ولم اتوصل لحلها وهي كالتالي عندي جدول اسمه (جدول) يتكون من الحقل الاول : الاسم الثلاثي الحقل الثاني : الجنسية والحقل الثالث : الفصيلة الحقل الرابع : رقم الايصال واريد ان اضع هنا كود لعدم تكرار الرقم مع التنبيه برسالة على (ان هذا الرقم مكرر ارجو التأكد من فضلك ! ) في حقل ( رقم الايصال ) فقط وجزاكم الله خير اخوكم ابو عبدالحميد
عبد الله الثبيتي قام بنشر أغسطس 19, 2005 قام بنشر أغسطس 19, 2005 الأخ أبو عبد الحميد وضح عملية إدخال البيانات إلى الجدول هل هي عن طريق نموذج أم مباشرة إلى الجدول .
ابو عبدالحميد قام بنشر أغسطس 20, 2005 الكاتب قام بنشر أغسطس 20, 2005 شكرا اخي ثبيت عرب على المساعده و بالنسبة لعملية إدخال البيانات إلى الجدول طبعاً عن طريق النموذج وليس مباشر جزاك الله خير افيدونـــــي افادكـــم الله
عبد الله الثبيتي قام بنشر أغسطس 20, 2005 قام بنشر أغسطس 20, 2005 الأخ عبد الحميد لم توضح اسم مربع النص في النموذج والذي يتم إدخال رقم الايصال فيه ولكن لنفرض أن اسمه text1 إذاً ضع الكود التالي في حدث بعد التحديث لمربع النص Dim i i = DLookup("[رقم الايصال]", "جدول", "[رقم الايصال]=[text1] ") If i <> "" Then MsgBox "رقم الإيصال :" & "(" & i & ")" & " مسجل سابقاً ... فضلاً تأكد من عدم إدخال رقم مكرر", vbOKOnly, "تنبيه" SendKeys "{Esc}{Esc}" End If بالتوفيق ثبيت عرب
ابو عبدالحميد قام بنشر أغسطس 20, 2005 الكاتب قام بنشر أغسطس 20, 2005 بارك الله فيك اخي الكريم على مجهودك بالنسبة للكود في مشكله الله يحفطك اول شي انه رقم الايصال مكرر اللي في الكود الذي ذكرته ماني عارف ان كان اسم الحقل ام اسم النمودج ام اسم الجدول انا راح اذكر لك اسماء الحقول والنماذج والجداول وانا غيرت في اسماء الحقول والنماذج و غريتها انجليزي كالتالي : بالنسبة لأسم الجدول اسمه ( tabel1 ) واسم الحقل في عرض تصميم الجدول كان اسمه رقم الكيس وغريته إلى ( No_ks1 ) وبالنسبة النموذج اسمه ( Banku1 ) وبالنسبة اسم الحقل في النموذج وهو رقم الكيس وغيرته اصبح اسمه الآن ( No_k ) المشكله الثانيه انه بعد ما يعطي رساله تنبيه على ان الرقم مكرر يقوم بمسح المعلومات كلها في السجل الحالي ليش؟ واعتقد كذا واضح بارك الله فيك
عبد الله الثبيتي قام بنشر أغسطس 20, 2005 قام بنشر أغسطس 20, 2005 السلام عليكم : تفضل الكود بعد التعديل عليه ضعه في حدث بعد التحديث لمربع النص No_k Dim i i = DLookup("[ No_ks1 ]", "tabel1", "[ No_ks1 ]=[No_k ] ") If i <> "" Then MsgBox "رقم الإيصال :" & "(" & i & ")" & " مسجل سابقاً ... فضلاً تأكد من عدم إدخال رقم مكرر", vbOKOnly, "تنبيه" End If تم حذف أمرإلغاء السجل فقط وبقي رسالة تنبيه بتكرار القيمة آمل أن يكون حسب المطلوب ثبيت عرب
ابو عبدالحميد قام بنشر أغسطس 20, 2005 الكاتب قام بنشر أغسطس 20, 2005 اخي الكريم ثبيت عرب والله انك ماقصرت معي بس نفس المشكلة لأنه يعطيني رسالة خطأ ( ديباك) وحاولت اني اعدل الخطأ في الكود ولكن بدون فائدة وانا ابغى انزل لك الملف ولكن ماني لاقي زر الخيار لتنزيل ملفي هنا في المنتدى كيف ارفق الملف لكي تعدل عليه ؟ جزاك الله الف خير
ابو عبدالحميد قام بنشر أغسطس 21, 2005 الكاتب قام بنشر أغسطس 21, 2005 (معدل) اخواني الاعزاء كيف ارفق ملفي هنا ؟ :) بارك الله فيكم تم تعديل أغسطس 21, 2005 بواسطه ابو عبدالحميد
عبد الله الثبيتي قام بنشر أغسطس 21, 2005 قام بنشر أغسطس 21, 2005 هنا نزل الملف واخبرنا بذلك http://www.officena.net/ib/index.php?showforum=58
ابو عبدالحميد قام بنشر أغسطس 21, 2005 الكاتب قام بنشر أغسطس 21, 2005 السلام عليكم سامحني اخي ثبيت عرب عارف اني مسختها معاك والله اتعبتك معي الله يجزاك الف خير انا الآن ارفقت لك الملف و عنوان الموضوع نفس العنوان الاول... ( (اريد كود عدم تكرار الارقام) ) انا في انتظارك جزاك الله خير
ابو عبدالحميد قام بنشر أغسطس 21, 2005 الكاتب قام بنشر أغسطس 21, 2005 على فكرى انا حاولت اني اعدل الخطأ في الكود والحمدلله اصبح الآن يعطي رسالة على ان هذا الرقم مكرر بس في مشكلة ثانية انه بعد ما اضغط على زر ( موافق ) في الرسالة يقوم بحفظ البيانات الحالي بالرقم المكرر وينتقل إلى الحقل النشط وانا لا اريده ان يحفظ بالرقم المكرر بل العكس من ذلك بارك الله فيك
عبد الله الثبيتي قام بنشر أغسطس 22, 2005 قام بنشر أغسطس 22, 2005 تم التعديل على المثال بحيث يعطيك رقم الايصال والاسم المسجل به طبعاً الكود من دروس للأستاذ فهد الدوسري جزاه الله الف خير ... اتمنى أن يكون حسب المطلوب __________.rar
ابو عبدالحميد قام بنشر أغسطس 22, 2005 الكاتب قام بنشر أغسطس 22, 2005 جزاك الله الف خير الله يسعدك دنيا وآخرة اخي ثبيت عرب نعم هذا المطلوب واشكر الاستاذ فهد الدوسري على دروسه المفيدة ونسأل الله ان يجعلها في ميزان حسناتكما تحياتي لكم ابو عبدالحميد
kalo قام بنشر أكتوبر 9, 2005 قام بنشر أكتوبر 9, 2005 تم التعديل على المثال بحيث يعطيك رقم الايصال والاسم المسجل بهطبعاً الكود من دروس للأستاذ فهد الدوسري جزاه الله الف خير ... اتمنى أن يكون حسب المطلوب <{POST_SNAPBACK}> نزلت الملف و ما اشتغل معي ممكن تكتب الكود جزاك الله خيرا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.