Bom dia,
Estou testanto algumas formas de se fazer o que prentendo para posterior optar pela melhor forma de por em prática no meu projeto. Então explicando o que desejo neste exemplo que anexo.
É um controle que estou fazendo para controlar exames de Admissão, demissão e por aí em diante, ou seja, para a Função GARI COLETOR, necessita dois exames que é AUDIOMETRI e CLÍNICO/ASO, para motorista todos os listados, e por aí vai... ou seja, quando seleciona a função, com um filtro cascata, já aparece os exames que deve ser feito para a função, então ao clicar no botão salvar, o registro irá salvar e vai perguntar se quero incluir novo exame, e no caso do Gari Coletor, se eu disser que não quero inserir e na tabela estiver apenas um dos dois exames necessários, deve me alertar que é preciso informar o segundo exame, até aí ok, mas o que está ocorrendo é que mesmo que tenha os dois exames a mensagem aparece, e eu não consegui ver onde está o meu erro no critério informado.
If DCount("*", "Tbl_Lancamentos", "Funcionario='" & Me!Txt_Funcionario & "' and Funcao='" & Me!Txt_Funcao & "' AND Exame='" & Me!Txt_Desc_Exame & "'") < 3 Then
MsgBox "Para esta função requer Dois Tipos de Exames. Favor verificar", vbInformation, "Lançamento incompleto"
Me.Txt_Desc_Exame.SetFocus
End If
Estou testanto algumas formas de se fazer o que prentendo para posterior optar pela melhor forma de por em prática no meu projeto. Então explicando o que desejo neste exemplo que anexo.
É um controle que estou fazendo para controlar exames de Admissão, demissão e por aí em diante, ou seja, para a Função GARI COLETOR, necessita dois exames que é AUDIOMETRI e CLÍNICO/ASO, para motorista todos os listados, e por aí vai... ou seja, quando seleciona a função, com um filtro cascata, já aparece os exames que deve ser feito para a função, então ao clicar no botão salvar, o registro irá salvar e vai perguntar se quero incluir novo exame, e no caso do Gari Coletor, se eu disser que não quero inserir e na tabela estiver apenas um dos dois exames necessários, deve me alertar que é preciso informar o segundo exame, até aí ok, mas o que está ocorrendo é que mesmo que tenha os dois exames a mensagem aparece, e eu não consegui ver onde está o meu erro no critério informado.
If DCount("*", "Tbl_Lancamentos", "Funcionario='" & Me!Txt_Funcionario & "' and Funcao='" & Me!Txt_Funcao & "' AND Exame='" & Me!Txt_Desc_Exame & "'") < 3 Then
MsgBox "Para esta função requer Dois Tipos de Exames. Favor verificar", vbInformation, "Lançamento incompleto"
Me.Txt_Desc_Exame.SetFocus
End If
- Anexos
- Ex_01.09.2021.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (61 Kb) Baixado 19 vez(es)