boa tarde a todos
tenho o código abaixo ele esta dando erro na pesquisa , mas não consigo descobrir o que é
por favor alguém poderia me ajudar ?
no caso ele edita um cadastro já existente
segue código :
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM ADM-MFASC WHERE Código=" & Me.Txt_nome.Column(0) & "")
Do While Not rs.EOF
rs.Edit
rs("email") = Me.Txt_email
rs("setor") = Me.Txt_cargo
rs("Login") = Me.Txt_login
rs("senha") = Me.Txt_senha
rs("foto") = Me.Txt_Foto
rs.Update
rs.MoveNext
Loop
Set rs = Nothing
Set db = Nothing
End Sub
tenho o código abaixo ele esta dando erro na pesquisa , mas não consigo descobrir o que é
por favor alguém poderia me ajudar ?
no caso ele edita um cadastro já existente
segue código :
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM ADM-MFASC WHERE Código=" & Me.Txt_nome.Column(0) & "")
Do While Not rs.EOF
rs.Edit
rs("email") = Me.Txt_email
rs("setor") = Me.Txt_cargo
rs("Login") = Me.Txt_login
rs("senha") = Me.Txt_senha
rs("foto") = Me.Txt_Foto
rs.Update
rs.MoveNext
Loop
Set rs = Nothing
Set db = Nothing
End Sub
- Anexos
- Gestão de Ações.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (31 Kb) Baixado 6 vez(es)