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.MoveMin
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
Alguém pode me ajudar!!
Obrigado!!!
