Erro No Botão Inserir!

[D4rk Schn31d3r]

Usando esse código no botão de Inserir, dá esse erro: Operation is not allowed when the object is closed. O erro dá nessa linha: de.rsqryCadConcl.AddNew

Private Sub cmdIns_Click()
    gOper = "I"
    Inv
    de.rsqryConsContr.Open
    de.rsqryConsContr!ID_Concl = de.rsqryConsContr!ID_Concl + 1
    de.rsqryConsContr.Update
    de.rsqryCadConcl.AddNew
    de.rsqryCadConcl!ID_Concl = de.rsqryConsContr!ID_Concl
    de.rsqryConsContr.Close
    txtConcl.SetFocus
End Sub

Alguém sabe o q posso fazer pra resolver isso?

PS: estou usando VB6, DE (Data Environment) e SQL Server 7 (Servidor);

[Decio]

Ola.

Desculpe se estou falando besteira.É que estou temporariamente sem micro para testar o código, mas você já tentou primeiro dar um Open-Update-Close para depois dar um Open-AddNew-Close??

[Guest Guest]

Eu já tinha tentado jogar essa linha de Open antes de addnew, ele dá esse outro erro: Incorret syntax near the keyword 'DEFAULT', ..., já estou começando a ficar bolado com isso. Somebody help!

[D4rk Schn31d3r]

Nenhuma idéia?

[Decio]

Para tentar te ajudar você precisa colocar um trecho maior do código, tipo como você esta criando o objeto da conexão , o comando SQL que esta usando , etc...

[D4rk Schn31d3r]

Resolvi dessa forma:

- botão inserir -

Private Sub cmdIns_Click()
   gOper = "I"
   Inv
   de.rstbContr.Open
   de.rstbContr!ID_Andam = de.rstbContr!ID_Andam + 1
   de.rstbContr.Update
   
   If de.rsqryCadAndam.State = 1 Then
       de.rsqryCadAndam.Close
   End If
   
   de.qryCadAndam (-1)
   de.rsqryCadAndam.AddNew
   de.rsqryCadAndam!ID_Andam = de.rstbContr!ID_Andam
   de.rstbContr.Close
   txtAndam.SetFocus
End Sub

- botão confirmar -

Private Sub cmdConf_Click()
   If (Trim(txtAndam.Text) = "") Then
       MsgBox "Esse campo deve ser preenchido!!!", vbOKOnly + vbExclamation, gSist
       txtAndam.SetFocus
       Exit Sub
   End If

   If (gOper = "I") Or (gOper = "A") Then
       de.rsqryCadAndam!Andam = txtAndam.Text
       de.rsqryCadAndam.Update
   ElseIf gOper = "D" Then
       de.rsqryCadAndam.Delete
   End If
       
   Limp
   txtAndam.SetFocus
   Inv
End Sub