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

    Abrir registo via formulário

    avatar
    MinaMaria
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 35
    Registrado : 05/08/2015

    Abrir registo via formulário Empty Abrir registo via formulário

    Mensagem  MinaMaria 22/1/2021, 13:00

    Boa tarde
    Tenho uma base de dados, access, de acidentes rodoviários. Criei um formulário para os pendentes de resolução. Nele aparecem todos os registos em que "conclusão" seja falso.
    Para "abrir" o acidente em questão estou a utilizar o seguinte código:

    Private Sub Lista0_DblClick(Cancel As Integer)
    On Error Resume Next
     Dim stDocName As String
     Dim stLinkCriteria As String
     Dim strsql As String
       stDocName = "ACIDENTES"
       stLinkCriteria = "[ID]=" & Me![Lista0]
       strsql = "SELECT * FROM ACIDENTES WHERE " & stLinkCriteria
       DoCmd.OpenForm stDocName, acNormal, , , , acHidden
       Forms!ACIDENTES.RecordSource = strsql
       DoCmd.OpenForm stDocName, acNormal, , , , acWindowNormal
    End Sub

    Mas não abre a linha que pretendo. O que estou a fazer mal?
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7956
    Registrado : 05/11/2009

    Abrir registo via formulário Empty Re: Abrir registo via formulário

    Mensagem  Alexandre Neves 22/1/2021, 16:33

    Boa tarde
    Em vez de
    stLinkCriteria = "[ID]=" & Me![Lista0]
    Tente
    stLinkCriteria = "[ID]=" & Lista0.ItemData(Lista0.ListIndex)


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    MinaMaria
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 35
    Registrado : 05/08/2015

    Abrir registo via formulário Empty Re: Abrir registo via formulário

    Mensagem  MinaMaria 27/1/2021, 08:21

    Bom dia,

    Tentei a sugestão, mas abre só o primeiro registo da tabela. Para onde posso enviar os dados para dar uma vista de olhos? O mais engraçado é que na base de dados de 2020 funciona
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

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

    Abrir registo via formulário Empty Re: Abrir registo via formulário

    Mensagem  Assis 27/1/2021, 09:38



    .................................................................................
    *** Só sei que nada sei ***
    avatar
    MinaMaria
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 35
    Registrado : 05/08/2015

    Abrir registo via formulário Empty Re: Abrir registo via formulário

    Mensagem  MinaMaria 27/1/2021, 12:43

    Boa tarde

    Aqui vai ficheiro
    Anexos
    Abrir registo via formulário AttachmentSINISTROS-2021.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (772 Kb) Baixado 9 vez(es)
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

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

    Abrir registo via formulário Empty Re: Abrir registo via formulário

    Mensagem  Assis 5/2/2021, 09:58

    Bom dia Maria

    Será isto ?

    Quando registar o acidente como concluído, ele desaparece da lista dos pendentes.


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

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

    Abrir registo via formulário Empty Re: Abrir registo via formulário

    Mensagem  Assis 9/2/2021, 11:05

    Maria resolveu ?


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    MinaMaria
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 35
    Registrado : 05/08/2015

    Abrir registo via formulário Empty Re: Abrir registo via formulário

    Mensagem  MinaMaria 9/2/2021, 11:58

    Obrigada pela tentativa.

    O que eu preciso é ao clickar 2x no registo de pendentes, abrir o formulário correspondente àquela linha

      Data/hora atual: 17/6/2021, 18:58