BUTTON ALTERAR - VB6

USUARIO.EXCLUIDOS 10/06/2005 09:53:12
#88185

Estou fazendo uma aplicação q tem o ADODC e quero fazer um button Alterar e não sei como fazer, já fiz os outros button's!!

A minha Rotina é essa:

Option Explicit

Private Sub Salvar()

'Se estiver no modo de inclusão então salva
If Adodc1.Recordset.EditMode = adEditAdd Then
On Error GoTo SalvarFailure:
Adodc1.Recordset.Update 'salva o registro
On Error GoTo 0 'desabilita o tratamento de erros
'Como não precisa salvar, então desabilita a opção Salvar do Menu
mnuSalvar.Enabled = False

End If 'Inicio Tratamento de erros (SalvarDone e SalvarFailure são chamadas Labels)

SalvarDone:

Exit Sub

SalvarFailure:

MsgBox Err.Number & vbCrLf & Err.Description 'Exibe a descrição do erro

Resume SalvarDone 'continua a execução a partir da linha SalvarDone

End Sub

Private Sub cmd_alterar_Click()

MsgBox ("Em Desenvolvimento! Aguarde!")

End Sub

Private Sub cmd_excluir_Click()

'ativa o tratamento de erros
On Error GoTo DeleteFailure:

MsgBox ("Deseja mesmo excluir o Registro ?")
'exclui o registro
Adodc1.Recordset.Delete
'O registro atual agora é invalido então movemos para o anterior
Adodc1.Recordset.MovePrevious

'Se estivermos no inicio do arquivo movemos para o primeiro registro

If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveFirst
End If 'Inicio do tratamento de errosDeleteDone:

DeleteDone:
Exit Sub

DeleteFailure:

MsgBox Err.Number & vbCrLf & Err.Description

Resume DeleteDone

txt_Nome.SetFocus

Call Invisivel

End Sub

Private Sub cmd_Fechar_Click()

'Se estiver no modo de inclusão, então pergunta se quer salvar

Call Invisivel

If Adodc1.Recordset.EditMode = adEditAdd Then

If MsgBox("Deseja Salvar os dados ?", vbYesNo) = vbYes Then

Call Salvar

End If

End If

Unload Me

End Sub

Private Sub cmd_Gravar_Click()

'Se estiver no modo de inclusão , então pergunta se quer salvar
If Adodc1.Recordset.EditMode = adEditAdd Then

If MsgBox("Deseja Salvar os dados ?", vbYesNo) = vbYes Then

Call Salvar

End If

End If

txt_Nome.SetFocus

Call Invisivel
End Sub

Private Sub cmd_imprimir_Click()

' frmImprimir.Show

Dim aux As String
Dim sCaminho As String
sCaminho = App.Path

On Error GoTo trata_erro

Crystal.ReportFileName = sCaminho & "ptProprietario.rpt"

CommonDialog1.CancelError = True

CommonDialog1.Flags = 64

CommonDialog1.ShowPrinter

Crystal.Action = 1

Exit Sub

trata_erro:

MsgBox "Erro no Relatório!" & vbCrLf & _
"Informe ao Técnico Responsável"

End Sub

Private Sub cmd_incluir_Click()

'Inclui uma nova linha em branco na memória
Adodc1.Recordset.AddNew
'habilita a opção Salvar do Menu

Call Visivel

mnuSalvar.Enabled = True

txt_Nome.SetFocus
Cmb_Estado_Civil.Text = "Escolha o Estado Civil"
cmd_Gravar.Enabled = True

End Sub

Private Sub Form_Load()

Me.Top = 590
Me.Left = 0

End Sub

Private Sub mnuAlterar_Click()

Call cmd_alterar_Click

End Sub

Private Sub mnuConsulta_Endereco_Click()

Consulta_Endereco.Show
Proprietario.Visible = True

End Sub

Private Sub mnuConsulta_Telefone_Click()

Consulta_Telefone.Show
Proprietario.Visible = True

End Sub

Private Sub mnuDeletar_Click()

Call cmd_excluir_Click

End Sub

Private Sub mnuImprimir_Click()

Call cmd_imprimir_Click

End Sub

Private Sub mnuNovo_Click()

Call cmd_incluir_Click

End Sub

Private Sub mnuSair_Click()

Call cmd_Fechar_Click

End Sub

Private Sub mnuSalvar_Click()

Call cmd_Gravar_Click

End Sub

Private Sub Invisivel()

txt_Nome.Enabled = False
lbl_nome.Enabled = False
txt_Endereco_Residencial.Enabled = False
lbl_Endereco_Residencial.Enabled = False
txt_Endereco_Trabalho.Enabled = False
lbl_Endereco_Trabalho.Enabled = False
txt_Telefone_Residencial.Enabled = False
lbl_Telefone_Residencial.Enabled = False
txt_Telefone_Comercial.Enabled = False
lbl_Telefone_comercial.Enabled = False
txt_Celular.Enabled = False
lbl_Celular.Enabled = False
txt_Fax.Enabled = False
lbl_Fax.Enabled = False
Cmb_Estado_Civil.Enabled = False
lbl_Estado_Civil.Enabled = False
txt_Identidade.Enabled = False
lbl_Identidade.Enabled = False
txt_CPF.Enabled = False
lbl_CPF.Enabled = False
txt_Profissao.Enabled = False
lbl_Profissao.Enabled = False

End Sub

Private Sub Visivel()

txt_Nome.Enabled = True
lbl_nome.Enabled = True
txt_Endereco_Residencial.Enabled = True
lbl_Endereco_Residencial.Enabled = True
txt_Endereco_Trabalho.Enabled = True
lbl_Endereco_Trabalho.Enabled = True
txt_Telefone_Residencial.Enabled = True
lbl_Telefone_Residencial.Enabled = True
txt_Telefone_Comercial.Enabled = True
lbl_Telefone_comercial.Enabled = True
txt_Celular.Enabled = True
lbl_Celular.Enabled = True
txt_Fax.Enabled = True
lbl_Fax.Enabled = True
Cmb_Estado_Civil.Enabled = True
lbl_Estado_Civil.Enabled = True
txt_Identidade.Enabled = True
lbl_Identidade.Enabled = True
txt_CPF.Enabled = True
lbl_CPF.Enabled = True
txt_Profissao.Enabled = True
lbl_Profissao.Enabled = True

End Sub

Private Sub txt_Endereco_Residencial_Change()

If Len(Trim(txt_Endereco_Residencial.Text)) = 1 Then
txt_Endereco_Residencial.Text = UCase(txt_Endereco_Residencial.Text)
txt_Endereco_Residencial.SelStart = 1
End If

End Sub

Private Sub txt_Endereco_Trabalho_Change()

If Len(Trim(txt_Endereco_Trabalho.Text)) = 1 Then
txt_Endereco_Trabalho.Text = UCase(txt_Endereco_Trabalho.Text)
txt_Endereco_Trabalho.SelStart = 1
End If

End Sub

Private Sub Cmb_Estado_Civil_Change()

If Len(Trim(Cmb_Estado_Civil.Text)) = 1 Then
Cmb_Estado_Civil.Text = UCase(Cmb_Estado_Civil.Text)
Cmb_Estado_Civil.SelStart = 1
End If

End Sub

Private Sub txt_Nome_Change()

If Len(Trim(txt_Nome.Text)) = 1 Then
txt_Nome.Text = UCase(txt_Nome.Text)
txt_Nome.SelStart = 1
End If

End Sub

Private Sub txt_Profissao_Change()

If Len(Trim(txt_Profissao.Text)) = 1 Then
txt_Profissao.Text = UCase(txt_Profissao.Text)
txt_Profissao.SelStart = 1
End If

End Sub

[txt-color=#ff0000]Alguém pode me ajudar!!

Obrigado!!![/txt-color]