Hey, I recently switched over to using SQL for the backend of my Access databases. The codes I have use to work, all I have just modified them a little to be able to use the SSRS easier. However since I made the changes I keep getting an error message stating: Quote: Object variable or With block not set My code is basically the following
Code:
Private Sub Save_Click() On Error GoTo ErrorHandler Dim db As Database Dim sn As Recordset
strCount = 0
If Not IsNull(Me.dp1) Or Me.dp1 <> "" Then 'If you are adding a new record, then this code will work, if you finding an existing record you will need a where clause and an edit instead of addnew Set db = CurrentDb Set sn = db.OpenRecordset("SELECT * FROM dbo_FIDataEntry ORDER BY ID DESC", dbOpenDynaset, dbSeeChanges)
I get the error message but it is still saving the data to SQL, but not clearing the fields. I have not encountered this issue before and I am not having any luck finding out how to fix it.
This many not necessarily the problem, but you should move the sn.Update and sn.Close to above the Endif
....
sn!Name = Me.name
sn!Shift = Me.Shift
'Updates and closes the record
sn.Update
sn.Close
End If
'Clears the fields for the next entry
Me.dp1 = Null
....
Access '10 to a linked SQL table save code broken
Posted - 11/09/2012 : 10:37:25
