السلام عليكم كيف استبدل هذي الرساله بدل مايعطيني خطاء يكون هناك رساله توضح انه متكرر اسم الموظف
وستخدمة هذا الكود ولكن مازبط
وستخدمة هذا الكود ونجح معي ولكن لم تختفي الرساله يعني تخرج لي رسالتين
Dim DATAERRCONTINUE 'Select Case DataErr 'Case Is = 3022 'MsgBox " هذا الموظف مسجل مسبق ", vbInformation, " ÏÎá ãßÑÑ " 'Response = DATAERRCONTINUE 'End Select Undo
وهذي صورت الرساله وكيف الغيهااااا
تم تعديل هذه المشاركة بواسطة الباشق1 في 10 أغسطس 2008 في 23:55
أخي الكريم
تحية طيبة وبعد ،،،،،،،،،،
أقدم اليك مثال على الاضافة والتعديل
عند ادخال رقم الهوية للمواطن ان لم يكن مسجل من قبل يظهر مفتاح تخزين وينتقل الموشر الى الحقل التالي وهو الاسم.
أما ذا كان موجود فيتم استدعاء باقي بيانات صاحب رقم الهوية ويظهر مفتاح تعديل.
بمعنى أن النموذج المرفق يتم من خلالة الاضافة والتعديل وأنت لست في حاجة الى عمل نموذجين أحدهما للاضافة وآخر للتعديل
موفق ان شاء الله
تم تعديل هذه المشاركة بواسطة kamal alnahhal في 11 أغسطس 2008 في 05:35
[يمين]
إذا كـان تـرك الـدين يعــنــي تقــدمــاً
فـيا نفــس مـوتــي قبــل أن تتقـدمــي
[/يمين]
هلا فيك خيو تسلم والله ماقصرت بس المطلوب مسج تظهر بان الموظف موجود قبل
( الموظف موجود مسبقا ) او الموظف مسجل
هو اهم شي انه مايقبل التكرير وتظهر لي مسج فقط
تم تعديل هذه المشاركة بواسطة الباشق1 في 11 أغسطس 2008 في 09:13
أخي الغالي كمال النحال بارك الله بك
أخي الفاضل الباشق1
تفضل مثال بناء علي طلبك بالحرف الواحد
حاول تسجيل اي رقم مكرر ثم اضغط علي مفتاح الادخال وانتظر النتيجة
تم تعديل هذه المشاركة بواسطة محمد فؤاد تركي في 11 أغسطس 2008 في 15:40
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…