ازهر عبد العزيز قام بنشر سبتمبر 19 مشاركة قام بنشر سبتمبر 19 السلام عليكم احتاج كود اذا كان الحقل في النموذج ftest يحتوي ارقام فقط تظهر رسالة تنبيهية بهذا test.accdb رابط هذا التعليق شارك More sharing options...
Barna قام بنشر سبتمبر 19 مشاركة قام بنشر سبتمبر 19 27 دقائق مضت, ازهر عبد العزيز said: احتاج كود اذا كان الحقل في النموذج ftest يحتوي ارقام فقط تظهر رسالة تنبيهية بهذا جرب هذا ............. Private Sub buttonm_Click() Dim txtValue As String txtValue = Me.feildm.Value If txtValue Like "*[0-9]*" Then MsgBox "يوجد أرقام في مربع النص." Else MsgBox "لا يوجد أرقام في مربع النص." End If End Sub رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر سبتمبر 19 الكاتب مشاركة قام بنشر سبتمبر 19 شكرا جزيلا استاذ على الرد لكن هناك مشكلة في الكود اذا كان النص يحتوي ارقام واحرف يعتبرها ارقام رابط هذا التعليق شارك More sharing options...
أفضل إجابة أبوبسمله قام بنشر سبتمبر 19 أفضل إجابة مشاركة قام بنشر سبتمبر 19 مشاركه مع اخى العزيزمحمد @Barna اخى @ازهر عبد العزيز استخدم داله IsNumeric للتحقق اذا كان رقم ام لا بالتوفيق رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان