Kyne > 08-09-12, 12:29 PM
Private Sub Loc_Click()
If Len(NhapTim) = 0 Or IsNull(NhapTim) = True Then
MsgBox "Please enter your name"
Else
Me.Filter = "MaHS = """ & Me.NhapTim & """"
Me.FilterOn = True
End If
End Sub
Xuân Thanh > 08-09-12, 04:31 PM