Tenho um programa que cadastra pessoas e depois eu tenho a opção de editar.. como faço para editar??? Pois só da erro...
Private Sub Command2_Click()
If (Nm_Agencia.Text = "") Or (Agencia.Text = "") Or (End_Agencia.Text = "") Or (Tel_Agencia.Text = "") Or (Contato_Agencia.Text = "") Then
MsgBox " Você Precisa preencher os campos antes de cadastrar!!!!", vbExclamation
Exit Sub
End If
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("
\10.11.24.15c$PROGRAMASModuloNepom fti.mdb", False, False)
Set tb = db.OpenRecordset("select Nm_Agencia from Agencia where Nm_agencia = " & Localizar.Text & "")
tb.Edit
tb("Nm_Agencia") = Nm_Agencia.Text
tb("Agencia") = Agencia.Text
tb("End_Agencia") = End_Agencia.Text
tb("Tel_Agencia") = Tel_Agencia.Text
tb("Contato_agencia") = Contato_Agencia.Text
MsgBox "Editado com Sucesso!!!", vbExclamation
tb.Update
tb.Close
End Sub
Obrigada!!!
