[RESOLVED] textbox must have value

[matrik02]

How to make the textbox is not null ?I want the user must put any value in the textbox. If no value found,it will pop up the messagebox.I got the error message,type missmatch will saving the editing value in the textbox. This is because the user edit the value in the textbox to become null value. The field name is the number data type

If Len(Text19.Text) = 0 Then
MsgBox "Sila masukkan luas lot dalam ha", vbInformation, "Luas Lot"
Text19.SetFocus
Exit Sub
End If

  .Fields("LUAS (Ha)").Value = Text19.Text

[RhinoBull]

If you don't want to allow spaces only then you must use Trim function:

If Len(Trim(Text19.Text)) = 0 Then
    MsgBox "..."
    '...
End If

'or simply Trim only

If Trim(Text19.Text) = "" Then
    MsgBox "..."
    '...
End If