H
Hana
Hi, all.
I get Type mismatch error, error #13, when I run following
record count code.
Me.TicketId in where clause is number not text. Is " &
Field Name & " expression for text not number?
Dim rs As Recordset
Dim strSQL As String
strSQL = "SELECT tbl_ticketdetail.MenuId FROM
tbl_ticketdetail WHERE ((tbl_ticketdetail.TicketId) = " &
Me.TicketId & ") "
Set rs = CurrentDb.OpenRecordset(strSQL,
dbOpenSnapshot)
If rs.RecordCount = 1 Then
MsgBox "Duplicated Menu!"
rs.Close
Exit Function
End If
rs.Close
Thank you.
I get Type mismatch error, error #13, when I run following
record count code.
Me.TicketId in where clause is number not text. Is " &
Field Name & " expression for text not number?
Dim rs As Recordset
Dim strSQL As String
strSQL = "SELECT tbl_ticketdetail.MenuId FROM
tbl_ticketdetail WHERE ((tbl_ticketdetail.TicketId) = " &
Me.TicketId & ") "
Set rs = CurrentDb.OpenRecordset(strSQL,
dbOpenSnapshot)
If rs.RecordCount = 1 Then
MsgBox "Duplicated Menu!"
rs.Close
Exit Function
End If
rs.Close
Thank you.