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


3 participantes

    Problema ao salvar registos em Access

    avatar
    Lina1802
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3
    Registrado : 19/06/2017

    Problema ao salvar registos em Access Empty Problema ao salvar registos em Access

    Mensagem  Lina1802 19/6/2017, 00:15

    Boa noite,

    Agradeço a vossa ajuda para a seguinte questão:

    Estou a criar uma base de dados em Access versão 2016. Estou a criar uma base de dados que registe as entradas e saídas, ao inserir o utilizador e a senha automaticamente aparece o registo de entrada, o nome e o processo da pessoa. Quando tento salvar as alterações do registo, fica gravado sobre outro registo, eliminando o registo anterior. O que pretendo saber é como devo fazer para que actualize os registos e não os apague?

    Os códigos que coloquei são os seguintes:
    Private Sub Comando12_Click()
    Dim nprocesso As Integer
    Dim Nome_do_aluno As String
    Dim n_processo As Integer
    Dim Nome_do_aluno1 As String
    Dim Data1 As Currency
    Dim HoraEntrada As Currency
    Dim Responsávelentrada As String
    Dim HoraSaída As Currency
    Dim Responsávelsaída As String
    If Nz(DLookup("Senha", "Utilizadores", "Utilizador = '" & Me.Texto8.Value & "'")) = Me.Texto10 = False Then
    MsgBox ("Utilizador ou senha incorretos, tente novamente."), vbCritical, "Erro"
    Else
    If IsNull(check1 And check2) Or check1 = False And check2 = False Then
    MsgBox ("Selecione uma das opções abaixo."), vbCritical, "Aviso"
    If IsNull(Me.Texto8 And Me.Texto10) Then
    MsgBox ("Insira o utilizador/senha!"), vbCritical, "Aviso"
    End If
    End If
    End If
    If check1 = True And Nz(DLookup("Senha", "Utilizadores", "Utilizador = '" & Me.Texto8.Value & "'")) = Me.Texto10 Then
    DoCmd.OpenForm ("Entrada")
    Forms![Entrada]![nprocesso] = DLookup("[NºProcesso]", "Utilizadores", "[Utilizador] = '" & Me.Texto8.Value & "'")
    Forms![Entrada]![Nome_do_aluno] = DLookup("[Nome_do_aluno]", "Utilizadores", "[Utilizador]='" & Me.Texto8.Value & "'")
    DoCmd.Close acForm, "FPrincipal"
    Else
    If check2 = True And Nz(DLookup("Senha", "Utilizadores", "Utilizador = '" & Me.Texto8.Value & "'")) = Me.Texto10 Then
    DoCmd.OpenForm ("Saída")
    Forms![Saída]![n_processo] = DLookup("[NºProcesso]", "Utilizadores", "[Utilizador] = '" & Me.Texto8.Value & "'")
    Forms![Saída]![Nome_do_aluno1] = DLookup("[Nome_do_aluno]", "Utilizadores", "[Utilizador]='" & Me.Texto8.Value & "'")
    Forms![Saída]![Data1] = DLast("Data", "TBL_Entradas/Saídas dos alunos", "[NºProcesso]= Forms![Saída]![n_processo]")
    Forms![Saída]![HoraEntrada] = DLast("Hora_entrada", "TBL_Entradas/Saídas dos alunos", "[NºProcesso]=Forms![Saída]![n_processo]")
    Forms![Saída]![Responsávelentrada] = DLast("Responsável_entrada", "TBL_Entradas/Saídas dos alunos", "[NºProcesso]=Forms![Saída]![n_processo]")
    Forms![Saída]![HoraSaída] = DLast("HoraSaída1", "TBL_Entradas/Saídas dos alunos", "[NºProcesso]=Forms![Saída]![n_processo]")
    Forms![Saída]![Responsávelsaída] = DLast("Responsável_saída", "TBL_Entradas/Saídas dos alunos", "[NºProcesso]=Forms![Saída]![n_processo]")
    DoCmd.Close acForm, "FPrincipal"
    If IsNull(Forms![Saída]![HoraSaída]) Then
    Forms![Saída]![HoraSaída] = Now()
    End If
    End If
    End If
    End Sub

    Obrigado desde já pela vossa ajuda
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 377
    Registrado : 23/01/2017

    Problema ao salvar registos em Access Empty Re: Problema ao salvar registos em Access

    Mensagem  thiagomcosta 19/6/2017, 15:34

    Olá!

    Pelo que vi seu código abre o formulário e edita as informações. Desta maneira sempre irá sobrescrever os dados do primerio registro.

    Abra o formulário incluindo um registro,  desta maneira:
    Código:
    DoCmd.OpenForm "Entrada", , , , acFormAdd
    avatar
    Lina1802
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3
    Registrado : 19/06/2017

    Problema ao salvar registos em Access Empty Re: Problema ao salvar registos em Access

    Mensagem  Lina1802 19/6/2017, 17:55

    Desde já quero agradecer a sua disponibilidade em ajudar-me no projeto. Tentei aquilo que recomendou e infelizmente o problema continua. O objetivo do meu projeto é inserir um utilizador e senha que ao selecionar uma das checkbox regista a entrada/saída do utilizador, o formulário da entrada funciona bem pois são criados novos registos (insere o nºprocesso e o nome da pessoa de acordo com o utilizador/senha inserido através de dlookups, a data e a hora do sistema, isto tudo automaticamente). O formulário da saída utilizo dlookups em todos os campos para tentar evitar confusão por parte das pessoas, no entanto ao guardar o registo, ele guarda sobre outro registo. Os botões de navegação não são uma opção porque eu queria que apenas as pessoas que sabem o utilizador e a senha podem registar a entrada/saída sem ter acesso aos registos dos outros utilizadores.
    Já tentei várias coisas e nada parece resolver esse problema.
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1416
    Registrado : 07/12/2011

    Problema ao salvar registos em Access Empty Re: Problema ao salvar registos em Access

    Mensagem  tauron 19/6/2017, 20:04

    Poderia postar seu banco? Assim poderemos proporcionar uma ajuda melhorada.

    Observe este link.
    avatar
    Lina1802
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3
    Registrado : 19/06/2017

    Problema ao salvar registos em Access Empty Re: Problema ao salvar registos em Access

    Mensagem  Lina1802 19/6/2017, 21:31

    Mais uma vez agradeço a vossa ajuda, a base de dados encontra-se no seguinte link : https://www.dropbox.com/s/9y3j8bwpds57avi/Base%20de%20Dados%20AAD.accdb?dl=0

    Conteúdo patrocinado


    Problema ao salvar registos em Access Empty Re: Problema ao salvar registos em Access

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/11/2024, 18:45