Boa tarde,
Tenho uma caixa de combinação (cbxlogin) onde seleciono a matrícula do funcionário. Coloquei abaixo caixas de textos que buscam a informação do funcionário selecionado na tabela Usuario, não sei se foi o mais apropriado mas utilizei o código abaixo para trazer as informações:
If Not IsNull(Me.cbxLogin) Then
txtMatricula = DLookup("Right(login, 8 )", "Usuario", "Right(login, 7)='" & Right(Me.cbxLogin, 7) & "'")
txtNome = DLookup("Nome", "Usuario", "Right(login, 7)='" & Right(Me.cbxLogin, 7) & "'")
cbxGrupo = DLookup("grupo", "Usuario", "Right(login, 7)='" & Right(Me.cbxLogin, 7) & "'")
txtEquipe = DLookup("equipe", "Usuario", "right(login, 7)='" & Right(Me.cbxLogin, 7) & "'")
Else
MsgBox "A matrícula informada inexistente!"
end if
Consigo obter a informação da tabela, mas com o código que coloquei no botão de salvar as vezes ele cria registros duplicados e as vezes não. Gostaria que ele somente editasse a tabela e não criasse registros novos. Confesso que não sei se o select está correto, pois não entendo muito.
Set db = CurrentDb
Set rsUsuario = db.OpenRecordset("SELECT * FROM Usuario")
rsUsuario.MoveFirst
rsUsuario.Edit
rsUsuario!Login = Me.txtMatricula
rsUsuario!Nome = Me.txtNome
rsUsuario!grupo = Me.cbxGrupo
rsUsuario!equipe = Me.txtEquipe
rsUsuario.Update
rsUsuario.Close
MsgBox "Registro alterado com sucesso!"
DoCmd.Close
Tenho uma caixa de combinação (cbxlogin) onde seleciono a matrícula do funcionário. Coloquei abaixo caixas de textos que buscam a informação do funcionário selecionado na tabela Usuario, não sei se foi o mais apropriado mas utilizei o código abaixo para trazer as informações:
If Not IsNull(Me.cbxLogin) Then
txtMatricula = DLookup("Right(login, 8 )", "Usuario", "Right(login, 7)='" & Right(Me.cbxLogin, 7) & "'")
txtNome = DLookup("Nome", "Usuario", "Right(login, 7)='" & Right(Me.cbxLogin, 7) & "'")
cbxGrupo = DLookup("grupo", "Usuario", "Right(login, 7)='" & Right(Me.cbxLogin, 7) & "'")
txtEquipe = DLookup("equipe", "Usuario", "right(login, 7)='" & Right(Me.cbxLogin, 7) & "'")
Else
MsgBox "A matrícula informada inexistente!"
end if
Consigo obter a informação da tabela, mas com o código que coloquei no botão de salvar as vezes ele cria registros duplicados e as vezes não. Gostaria que ele somente editasse a tabela e não criasse registros novos. Confesso que não sei se o select está correto, pois não entendo muito.
Set db = CurrentDb
Set rsUsuario = db.OpenRecordset("SELECT * FROM Usuario")
rsUsuario.MoveFirst
rsUsuario.Edit
rsUsuario!Login = Me.txtMatricula
rsUsuario!Nome = Me.txtNome
rsUsuario!grupo = Me.cbxGrupo
rsUsuario!equipe = Me.txtEquipe
rsUsuario.Update
rsUsuario.Close
MsgBox "Registro alterado com sucesso!"
DoCmd.Close