MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Código anterior em caixa de texto

    avatar
    rmjsantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 84
    Registrado : 31/10/2014

    [Resolvido]Código anterior em caixa de texto Empty [Resolvido]Código anterior em caixa de texto

    Mensagem  rmjsantos em 9/1/2020, 10:01

    Olá Amigos
    Estou com uma dúvida e talvez seja algo simples.
    Tenho um formulario onde faço o cadastro dos colaboradores, e pretendo que em uma caixa de texto apareça o codigo anterior do colaborador digitado.

    Abraços e obrigado.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4198
    Registrado : 06/11/2009

    [Resolvido]Código anterior em caixa de texto Empty Re: [Resolvido]Código anterior em caixa de texto

    Mensagem  Assis em 9/1/2020, 10:52

    Bom dia Rui

    Poste só a tabela e o formulário



    .................................................................................
    *** Só sei que nada sei ***
    avatar
    rmjsantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 84
    Registrado : 31/10/2014

    [Resolvido]Código anterior em caixa de texto Empty Re: [Resolvido]Código anterior em caixa de texto

    Mensagem  rmjsantos em 9/1/2020, 20:02

    Envio a BD.
    A caixa de texto é txtNiiAnterior que pretendo que apareça o valor do campo nii do registo anterior.
    Mais uma questão:
    É possível ao sair do formulário eliminar todos os registos com o campo nii em branco, ou seja, se nii estiver sem dados, eliminar todos os registos ao sair do formulário.
    Obrigado
    avatar
    rmjsantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 84
    Registrado : 31/10/2014

    [Resolvido]Código anterior em caixa de texto Empty Re: [Resolvido]Código anterior em caixa de texto

    Mensagem  rmjsantos em 9/1/2020, 20:04

    Aqui vai a BD.
    Anexos
    [Resolvido]Código anterior em caixa de texto Attachmentcadastro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (79 Kb) Baixado 5 vez(es)
    avatar
    rmjsantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 84
    Registrado : 31/10/2014

    [Resolvido]Código anterior em caixa de texto Empty Re: [Resolvido]Código anterior em caixa de texto

    Mensagem  rmjsantos em 10/1/2020, 14:06

    Olá a todos,
    Alguém pode ajudar, haverá forma de resolver o que pretendo?
    Mais uma vez sou muito grato por todos deste fórum.

    Abraço a todos
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2103
    Registrado : 22/11/2016

    [Resolvido]Código anterior em caixa de texto Empty Re: [Resolvido]Código anterior em caixa de texto

    Mensagem  DamascenoJr. em 11/1/2020, 02:53

    Veja se atende.
    Anexos
    [Resolvido]Código anterior em caixa de texto Attachmentcadastro_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (92 Kb) Baixado 16 vez(es)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    rmjsantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 84
    Registrado : 31/10/2014

    [Resolvido]Código anterior em caixa de texto Empty Re: [Resolvido]Código anterior em caixa de texto

    Mensagem  rmjsantos em 11/1/2020, 21:31

    Muito obrigado pela sua ajuda Damasceno.
    É mesmo isso que precisava, elimina os dados ao sair.
    Obrigado.
    No entanto, falta apenas a situação de aparecer o valor do campo nii do registo anterior. É possível?

    avatar
    rmjsantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 84
    Registrado : 31/10/2014

    [Resolvido]Código anterior em caixa de texto Empty Re: [Resolvido]Código anterior em caixa de texto

    Mensagem  rmjsantos em 11/1/2020, 21:32

    Pretendo que apareça o valor do campo nii do registo anterior na caixa de texto é txtNiiAnterior do formulário.
    Obrigado
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2103
    Registrado : 22/11/2016

    [Resolvido]Código anterior em caixa de texto Empty Re: [Resolvido]Código anterior em caixa de texto

    Mensagem  DamascenoJr. em 12/1/2020, 21:41

    No exemplo que enviei já existe essa funcionalidade. Baixe novamente o exemplo e navegue para o registro 2 e veja que aparece o código do registro anterior.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    rmjsantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 84
    Registrado : 31/10/2014

    [Resolvido]Código anterior em caixa de texto Empty Re: [Resolvido]Código anterior em caixa de texto

    Mensagem  rmjsantos em 13/1/2020, 14:59

    Obrigado Damasceno pela sua ajuda, mas está a dar erro.
    Assim que adiciono um novo registo, dá erro.
    Outra coisa que acontece, é que quando adiciono o novo registo, ou altero um registo, na caixa de texto txtNiiAnterior não aparece o valor do registo anterior actualizado, ou seja, tenho de fechar o formulário e abrir novamente para que apareça os dados actualizados.
    Obrigado uma vez mais pela sua ajuda e disponibilidade.
    Anexo ficheiros com o erro que está a dar.
    Anexos
    [Resolvido]Código anterior em caixa de texto AttachmentmsgErro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (668 Kb) Baixado 3 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2103
    Registrado : 22/11/2016

    [Resolvido]Código anterior em caixa de texto Empty Re: [Resolvido]Código anterior em caixa de texto

    Mensagem  DamascenoJr. em 13/1/2020, 23:53

    Veja se resolve.
    Anexos
    [Resolvido]Código anterior em caixa de texto Attachmentcadastro_rev2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (99 Kb) Baixado 16 vez(es)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    rmjsantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 84
    Registrado : 31/10/2014

    [Resolvido]Código anterior em caixa de texto Empty Re: [Resolvido]Código anterior em caixa de texto

    Mensagem  rmjsantos em 14/1/2020, 09:29

    Damasceno

    É mesmo isto.
    Muitíssimo obrigado pela sua ajuda e empenho.
    Agradeço muito.

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2103
    Registrado : 22/11/2016

    [Resolvido]Código anterior em caixa de texto Empty Re: [Resolvido]Código anterior em caixa de texto

    Mensagem  DamascenoJr. em 15/1/2020, 01:10

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Jungli
    Jungli
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 676
    Registrado : 07/05/2010

    [Resolvido]Código anterior em caixa de texto Empty Re: [Resolvido]Código anterior em caixa de texto

    Mensagem  Jungli em 15/1/2020, 17:58

    Sei que o tópico já está encerrado, mas gostaria de mostrar outra forma de fazer o mesmo, afinal informação nunca é de mais.

    Private Sub Form_Current()
    '// Cria e popula a variável
    Dim iRec As Integer: iRec = Me.NewRecord
    '// Verifica se está em um novo registro
    If iRec = True Then
    '// Popula o campo informado no formulário
    Me.txtNiiAnterior.Value = DLast("[nii]", Me.RecordSource)
    End If
    '// Fim
    Exit Sub
    End Sub

    Bem simples e evita muitas idas à tabela ganhando assim mais velocidade.

    Abs,


    .................................................................................
    "Somos o que repetidamente fazemos.
    A excelência, portanto, não é um feito,
    mas um hábito."

    Aristóteles
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2103
    Registrado : 22/11/2016

    [Resolvido]Código anterior em caixa de texto Empty Re: [Resolvido]Código anterior em caixa de texto

    Mensagem  DamascenoJr. em 15/1/2020, 22:49

    cheers

    Obrigado por contribuir com o tópico.

    Vendo seu código, notei três pontos.

    1. Embora usar DLast apontando como domínio o Me.RecordSource faça parecer que a função não viajaria até a tabela, e que trabalharia diretamente no formulário, isso não acontece. No final, Me.RecordSource equivale a tblColaboradores e a função viajaria até a tabela mesmo assim para buscar o valor (correndo o risco inclusive buscar o valor em um registro aleatório, conforme a ajuda do access sobre a função DLast).

    2. As funções D (DLast, DMax, DMin etc) só funcionam quando o parâmetro domínio aponta para uma tabela ou consulta previamente existente. Se na propriedade fonte do registro (RecordSource) fosse usado uma instrução SQL (SELECT * FROM tblColaboradores ORDER BY tblColaboradores.codNii DESC;), o Access exibiria uma mensagem de erro.

    3. Mesmo que seja trocado recordset pelas função DLast (a sintaxe é até mais simples Very Happy ), e que instruções SQLs não sejam usadas na propriedade fonte do registro (RecordSource) do formulário, as viagens diminuiriam, mas somente porque o código só viajaria à tabela nos casos de um novo registro. Sendo assim, como ficaria a solicitação do rmjsantos que gostaria de ver os nii anteriores à medida que navega pelos registros?


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 9/7/2020, 02:55