أبوبسمله قام بنشر يناير 25, 2015 قام بنشر يناير 25, 2015 بعد بحث وعناء فى تركيب الداله والحمد لله تمت بفضل الله احببت ان اضع مثال للفائده للمبتدئين امثالى بالتوفيق للجميع SNum.rar
ابوخليل قام بنشر يناير 25, 2015 قام بنشر يناير 25, 2015 جزاك الله خيرا حاول ان تخرج بالنتيجة نفسها مع استبعاد الاستعلام والحقل المخفي استخدم متغير مثلا : Dim i As Integer i = Len([Kwmy]) If i < 14 Then
أبوبسمله قام بنشر يناير 25, 2015 الكاتب قام بنشر يناير 25, 2015 اهلا بك اخى ابو خليل قمت باستخدام نفس الفكره بالاستعلام لكن بالنموذج مباشر وتمت وسوف اجرب طريقتك للفائده وجزاكم الله عنا خير الجزاء بالتوفيق للجميع
أبوبسمله قام بنشر يناير 25, 2015 الكاتب قام بنشر يناير 25, 2015 جزاك الله خيرا حاول ان تخرج بالنتيجة نفسها مع استبعاد الاستعلام والحقل المخفي استخدم متغير مثلا : Dim i As Integer i = Len([Kwmy]) If i < 14 Then بارك الله فيك ونفعنا بعلمك واجهتنى مشكله بعد استخدام الكود وهيا اذا تراجعت عن التسجيل وحبيت اقفل النموذج يعطينى رسالة خطأ بان الحقل خالى حاولت استخدام كود لاختنا ام عهود ولم ينجح معى فاترك اليك هذه المشكله لحلها ودمتم لفعل الخير If IsNull(Forms!FRMBianat.Form!Names) And IsNull(Forms!FRMBianat.Form!Kwmy) Then DoCmd.Close End If
ابوخليل قام بنشر يناير 25, 2015 قام بنشر يناير 25, 2015 رسالة الخطأ طبيعية لان الحقل فارغ استخدم الدالة nz لتحويل الفراغ الى صفر لتصبح الجملة هكذا Dim i As Integer i = Len(Nz([Kwmy], 0)) If i < 14 Then
أبوبسمله قام بنشر يناير 25, 2015 الكاتب قام بنشر يناير 25, 2015 بارك الله فيك اخى ابو خليل اتعبنى تنسيقها ولكن الحمد لله تمام جزاكم الله خيرا وبارك لكم فى اعمالكم وفقكم دائما وابدا
أبوبسمله قام بنشر فبراير 27, 2015 الكاتب قام بنشر فبراير 27, 2015 اخوانى الافاضل للفائده أيضا يمكن استخراج نفس النتيجه باستخدام قاعدة التحقق من الصحه Len([kwmy])>=14 وتضع فى نص التحقق الرساله اللتى تريدها تمنياتى لكم بالتوفيق SNum.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.