Editar Registro

[AlexMunhoz]

Private Sub cmdCadastrar_Click()

rs.AddNew

rs.Fields("nome").Value = txtNome.Text

rs.Fields("icq").Value = txtICQ.Text

rs.Update

end sub

Assim eu cadastro, como posso fazer para editar esse registo?

[Rafael_Tomitao]

Alex,

Tente isso

Private Sub cmdCadastrar_Click()

rs.Edit

rs.Fields("nome").Value = txtNome.Text

rs.Fields("icq").Value = txtICQ.Text

rs.Update

end sub

espero que te ajude

[]'s

[AlexMunhoz]

rs.Edit

Amigão deu erro.

A linha ficou marcada em amarelo.

[Rafael_Tomitao]

Alex,

você pode descrever o erro...???

e tente dar uma olhadinha nesta pagina

Macoratti

[]'s

[AlexMunhoz]

você pode descrever o erro...???

Compile error:

Method or data member not found

esse qui amigão..

[AlexMunhoz]

Amigo, Muito obrigado pela sua ajuda,

consegui resolver.

ficou assim

Private Sub cmdEditar_Click()
If cmdEditar.Caption = "Editar" Then
    txtNome.Enabled = True
    txtICQ.Enabled = True
    cmdEditar.Caption = "Salvar"
ElseIf cmdEditar.Caption = "Salvar" Then
    rs.Fields("nome").Value = txtNome.Text
    rs.Fields("icq").Value = txtICQ.Text
    rs.Update
    cmdEditar.Caption = "Editar"
    txtNome.Enabled = False
    txtICQ.Enabled = False
End If
End Sub

ABRAÇÃO......