Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Boa tarde pessoal, preciso de uma ajuda aqui.
Então estou fazendo um projeto para cadastro de estoque, exitem duas tabelas a de Vendas e a ItensVendas, estou usando um msflexgrid para esta última. Só que o botão gravar não está executando os comandos, segue abaixo os comandos, me ajudem a achar o erro!!
Private Sub cmdGravar_Click()
Call ConectaBd
Set rs = New ADODB.Recordset
rs.ActiveConnection = cn
i = 1
Do While i < msfItens.Rows - 1
vCodigo = msfItens.TextMatrix(i, 0)
vDesc = msfItens.TextMatrix(i, 1)
vQtd = msfItens.TextMatrix(i, 2)
vUnitario = msfItens.TextMatrix(i, 3)
vTot = msfItens.TextMatrix(i, 4)
vQtdAnteriorItem = msfItens.TextMatrix(i, 5)
rs.Open "Select * from Tab_ItensVendas where NumVenda=" & txtNumVenda.Text
If rs.EOF Then
Set rs = New ADODB.Recordset
rs.ActiveConnection = cn
rs.Open "INSERT INTO Tab_ItensVendas (NumVenda, CodProd, Desc, Qtd, Unitario, Tot) VALUES ('" & txtNumVenda.Text & "','" & vCodigo & "','" & vDesc & "','" & vQtd & "','" & vUnitario & "','" & vTot & "')"
MsgBox "Venda cadastrada com sucesso"
End If
If Not rs.EOF Then
MsgBox "Venda já cadastrada"
End If
i = i + 1
rs.Close
Loop
End Sub
Obrigado a todos!!!Carregando comentários...