Object Variable or with Block variable not set error

[snoopy80]

I Keep having this error when I click on Newrecord button in my Access ADP form. "Object Variable or Block Variable Not Set". Could someone give me an advise, please. This is my code:

On Error GoTo Err_CMDNEW_Click


DoCmd.GoToRecord , , acNewRec
Dim dbs As Object
Dim qdf As Object
Set dbs = CurrentDb
dbs.QueryDefs.Refresh
Me.Refresh
If IsNull(Forms!frmaccount!!subfrmOrder!DOS) = False Then
Forms!frmaccount!!subfrmOrder!Cost = Forms!frmaccount!subfrmOrder!subfrmcost!total
End If

Exit_CMDNEW_Click:
Exit Sub

Err_CMDNEW_Click:
MsgBox Err.Description
Resume Exit_CMDNEW_Click

Appreciate your help and Happy THANKSGIVING

 

[dhookom]

I didn't think ADPs supported DAO objects (CurrentDb and QueryDefs). Why are you attempting to refresh the querydefs?

What happens if you use:

On Error GoTo Err_CMDNEW_Click


    DoCmd.GoToRecord , , acNewRec
[green]    'Dim dbs As Object
    'Dim qdf As Object
    'Set dbs = CurrentDb
    'dbs.QueryDefs.Refresh[/green]
    Me.Refresh
    If IsNull(Forms!frmaccount!!subfrmOrder!DOS) = False Then
Forms!frmaccount!!subfrmOrder!Cost = Forms!frmaccount!subfrmOrder!subfrmcost!total
End If

Exit_CMDNEW_Click:
    Exit Sub

Err_CMDNEW_Click:
    MsgBox Err.Description
    Resume Exit_CMDNEW_Click

Duane
Hook'D on Access
MS Access MVP

 

[PHV]

Which line of code raises the error ?
Anyway I'd use this:

If Not IsNull(Forms!frmaccount!subfrmOrder.Form!DOS) Then
  Forms!frmaccount!subfrmOrder.Form!Cost = Forms!frmaccount!subfrmOrder.Form!subfrmcost.Form!total
End If

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886