MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    Recordset cria registros em vez de alterar

    avatar
    guism
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 23
    Registrado : 05/11/2015

    Recordset cria registros em vez de alterar Empty Recordset cria registros em vez de alterar

    Mensagem  guism 5/5/2016, 17:31

    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
    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

    Recordset cria registros em vez de alterar Empty Re: Recordset cria registros em vez de alterar

    Mensagem  ifahidalgo 10/5/2016, 20:30

    no evento clicar do botão salvar faça

    Dim strSql As String, rstTemp As DAO.Recordset

    strSql = "Select * from Usuario where login = int(val('" & txtmatricula & "'))" 'se matricula for numerico
    Set rstTemp = CurrentDb.OpenRecordset(strSql, dbOpenDynaset)

    If Not rstTemp.EOF Then
    rstTemp.Edit
    rstTemp("login") = txtmatricula
    rstTemp("nome") = txtnome
    rstTemp("grupo") = cbxgrupo
    .
    .
    .
    rstTemp.Update
    rstTemp.Close
    Set rstTemp = Nothing

    MsgBox "Registro alterado com sucesso!"
    DoCmd.Close
    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

    Recordset cria registros em vez de alterar Empty Re: Recordset cria registros em vez de alterar

    Mensagem  ifahidalgo 10/5/2016, 20:32

    habilitando em referencias microsoft activex data objects recordset 2.8 library
    avatar
    guism
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 23
    Registrado : 05/11/2015

    Recordset cria registros em vez de alterar Empty Re: Recordset cria registros em vez de alterar

    Mensagem  guism 12/5/2016, 16:39

    Não deu certo.

    Será que o erro não ta na forma como eu to trazendo o registro? Parece que ele não entende que é o mesmo.
    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

    Recordset cria registros em vez de alterar Empty Re: Recordset cria registros em vez de alterar

    Mensagem  ifahidalgo 12/5/2016, 16:40

    no codigo que passei, onde deu erro.

    Conteúdo patrocinado


    Recordset cria registros em vez de alterar Empty Re: Recordset cria registros em vez de alterar

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/5/2024, 10:34