RUN-TIME ERROR 91

XXXANGELSXXX 24/04/2012 20:29:11
#400696
veja so.. quando vc utiliza dataset vinculado, voce nao precisa instanciar nada, o proprio dataset se instancia, se ele tiver vinculado no banco .. e so fazer..

.addnew
.update

eu acho que tenho alguns exemplos para bd acess procure no meu perfil ai .. que vai ter conexao odbc e desvinculado .. e melhor para se trabalhar assim.. ok..
FILMAN 26/04/2012 16:50:18
#400859
Tenta mudar o BOF para
if Temp.RecordCount = 0 then
WELLINFC 11/07/2012 16:53:50
#405873
..por enquanto não consegui...assim que eu conseguir aviso a vocês
MARCELO.TREZE 11/07/2012 17:58:42
#405876
Vou para uma pergunta direta, você está usando um DataControl

se for está tudo errado
WELLINFC 11/07/2012 18:39:39
#405882
Boa noite Marcelo, estou utilizando o DataControl sim
MARCELO.TREZE 11/07/2012 19:28:01
#405883
então filho todos seus textbox devem estar vinculados ao datacontrol

ou seja na propiredade DataSource do textbox, vc tem que colocar o nome do datacontrol

e na propriedade DataField vc tem que colocar o nome do campo, se você ja tem tudo isto feito

no botão de salvar vai colocar apenas

Data1.Recordset.AddNew[txt-color=#007100] [ô] para salvar[/txt-color]


e no botão alterar

Data1.Recordset.Update [txt-color=#007100][ô] alterar[/txt-color]


e no botão excluir

Data1.Recordset.Delete[txt-color=#007100] [ô] Excluir[/txt-color]




pronto!
WELLINFC 11/07/2012 19:46:14
#405884
Ok Marcelo, vou fazer isto pelo menos apaguei os DataControls e não deu o erro run-time 9. Deu o erro runtime error 424..mas ainda não fiz as alterações que você me passou...assim que eu alterar te falo o que ocorreu..agradeço pela ajuda
WELLINFC 12/07/2012 19:37:58
#405964
Boa noite, tivemos um avanço no projeto seguindo as instruções do amigo Marcelo..Agora o erro esta dando quando dou um clique no botão gravar pedido. Saída é o nome que dei ao datacontrol...esta dando o erro Run-time error 3426.

esta assim o meu código:

Private Sub BtnGravaPedido_Click()
If MsgBox([Ô]Gravar Pedido?[Ô], vbYesNo, [Ô]Gravar Pedido[Ô]) = vbYes Then
Temp.Recordset.MoveFirst
Do While Temp.Recordset.EOF = False
TBProdutos.Index = [Ô]indprocodigo[Ô]
TBProdutos.Seek [Ô]=[Ô], Temp.Recordset.Fields([Ô]Código[Ô])
TBProdutos.Edit
TBProdutos([Ô]qtde[Ô]) = TBProdutos([Ô]qtde[Ô]) - Temp.Recordset.Fields([Ô]quantidade[Ô])

TBProdutos.Update
Saída.Recordset.AddNew <---- esta dando o erro nesta linha
Saída.Recordset.Fields([Ô]Data[Ô]) = MskData.Text
Saída.Recordset.Fields([Ô]cliente[Ô]) = MskCodigoCliente.Text
Saída.Recordset.Fields([Ô]produto[Ô]) = Temp.Recordset.Fields([Ô]Produto[Ô])
Saída.Recordset.Fields([Ô]prunitario[Ô]) = Temp.Recordset.Fields([Ô]precounit[Ô])
Saída.Recordset.Fields([Ô]Qtde[Ô]) = Temp.Recordset.Fields([Ô]Quantidade[Ô])
Saída.Recordset.Fields([Ô]veiculo[Ô]) = TxtVeiculo.Text
Saída.Recordset.Fields([Ô]placa[Ô]) = TxtPlaca.Text
Saída.Recordset.Update
Temp.Recordset.MoveNext
Loop
End If
ExcluiTemp
BtnBuscaProduto.Enabled = False
BtnGravaProduto.Enabled = False
BtnExcluirProduto.Enabled = False
BtnGravaPedido.Enabled = False
BtnCancelaPedido.Enabled = False
BtnCancelaProduto.Enabled = False
MskData.Enabled = False
MskCodigoProduto.Enabled = False
MskPrUnitario.Enabled = False

MskQtde.Enabled = False
MskCodigoCliente.Text = [Ô] [Ô]
LblNomeCliente.Caption = [Ô][Ô]
MskData.Text = [Ô] [Ô]
MskCodigoProduto.Text = [Ô] [Ô]
LblDescrição.Caption = [Ô][Ô]
MskPrUnitario.Text = 0

MskQtde.Text = [Ô] [Ô]
TxtVeiculo.Text = [Ô][Ô]
TxtPlaca.Text = [Ô][Ô]

MskCodigoCliente.SetFocus
LblTotaldoPedido.Caption = [Ô]R$ 0,00[Ô]
BtnBuscaCliente.Enabled = True
TxtVeiculo.Enabled = False
TxtPlaca.Enabled = False
BtnCancelaCliente.Enabled = False
BtnFechar.Enabled = True

End Sub

estou tentando, mas ainda não foi...quem poder ajudar ficarei grato
Página 2 de 2 [18 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar