Runtime (A2000)

[D Willett]

I have the following code on a button.
On a runtime version of my db I get Error 2450 cannot find form !
Does any one know a remedy for this.

Dave


Private Sub Command14_Click()

Dim db As DAO.Database
Dim RST As DAO.Recordset
Dim strFilter As String
Dim strSQL As String
Dim strValue As String
Set db = CurrentDb
strFilter = "tblEnquiry.EstimateNo = " & Forms!frmDetails!EstimateNo & " And tblEnquiry.Supp = " & Forms!frmDetails.Supp
strSQL = "Select * From tblEnquiry Where " & strFilter
Set RST = db.OpenRecordset(strSQL, dbOpenDynaset)
If RST.RecordCount = 0 Then
DoCmd.OpenForm "frmEnquiry"
DoCmd.GoToRecord acDataForm, "frmEnquiry", acNewRec
Forms!frmEnquiry!EstimateNo.SetFocus
Forms!frmEnquiry!EstimateNo = Forms!frmDetails!EstimateNo
Forms!frmEnquiry!Supp = Forms!frmDetails!Supp
Else
DoCmd.OpenForm "frmEnquiry", acViewNormal, , strFilter
End If
End Sub

[HansV]

It would be useful to know where exactly the error occurs. Now, you can't single-step code in a runtime environment.

You can insert statements between the existing statements that inform you of what is being executed. You can make this as sophisticated as you like, but the following is a way, however tedious:

Set db = CurrentDb
MsgBox "Set strFilter"
strFilter = "tblEnquiry.EstimateNo = " & Forms!frmDetails!EstimateNo & " And tblEnquiry.Supp = " & Forms!frmDetails.Supp
MsgBox "Set strSQL"
strSQL = "Select * From tblEnquiry Where " & strFilter
MsgBox "Set rst"
Set RST = db.OpenRecordset(strSQL, dbOpenDynaset)
MsgBox "Check for records"
If RST.RecordCount = 0 Then
MsgBox "Open frmEnquiry"
DoCmd.OpenForm "frmEnquiry"

etc.

When you get the error message, you'll know what statement the code was trying to execute.

[D Willett]

Thanks Hans
Tedious but neccessary.

Dave

[patt]

Is this command giving you the problem?

strFilter = "tblEnquiry.EstimateNo = " & Forms!frmDetails!EstimateNo & " And tblEnquiry.Supp = " & Forms!frmDetails.Supp

Try changing the Forms!frmDetails.Supp to Forms!frmDetails!Supp (changing the fullstop to a bang as Charlotte puts it)

HTH
Pat

[D Willett]

Thanks for your reply Patt, I hadn't noticed it before, it may be the solution I need.

Can't get to the runtime machine at the moment, but I will try it.

Regards
Dave