Erro Na Inclusão

[alepe]

Ao clicar no inserir ele dá erro de Compile Error Invalid Qualifier..

alguém pode me ajudar

Private Sub cmdincluir_Click()
Dim txtvltotal, txtvalorunitario, txtvalortotal, txtcodigodoproduto, txtquantidade As Double
Dim txtnomedaloja, txtdescricaodoproduto As String
Dim txtdatadacomanda As Data
Dim txtncomanda As Integer
Dim resposta As Byte
Dim resposta1 As Byte

'inclusao em cabeça de comanda
rs1.AddNew
rs1.Fields("codigocomanda").Value = txtncomanda.Text
rs1.Fields("nomedaloja").Value = dcoloja.Text
rs1.Fields("datadacomanda").Value = txtdata.Text
rs1.Fields("nomedaloja").Value = dcoloja.Text
rs1.Update 'Salva o registro

'inclusao na comanda
rs.AddNew  'Cria novo registro
rs.Fields("codigocomanda").Value = txtncomanda.Text
rs.Fields("nomedaloja").Value = dcoloja.Text
rs.Fields("datadacomanda").Value = txtdata.Text
rs.Fields("quantidade").Value = txtqtde.Text
rs.Fields("codigodoproduto").Value = txtcodprod.Text
rs.Fields("descricaodoproduto").Value = txtdescricao.Text
rs.Fields("valorunitario").Value = txtvlunitario.Text
rs.Fields("valortotal").Value = txtqtde.Text * txtvlunitario.Text

rs.Update 'Salva o registro
resposta = MsgBox("Registro Incluso Continuar", vbYesNo + vbQuestion + vbDefaultButton2, "Mensagem")
If resposta = vbNo Then
   resposta1 = MsgBox("Deseja Sair", vbYesNo + vbQuestion + vbDefaultButton2, "Mensagem")
   If resposta1 = vbYes Then
      Dim vmensagem As String
      vmensagem = "Banco de Dados Foi Desconectado"
      MsgBox vmensagem, vbInformation, "Banco Fechado"
      cn.Close
      Set cn = Nothing
      Unload frminclucomandas
      frmcomandas.Show vbModal
   End If
End If

End Sub

[Graymalkin]

Em qual linha, exatamente?

Abraços,

Graymalkin

[Guest - Alepe -]

O problema ocorre logo quando ele inicializa a rotina.

[ramon]

o erro esta na declaracao

Dim txtncomanda As Integer

Pois você esta declarando um nome de um componente

Remova a declaracao que funcionara sem problemas

[Guest - Alepe -]

Ok.. mas mudou o erro ocorre agora o erro

"Run Time Error (-2147217887 (80040e21)"

No banco comanda é do tipo numerico

Private Sub cmdincluir_Click()
Dim txtvltotal, txtvalorunitario, txtvalortotal, txtcodigodoproduto, txtquantidade As Double
Dim txtnomedaloja, txtdescricaodoproduto As String
Dim txtdatadacomanda As Data
'Dim txtncomanda As Integer
Dim resposta As Byte
Dim resposta1 As Byte

'inclusao na comanda
rs.AddNew  'Cria novo registro
rs.Fields("comanda").Value = txtncomanda.Text
rs.Fields("nomedaloja").Value = dcoloja.Text
rs.Fields("datadacomanda").Value = txtdata.Text
rs.Fields("quantidade").Value = txtqtde.Text
rs.Fields("codigodoproduto").Value = txtcodprod.Text
rs.Fields("descricaodoproduto").Value = txtdescricao.Text
rs.Fields("valorunitario").Value = txtvlunitario.Text
rs.Fields("valortotal").Value = txtqtde.Text * txtvlunitario.Text
rs.Update 'Salva o registro

resposta = MsgBox("Registro Incluso Continuar", vbYesNo + vbQuestion + vbDefaultButton2, "Mensagem")
If resposta = vbNo Then
   resposta1 = MsgBox("Deseja Sair", vbYesNo + vbQuestion + vbDefaultButton2, "Mensagem")
   If resposta1 = vbYes Then
      Dim vmensagem As String
      vmensagem = "Banco de Dados Foi Desconectado"
      MsgBox vmensagem, vbInformation, "Banco Fechado"
      cn.Close
      Set cn = Nothing
      Unload frminclucomandas
      frmcomandas.Show vbModal
   End If
End If
txtqtde.Text = " "
txtcodprod.Text = " "
txtdescricao.Text = " "
txtvlunitario.Text = " "

End Sub

[screech]

Tente isto:

rs.Fields("comanda").Value = CInt(txtncomanda.Text)

Obs.: Converte o conteúdo do TextBox para Inteiro, como setado na variável

[Guest - Alepe -]

Run Timer Error '6'

OverFlow

[kuroi]

rs.Fields("comanda").Value = Conversion.CDbl(txtncomanda.Text)

Provavelmente, o valor do txtcomanda.text é grande demais pra ser convertido pra inteiro. Converta-o pra Duplo, q aguenta valores maiores.

Verifique tb se, no banco, o campo comanda está como Double (Duplo).