مساعدة في كود تحقق

[ازهر عبد العزيز]

السلام عليكم 

احتاج كود اذا كان الحقل في النموذج ftest يحتوي ارقام فقط تظهر رسالة تنبيهية بهذا 

test.accdb

[Barna]

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

 

[ازهر عبد العزيز]

شكرا جزيلا استاذ على الرد لكن هناك مشكلة في الكود  اذا كان النص يحتوي ارقام واحرف يعتبرها ارقام 

[أبوبسمله]

مشاركه مع اخى العزيزمحمد @Barna 

اخى @ازهر عبد العزيز استخدم داله IsNumeric للتحقق اذا كان رقم ام لا

بالتوفيق