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 SubXuân Thanh > 08-09-12, 04:31 PM