Help with this code

[Ayo]

I am getting a "variable not defined" error. I didn't have this problem
before. Any ideas?

Private Sub cmbSiteNumber_AfterUpdate()
On Error GoTo ErrHandler
Set rs = Forms!frmSiteConstruction_Information.Recordset.Clone
rs.FindFirst "[SITE NUMBER]='" & Me.cmbSiteNumber & "'" & ""
If Not rs.EOF Then Forms!frmSiteConstruction_Information.Bookmark =
rs.Bookmark
Exit Sub

ErrHandler:
MsgBox "Error in cmbSiteNumber_AfterUpdate() in" & vbCrLf & Me.Name & "
form." & vbCrLf & _
vbCrLf & "Error#" & Err.Number & vbCrLf & Err.Description
Err.Clear

End Sub

 

[akphidelt]

I'm not sure if this is the cause of the problem... but i think you need to
declare rs as a DAO.Recordset variable.

So the first line after the private sub would be

Dim rs as DAO.Recordset

 

[mscertified]

It would be a BIG help to know which variable?

-Dorian

 

[Ayo]

Thanks. That seem to work.

I'm not sure if this is the cause of the problem... but i think you need to
declare rs as a DAO.Recordset variable.

So the first line after the private sub would be

Dim rs as DAO.Recordset

I am getting a "variable not defined" error. I didn't have this problem
before. Any ideas?

Private Sub cmbSiteNumber_AfterUpdate()
On Error GoTo ErrHandler
Set rs = Forms!frmSiteConstruction_Information.Recordset.Clone
rs.FindFirst "[SITE NUMBER]='" & Me.cmbSiteNumber & "'" & ""
If Not rs.EOF Then Forms!frmSiteConstruction_Information.Bookmark =
rs.Bookmark
Exit Sub

ErrHandler:
MsgBox "Error in cmbSiteNumber_AfterUpdate() in" & vbCrLf & Me.Name & "
form." & vbCrLf & _
vbCrLf & "Error#" & Err.Number & vbCrLf & Err.Description
Err.Clear

End Sub