PROBLEMA AO CADASTRAR
to com problema nesse codigo .....
vou marcar onde da o erro....
Private Sub jcbutton8_Click() [ô]incluir
[ô]On Error Resume Next
If Trim(txtnome.Text) = [Ô][Ô] Then
[ô]frmdgtcliente.Show
[ô]Unload Me
[ô]txtnome.SetFocus
End If
tbcliente.AddNew
tbcliente([Ô]nome[Ô]) = txtnome.Text
tbcliente([Ô]endereço[Ô]) = txtend.Text
tbcliente([Ô]cidade[Ô]) = txtcid.Text
tbcliente([Ô]uf[Ô]) = txtuf.Text
tbcliente([Ô]cep[Ô]) = txtcep.Text
tbcliente([Ô]telefone[Ô]) = txttel.Text
tbcliente([Ô]cod_mercadoria[Ô]) = txtcodmerc.Text
tbcliente([Ô]cod_empresa[Ô]) = txtcodemp.Text
tbcliente([Ô]cod_caixa[Ô]) = txtcodcaixa.Text
tbcliente([Ô]cod_matriculado[Ô]) = txtcodmatri.Text
[txt-color=#e80000]tbcliente.Update[/txt-color]
limpar
End Sub
flw
vou marcar onde da o erro....
Private Sub jcbutton8_Click() [ô]incluir
[ô]On Error Resume Next
If Trim(txtnome.Text) = [Ô][Ô] Then
[ô]frmdgtcliente.Show
[ô]Unload Me
[ô]txtnome.SetFocus
End If
tbcliente.AddNew
tbcliente([Ô]nome[Ô]) = txtnome.Text
tbcliente([Ô]endereço[Ô]) = txtend.Text
tbcliente([Ô]cidade[Ô]) = txtcid.Text
tbcliente([Ô]uf[Ô]) = txtuf.Text
tbcliente([Ô]cep[Ô]) = txtcep.Text
tbcliente([Ô]telefone[Ô]) = txttel.Text
tbcliente([Ô]cod_mercadoria[Ô]) = txtcodmerc.Text
tbcliente([Ô]cod_empresa[Ô]) = txtcodemp.Text
tbcliente([Ô]cod_caixa[Ô]) = txtcodcaixa.Text
tbcliente([Ô]cod_matriculado[Ô]) = txtcodmatri.Text
[txt-color=#e80000]tbcliente.Update[/txt-color]
limpar
End Sub
flw
e qual é o erro?
vou tentar advinhar
vc abriu a tabela com o OpenRecordset ?
vou tentar advinhar
vc abriu a tabela com o OpenRecordset ?
exatamente isso
ADRIEL.
Qual a mensagem de erro?
Será que você pode estar esquecendo de alimentar valor em um campo que é NÃO NULO ?
Qual a mensagem de erro?
Será que você pode estar esquecendo de alimentar valor em um campo que é NÃO NULO ?
Boa tarde,
A tabela pelo que vi não foi aberta tenta incluir a linha em azul
Private Sub jcbutton8_Click() [ô]incluir
[ô]On Error Resume Next
If Trim(txtnome.Text) = [Ô][Ô] Then
[ô]frmdgtcliente.Show
[ô]Unload Me
[ô]txtnome.SetFocus
End If
[txt-color=#0000f0]set tbcliente = banco.openrecordset([Ô]nomedatabela[Ô],dbopendynaset)[/txt-color] [ô] Altere [txt-color=#e80000]Banco[/txt-color] para o nome da variável que grava sua conexão.
tbcliente.AddNew
tbcliente([Ô]nome[Ô]) = txtnome.Text
tbcliente([Ô]endereço[Ô]) = txtend.Text
tbcliente([Ô]cidade[Ô]) = txtcid.Text
tbcliente([Ô]uf[Ô]) = txtuf.Text
tbcliente([Ô]cep[Ô]) = txtcep.Text
tbcliente([Ô]telefone[Ô]) = txttel.Text
tbcliente([Ô]cod_mercadoria[Ô]) = txtcodmerc.Text
tbcliente([Ô]cod_empresa[Ô]) = txtcodemp.Text
tbcliente([Ô]cod_caixa[Ô]) = txtcodcaixa.Text
tbcliente([Ô]cod_matriculado[Ô]) = txtcodmatri.Text
tbcliente.Update
limpar
End Sub
A tabela pelo que vi não foi aberta tenta incluir a linha em azul
Private Sub jcbutton8_Click() [ô]incluir
[ô]On Error Resume Next
If Trim(txtnome.Text) = [Ô][Ô] Then
[ô]frmdgtcliente.Show
[ô]Unload Me
[ô]txtnome.SetFocus
End If
[txt-color=#0000f0]set tbcliente = banco.openrecordset([Ô]nomedatabela[Ô],dbopendynaset)[/txt-color] [ô] Altere [txt-color=#e80000]Banco[/txt-color] para o nome da variável que grava sua conexão.
tbcliente.AddNew
tbcliente([Ô]nome[Ô]) = txtnome.Text
tbcliente([Ô]endereço[Ô]) = txtend.Text
tbcliente([Ô]cidade[Ô]) = txtcid.Text
tbcliente([Ô]uf[Ô]) = txtuf.Text
tbcliente([Ô]cep[Ô]) = txtcep.Text
tbcliente([Ô]telefone[Ô]) = txttel.Text
tbcliente([Ô]cod_mercadoria[Ô]) = txtcodmerc.Text
tbcliente([Ô]cod_empresa[Ô]) = txtcodemp.Text
tbcliente([Ô]cod_caixa[Ô]) = txtcodcaixa.Text
tbcliente([Ô]cod_matriculado[Ô]) = txtcodmatri.Text
tbcliente.Update
limpar
End Sub
da erro no [Ô]tbcliente.update[Ô]
como eu faço para saber se ta faltando algum campo não nulo?
Tópico encerrado , respostas não são mais permitidas