Text Box validation problem!!!!!

[joePC]

Hi,

Im trying to validate a txt box,

If txtoverdraft.Text = "No", I want it so that any instance of no e.g. No, nO, no, NO what would I use here?

If txtoverdraft.Text = "No" And txtbalance.Text < 0 Then
 
'if its not at the end of the file
If (Not datCities.Recordset.EOF) And (Not datCities.Recordset.EOF) Then
 
        'Message box
        MsgBox "Overdraft not available for this client, Please enter balance greater than 0"
        
        txtbalance.Text = ""
        
        'Doesn't save
        Action = 0
        
        txtbalance.SetFocus
 
End If
End If

Thanks joePC

[ironhide]

If UCase(txtoverdraft.Text) = "NO"

Which compares them both as caps. With the second condition, you should really test it as a number, because at the moment it is a string comparison

CInt(txtbalance.Text) < 0 Then

[BrianS]

Could also use IsNumeric

[joePC]

If Not UCase(txtoverdraft.Text) = "NO" Or Not UCase(txtoverdraft.Text) = "YES" Then
 
'if its not at the end of the file
If (Not datCities.Recordset.EOF) And (Not datCities.Recordset.EOF) Then
 
        'Message box
        MsgBox "Overdraft must be YES or NO"
        
        txtoverdraft.Text = ""
        
        'Doesn't save
        Action = 0
        
        txtoverdraft.SetFocus
 
End If
End If

The value must be yes / YES / YEs etc.. or No / No/ nO etc.......

How would I do this,

Thanks joePC

[BrianS]

Why dont you just convert it all to UCase and save yourself some headaches.