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

    Formulário para preencher dados com uma estrutura similar à referência cruzada

    avatar
    zcorneliu
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 24
    Registrado : 27/08/2020

    Formulário para preencher dados com uma estrutura similar à referência cruzada Empty Formulário para preencher dados com uma estrutura similar à referência cruzada

    Mensagem  zcorneliu 18/11/2020, 15:44

    Bom tarde.

    Queria ajuda sobre como construir um formulário para preencher dados com uma estrutura similar à referência cruzada.

    A base de dados tem 3 tabelas do em que uma tem a chave primária das outras 2 tabelas.

    No exemplo da minha base de dados que envio tenho um formulário que faz mais ou menos o que pretendo.

    É o formulário "Cópia de Misericóridas".

    No entanto, como se pode ver pelo código em VBA no evento antes de atualizar na caixa de combinação "cboMsericordia", esse evento cria novos registos na tabela "tblMisericóridas_Valências",
    deixando valores do campo "Num_Páginas" em branco.

    O que pretendia não era criar esses valores em branco, e,
    também não criar novos registos na tabela "tblMisericóridas_Valências" com o "ID_Misericórdia" e "ID_Valência" já que não serão necessários se não tiverem um valor no campo "Num_Páginas".

    Outro problema que surge é que quando quero inserir um novo registo na tabela "tblValências", o código não adiciona uma nova linha no formulário para preencher.

    Agradecia muito a vossa ajuda se fosse possível.
    Anexos
    Formulário para preencher dados com uma estrutura similar à referência cruzada AttachmentDatabase4.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (61 Kb) Baixado 4 vez(es)
    ANTONILDO CORDEIRO
    ANTONILDO CORDEIRO
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 02/04/2019

    Formulário para preencher dados com uma estrutura similar à referência cruzada Empty Re: Formulário para preencher dados com uma estrutura similar à referência cruzada

    Mensagem  ANTONILDO CORDEIRO 30/11/2020, 20:07

    Boa tarde, ZCorneliu!!

    experimente assim o seu codigo vamos ver se entendi o que vc quer
    nesse formulario vc quer so visualzar os dados? se sim tem outra maneira

    If Me.cboMsericordia.ListIndex > -1 Then

    If (Eval("DLookUp(""[Num_Páginas]"",""[tblMisericóridas_Valências]"",""[ID_Misericórdia] = Form.[cboMsericordia] "") Is Not Null")) Then
    ' Se o valor do CódigoDoCliente não é exclusivo, exibe uma mensagem.
    ' Anexada ao evento ApósAtualizar do formulário.
    If DCount("1", "tblMisericóridas_Valências", "ID_Misericórdia = " & Me!cboMsericordia) < 1 Then

    CurrentDb.Execute _
    "Insert Into tblMisericóridas_Valências (ID_Misericórdia, ID_Valência) " & _
    "SELECT " & Me!cboMsericordia & ", ID_Valência FROM tblValências;"

    [cnsltValências_Misericóridas].Requery
    End If
    End If
    End If

    End Sub


      Data/hora atual: 27/4/2024, 04:45