ahmed-saad قام بنشر يناير 3, 2015 مشاركة قام بنشر يناير 3, 2015 السلام عليكم ورحمة الله وبركاتة عاوز كود يمنع ترك اى حقل فى النموذج ان يكون فارغ مع الشكر تحياتى للجميع رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر يناير 3, 2015 مشاركة قام بنشر يناير 3, 2015 مرفق ملف لاختنا زهره اطلع عليه بالتوفيق za-NoEmpty.rar 1 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر يناير 3, 2015 مشاركة قام بنشر يناير 3, 2015 (معدل) وده كود ممكن تضعه فى وحده نمطيه وتستدعيه لاى حقب فى النموذج شرح اختنا زهره ومرفق الملف الخاص به بارك الله بكم جميعا اخواني الكرام يمكن استخدام هذه الوظيفة الخاصه في النموذج في اي مكان من احداث النموذج سواء عند فقد التركيز او عند سجل جديد او قبل التحديث او عند الخروج او اي حدث تريده Private Function zaNoEmptyTextbox() Dim ctl As Control For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Then If IsNull(ctl) Or ctl = "" Then MsgBox "فارغا " & ctl.name & " اخي الكريم .. لقد تركت حقل " DoCmd.CancelEvent ctl.SetFocus Exit For End If End If Next ctl End Function سيقوم الكود بأخذ دوره كامله على جميع حقول النص في النموذج ويبلغك برساله ما هو الحقل الفارغ الذي يجب عليك تعبئة البيانات به وعدم تركه فارغ ثم يضع التركيز عليه وسيكون استدعاء الوظيفة في اي حدث كالتالي Call zaNoEmptyTextbox zaعدم ترك احد الحقول فارغ.rar تم تعديل يناير 3, 2015 بواسطه طالب علم مبتدىء رابط هذا التعليق شارك More sharing options...
ahmed-saad قام بنشر يناير 4, 2015 الكاتب مشاركة قام بنشر يناير 4, 2015 اولا شكرا على تفاعلك معى اخى الكريم انا جربة الملف الاول وكان هو المطلوب بضبط اشكرك مرة ثانية وفقك الله لكل خير وغفر لك ولوالديك والمسلمين والمسلمات رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.