D
DS
I keep getting Data Type Mismatch
Any Clues?
Thanks
DS
Dim strWhere As String
Dim intChar As String
strWhere = "tblTest.[Number] = " & Me.Text3
intChar = Asc(Nz(DMax("Number", "tblTest", strWhere), "@"))
Me.TxtNumber.Value = Chr(intChar + 1)
Any Clues?
Thanks
DS
Dim strWhere As String
Dim intChar As String
strWhere = "tblTest.[Number] = " & Me.Text3
intChar = Asc(Nz(DMax("Number", "tblTest", strWhere), "@"))
Me.TxtNumber.Value = Chr(intChar + 1)