VB Code:
Private Sub VerifyEntries()
'hack
'This works by multiplying the lengths of the required fields together. If any field is empty, the result sum
'will be 0. VB treats a 0 as false and non-zero as true. Therefore, when all of the fields have an entry
'the sum will be greater than 0, hence, True and the command button will become enabled
Command1.Enabled = Len(Trim$(Text1.Text)) * Len(Trim$(Text2.Text)) * _
Len(Trim$(Text3.Text)) * Len(Trim$(Text4.Text)
End Sub
Private Sub Text1_Change()
VerifyEntries
End Sub
Private Sub Text2_Change()
VerifyEntries
End Sub
Private Sub Text3_Change()
VerifyEntries
End Sub
Private Sub Tex4_Change()
VerifyEntries
End Sub