Run-time error 3075

[adaoluz]

Hello .. Good evening!




Could you please help me with the error "Run-time error 3075", 'Syntax error (operator missing) in query expression ' Idorcamento= '


highlighted line with the error description.

Private Sub bt_gerarPedido_Click()Dim dbOrc As Database, rs1, rs2, rs3 As DAO.Recordset


    If MsgBox("Deseja Gerar Caixa  desse Orçamento?", vbYesNo + vbQuestion, Me.Caption) = vbNo Then
    Me.Undo
        DoCmd.CancelEvent
            MsgBox "Não foi gerado caixa !", vbInformation, Me.Caption
            
            Exit Sub
                Else
    
        Set dbOrc = CurrentDb
        
        Set rs1 = dbOrc.OpenRecordset("tblcaixa")
            
        With rs1
        
        .AddNew
        ![IDOrcamento] = Me.IDOrcamento
        ![DataPagamento] = Me.DataOrcamento
        ![Proprietario] = Me.Proprietario
        ![Telefone] = Me.Telefone
        ![Celular] = Me.Celular
        ![Animal] = Me.Animal
        ![Valor] = Me.Valorf
        ![IdProp] = Me.IdProp
        .Update
        
        End With
        
        
        Set rs2 = dbOrc.OpenRecordset("SELECT * FROM TblSubOrcamento WHERE Idorcamento=" & Me.IDOrcamento)
Set rs3 = dbOrc.OpenRecordset("tblsubcaixa")
        
      
        While (Not rs2.EOF)
            With rs3
                .AddNew
                ![IdCaixa] = DMax("idcaixa", "tblcaixa")
                ![IDOrcamento] = rs2![IDOrcamento]
                ![Servico] = rs2![Servico]
                ![Custo] = rs2![Custo]
                ![Qtd] = rs2![Qtd]
                ![Tcusto] = rs2![TotalProc]
                .Update
                rs2.MoveNext
            End With
        Wend
        
        rs1.Close
        Set rs1 = Nothing
        
        rs2.Close
        Set rs2 = Nothing
        
        rs3.Close
        Set rs3 = Nothing
        
        Set dbOrc = Nothing
        
       'limpa a tblorcamento no orçamento especifico que gerou o caixa, evitando duplicatas na tbl
      DoCmd.RunCommand acCmdSelectRecord
      DoCmd.RunCommand acCmdDeleteRecord
       
      DoCmd.Close acForm, "frmorcamento"
      DoCmd.OpenForm "frmcaixa"
        
       
      
      
    End If
End Sub

[pbaldy]

It looks like the control for Idorcamento is empty. I'd test for that first.

[adaoluz]

I checked this was the empty field error, thank you!

[Micron]

rs1, rs2, rs3 As DAO.Recordset

You seem to be making the classic multi variable one-line declaration error. Each variable must be explicitly declared (typed, meaning it's data type being set) otherwise the variable defaults to variant type. In your case, rs1 and rs2 are variants, not recordset objects. You'd want
rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset

Looks like you're not using those variables in the code sample anyway, so wondering why they are there. If you asked me if a variant can hold an object like a recordset, I'd have to say I don't know. So maybe if you leave it as is and try to assign another recordset later, maybe you'd get an error. On the other hand, a variant can hold the value Empty, which applies only to objects AFAIK, so maybe you'd be OK. Regardless, what you have is bad practice and could cause you grief one day.

[pbaldy]

I checked this was the empty field error, thank you!

Happy to help!

[adaoluz]

Hello !
inserted manual data in the table "tblOrcamento", did not happen


no mistake, I do not know if it's the right thing to do

[pbaldy]

If that's a question, I think we're going to need more detail to figure it out.

[adaoluz]

Hello!
I'm sending the database so it can be parsed


when there is empty data, it gives error in the FrmOrcamento, when generating a new budget.

[pbaldy]

How does one recreate the error in the sample db?

[adaoluz]

Hello!


The error caused the error that there is no data in the form in the button generate budget, possibly


I wanted to make this mistake, thank you.

[pbaldy]

To avoid the error add this at the beginning:

    If Len(Me.IDOrcamento & vbNullString) = 0 Then
 .      MsgBox "No record"
        Exit Sub
    End If

[adaoluz]

Hello !


this should solve the problem,


Thank you!

[pbaldy]

Happy to help!

[adaoluz]

to the next!