CODIGO

ADRIEL 24/06/2010 19:35:02
#345733
eae to usando esse código,mas nao funciona direito....o programa esta rodando,mas nao esta incluindo os dados que digito...

Public tbbanco As Recordset
Public Banco As Database

Function jogar()
txtcod.Text = tbbanco([Ô]cod_banco[Ô])
txtagen.Text = tbbanco([Ô]agencia[Ô])
txtnome.Text = tbbanco([Ô]nome[Ô])
txtend.Text = tbbanco([Ô]endereço[Ô])
txtcid.Text = tbbanco([Ô]cidade[Ô])
txtuf.Text = tbbanco([Ô]uf[Ô])
txtemail.Text = tbbanco([Ô]email[Ô])
txttel.Text = tbbanco([Ô]telefone[Ô])
txtcodcaixa = tbbanco([Ô]cod_caixa[Ô])
tbbanco.Index = [Ô]Primarykey[Ô]
tbbanco.Seek [Ô]=[Ô], Val(txtcod)
End Function

Function limpar()
txtcod.Text = [Ô][Ô]
txtagen.Text = [Ô][Ô]
txtnome.Text = [Ô][Ô]
txtend.Text = [Ô][Ô]
txtcid.Text = [Ô][Ô]
txtuf.Text = [Ô][Ô]
txtemail.Text = [Ô][Ô]
txttel.Text = [Ô][Ô]
txtcodcaixa = [Ô][Ô]
End Function
Private Sub Form_Load()
Set Banco = OpenDatabase(App.Path + [Ô]\dcc.mdb[Ô])
Set tbbanco = Banco.OpenRecordset([Ô]banco[Ô], dbOpenTable)
End Sub

Private Sub form_unload(cancel As Integer)
tbbanco.Close
End Sub


Private Sub jcbutton1_Click() [ô]incluir
On Error Resume Next
If Trim(txtnome.Text) = [Ô][Ô] Then
frmdgtnome.Show
Unload Me
txtnome.SetFocus
End If
tbbanco.AddNew
tbbanco([Ô]agencia[Ô]) = txtagen.Text
tbbanco([Ô]nome[Ô]) = txtnome.Text
tbbanco([Ô]endereço[Ô]) = txtend.Text
tbbanco([Ô]cidade[Ô]) = txtcid.Text
tbbanco([Ô]uf[Ô]) = txtuf.Text
tbbanco([Ô]email[Ô]) = txtemail.Text
tbbanco([Ô]telefone[Ô]) = txttel.Text
tbbanco([Ô]cod_caixa[Ô]) = txtcodcaixa
tbbanco.Update
limpar
End Sub

Private Sub jcbutton2_Click() [ô]editar
On Error Resume Next
If Trim(txtnome.Text) = [Ô][Ô] Then
frmdgtnome.Show
Unload Me
txtnome.SetFocus
End If
tbbanco.Edit
tbbanco([Ô]agencia[Ô]) = txtagen.Text
tbbanco([Ô]nome[Ô]) = txtnome.Text
tbbanco([Ô]endereço[Ô]) = txtend.Text
tbbanco([Ô]cidade[Ô]) = txtcid.Text
tbbanco([Ô]uf[Ô]) = txtuf.Text
tbbanco([Ô]email[Ô]) = txtemail.Text
tbbanco([Ô]telefone[Ô]) = txttel.Text
tbbanco([Ô]cod_caixa[Ô]) = txtcodcaixa
tbbanco.Update
limpar
End Sub

Private Sub jcbutton3_Click() [ô]excluir
On Error Resume Next
tbbanco.Delete
limpar
End Sub

Private Sub jcbutton4_Click() [ô]ANTERIOR
On Error Resume Next
tbbanco.MoveFirst
jogar
End Sub

Private Sub jcbutton5_Click() [ô]PROXIMO
On Error Resume Next
tbbanco.MoveNext
jogar
End Sub

Private Sub jcbutton6_Click() [ô]FECHAR
MDIFrminicial.Show
Unload Me
End Sub

Private Sub jcbutton7_Click() [ô]LOCALIZAR
On Error Resume Next
tbbanco.Index = [Ô]INDNOME[Ô]
tbbanco.Seek [Ô]=[Ô], txtloc.Text
jogar
End Sub
PAULOOLIVEIRA 24/06/2010 22:54:52
#345745 Resposta escolhida
seu problema eh no gravar ne ? primeiro amigo, evite esse [Ô]on error resume next[Ô], e ele [Ô]esconde o seu problema[Ô],

tente assiM
Private Sub jcbutton1_Click() [ô]incluir
[ô]tire o on error
If Trim(txtnome.Text) = [Ô][Ô] Then
[ô]frmdgtnome.Show comente aqui
Unload Me
[ô] txtnome.SetFocus [ô]comente aqui
End If
tbbanco.AddNew
tbbanco([Ô]agencia[Ô]) = txtagen.Text
tbbanco([Ô]nome[Ô]) = txtnome.Text
tbbanco([Ô]endereço[Ô]) = txtend.Text
tbbanco([Ô]cidade[Ô]) = txtcid.Text
tbbanco([Ô]uf[Ô]) = txtuf.Text
tbbanco([Ô]email[Ô]) = txtemail.Text
tbbanco([Ô]telefone[Ô]) = txttel.Text
tbbanco([Ô]cod_caixa[Ô]) = txtcodcaixa
tbbanco.Update
limpar
End Sub

roda no debug, voce pode ta com problema no gravar, e o [Ô]on errore[Ô] ta escondendo entendeu ?
flw
ADRIEL 29/06/2010 15:44:59
#346080
isso eh no gravar....

vlw deu certo...
flw
Tópico encerrado , respostas não são mais permitidas
Voltar