G
Guest
Hi there!
When I try to run the following code on a button's click event, I get the
above 3634 error:
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("select * from tblClients where lngDesignerID=
""" & _
Me.lngDesignerID & """", dbOpenSnapshot)
If rs.RecordCount > 0 Then
MsgBox "Sorry, you can't delete this designer as it has already been
used.", _
vbOKOnly + vbInformation, "Sorry"
Exit Sub etc
What's wrong? All help is immensely appreciated.
JR
When I try to run the following code on a button's click event, I get the
above 3634 error:
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("select * from tblClients where lngDesignerID=
""" & _
Me.lngDesignerID & """", dbOpenSnapshot)
If rs.RecordCount > 0 Then
MsgBox "Sorry, you can't delete this designer as it has already been
used.", _
vbOKOnly + vbInformation, "Sorry"
Exit Sub etc
What's wrong? All help is immensely appreciated.
JR