Erro de cadastro e exibição

Eu e os meus colegas de trabalho tentamos arrumar o "fornecedores" (telefone) mas não conseguimos... ele adiciona o telefone no cmb, mas na hora se armazená-los na tabela não vai! Sabemos que deve ser feito um While, mas não sabemos como, pois já tentamos com While, For, etc..

E ainda, enquanto testando o sistema, não conseguimos resolver o seguinte erro: cadastrar carnê, tudo vai normalmente, mas na hora de cadastrar o carnê, não vai... fizemos o seguinte,

Set gcarne = Nothing

 gcarne.Open "select * from carne where cancod= " & Val(txtcarcod.Text), eaglebanco, adOpenStatic, adLockPessimistic

 If gcarne.EOF = False Then

 MsgBox "Número já Existente!", vbInformation + vbYesNo, "Eagle - Carnê"

 txtcarnumerocarne.SetFocus

 Exit Sub

 End If

 

 gcarne.AddNew

 

 carne = gcarne!cancod

 gcarne!canvalortotal = txtcarvalortotal.Text

 gcarne!candtvencimento = mskcarvencimento.Text

 gcarne!canvalorparcelado = txtcarvalorparcelado.Text

 gcarne!candtemissao = mskcardataemissao.Text

 gcarne!cannumcarne = UCase(txtcarnumerocarne.Text)

 gcarne!canpparcelas = txtcanpar.Text

 **gcarne!vencodc = txtcarcodigovenda.Text**

 gcarne!caxcodc = gcaixa!caxcod

 gcarne!funcodc = txtcanfuncod.Text

 

 gcarne.Update

 

 txtcarvalortotal.Text = Empty

 mskcarvencimento.Text = "__/__/____"

 mskcardataemissao.Text = "__/__/____"

 txtcanpar.Text = Empty

 txtcarnumerocarne.Text = Empty

 txtcarcodigovenda.Text = Empty

 

na tela de Carnê;

' Set gcarne = Nothing

' gcarne.Open "Select * from carne where cancod = " & carne & "", eaglebanco, adOpenStatic, adLockPessimistic

' If gcarne.EOF = False Then

' gcarne.AddNew

' gcarne!vencodc = txtvencod.Text

' gcarne!candtvencimento = "12/12/1222"

' gcarne.Update

' End If

' MsgBox "Venda Realizada com Sucesso!", vbExclamation, "Eagle - Vendas"

ne tela de Vendas;

Assim, o carnê é cadastrado em sua respectiva tabela normalmente, mas quando o usuario finaliza a venda, ele recebe o código da venda no campo "vencodc"; como deste modo não estava indo... fizemos desse outro jeito [código acima] : o usuário seleciona a opção carnê, e quando ele finaliza a venda a janela de Carnê aparece para o usuário cadastrá-lo, mas mesmo assim não vai...

E quando pareceu que iria, apareceu a img na tela [ohgod.jpg] que diz que Carnê precisa estar relacionado com Vendas, e ele está!

Já cadastramos primeiramente a venda e depois o carnê, e nada de funcionar... fizemos o contrário (carnê, venda) e nada também...

E assim, ao adicionar um produto à venda, é necessário ver a quantidade dele, se a qtde solicitada for maior que a existente não é possível a inclusão dele na venda, certo?

pois bem, se colocarmos, um produto com 200 unidades e colocar 50 na quantidade, funciona; se colocarmos 1000 na quantidade, não funciona; se colocarmos 50 na quantidade, funciona. (...)

achamos qua é porque na tela de produtos, eles estão sendo cadastrados com o código do mesmo fornecedor (mesmo selecionando outro)...

Set gprodutos = Nothing

gprodutos.Open "Select * from produtos where procod='" & msfgvenconpro.TextMatrix(msfgvenconpro.RowSel, 0) & "'", eaglebanco, adOpenStatic, adLockPessimistic

If gprodutos!prounidade < txtvenqtde.Text Then

MsgBox "A quantidade de produtos disponível é inferior a " & Val(txtvenqtde.Text) & ".", vbCritical, "Eagle - Vendas"

Exit Sub

End If

If msfgvenconpro.RowSel > 0 Then

If MsgBox("Adicionar o Produto " & msfgvenconpro.TextMatrix(msfgvenconpro.RowSel, 1) & " ?", vbQuestion + vbYesNo, "Eagle - Vendas") = vbYes Then

Set gprodutos = Nothing

 gprodutos.Open "Select * from produtos where procod ='" & msfgvenconpro.TextMatrix(msfgvenconpro.RowSel, 0) & "'", eaglebanco, adOpenStatic, adLockPessimistic

 frmvendas.msfgvenpro.Rows = frmvendas.msfgvenpro.Rows + 1

 

 frmvendas.msfgvenpro.TextMatrix(frmvendas.msfgvenpro.Rows - 1, 0) = gprodutos!procod

 frmvendas.msfgvenpro.TextMatrix(frmvendas.msfgvenpro.Rows - 1, 1) = gprodutos!prodesc

 frmvendas.msfgvenpro.TextMatrix(frmvendas.msfgvenpro.Rows - 1, 2) = Format$(gprodutos!provenda, "R$ ###,###,##0.00")

 frmvendas.msfgvenpro.TextMatrix(frmvendas.msfgvenpro.Rows - 1, 3) = txtvenqtde.Text

 frmvendas.txtvenvalortotal.Text = Format$(frmvendas.txtvenvalortotal.Text + (gprodutos!provenda * txtvenqtde.Text), "R$ ###,###,##0.00")

 gprodutos!prounidade = gprodutos!prounidade - txtvenqtde.Text * 1

 frmvendas.imgremoverpro.Enabled = True

 End If

 Unload Me

 End If

na tela de vendas (consulta de produtos)

Obs.: já invertemos a unidade com a txtvenqtde e já colocamos >= e <= e nada!

Estamos usando o VB6!!

Precisamos da ajuda de vocês o mais rapido possivel!!

Pq estamos perto da data de entrega do sistema para a empresa!!!