type mismatch--and I'm lost

[Theguyinthehat]

There are 5 subgroups assigned to a single LotNumber on a form I'm building. I decided to use a for loop to create a new record if the corresponding textbox was filled out, but on the openrecordset I get a type mismatch error. Some help?

Private Sub cmdSave_Click()
Dim db As Object
Dim timeentry As Object
Set db = CurrentDb
Set timeentry = db.OpenRecordset("SELECT [Time JobEntry] FROM dptdata WHERE [LotNumber] = '" & txtLotNumber & "'")
'timeentry.Edit
'timeentry("Time JobEntry") = Now()
'timeentry.Update

Dim I As Integer
Dim rst As Recordset
Set rst = db.OpenRecordset("dptdata")
rst.MoveFirst
For I = 0 To 5
rst.AddNew
rst!LotNumber = Me.txtLotNumber
rst![Charge Number] = Me.txtcharge
rst![Thickness] = Me.txttargetthickness
rst![ThicknessError] = Me.txtthickerror
If I = 0 And Me.txtczt1 <> "" Then
rst![CZTNumber] = Me.txtczt1
ElseIf I = 1 And Me.txtczt2 <> "" Then
rst![CZTNumber] = Me.txtczt2
ElseIf I = 2 And Me.txtczt3 <> "" Then
rst![CZTNumber] = Me.txtczt3
ElseIf I = 3 And Me.txtczt4 <> "" Then
rst![CZTNumber] = Me.txtczt4
ElseIf I = 4 And Me.txtczt5 <> "" Then
rst![CZTNumber] = Me.txtczt5
ElseIf I = 5 And Me.txtczt6 <> "" Then
rst![CZTNumber] = Me.txtczt6
End If
rst.Update
rst.MoveNext
Next I
rst.Close
Set rst = Nothing
db.Close
Set db = Nothing
End Sub

 

[Theguyinthehat]

Sorry! Figured it out--had to specify DAO. Thanks!

 

[pbaldy]

Try this:

Dim rst As DAO.Recordset

which would first require the DAO reference to be checked if it isn't already (in Tools/References).