[Resolvido]Verificar registros em tabela

Pessoal,

Antes de liberar um procedimento no formulário preciso verificar em determinada tabela se a empresa X , no mês Y teve registrado como resultado de uma pergunta o valor igual a 3.

Nome da tabela: tblAnáliseRelaçäoPrestadoresServiço
Nomes dos campos da tabela: CodEmpresa, MesAno e Pgt3RelPS

Nome do formulário onde será disparada a verificação: frmAnáliseFérias
Nomes dos campos do formulário: txtCodEmpresa, txtMesAno e cboPgt3RelPS

Tentei assim, mas o retorno do campo que controla o valor da pergunta (cboPgt3RelPS) é sempre nulo
Dim Rst As DAO.Recordset

If DCount("*", "tblAnáliseRelaçäoPrestadoresServiço", "CodEmpresa=" & CodEmpresa & " and MesAno='" & txtMesAno & "'") > 0 Then

If cboPgt3RelPS = 3 Then
MsgBox "Já existe registo de Férias para o mês. Prossiga com o detalhamento.", vbExclamation, "Atenção"
Else

MsgBox "Não existe registo de Férias na Relação dos Prestadores de Serviço.", vbExclamation, "Atenção"
DoCmd.Close
Exit Sub
End If

End If

Sidiney

Crie uma consulta seleção dessa tabela, com esses critérios que deseja
e veja se retorna os registros corretamente.
Digamos que o nome dela seja: ConsRelPrestServs e funcionou, salve-a e então use:

If Dcount("*","ConsRelPrestServs")=3 then

...

End If

Abraços

Noob

Noobezinho,

Eu não sei se entendi corretamente a sugestão. A consulta seleção retornará todas as empresas que têm a  pergunta (cboPgt3RelPS) com valor igual a 3 (valor que indica  o registro de férias).

Ocorre que a verificação precisa determinar se a empresa que estou incluindo no formlário frmAnáliseFérias (1º filtro), no mês solicitado (2º filtro), já têm registrou de Férias na  RelaçäoPrestadoresServiço (3º filtro).

Então, como posso implementar a verificação com a consulta? Eu faria a busca diretamente na consulta ao invés da tabela, é isso? Vou tentar e retorno.

Sidiney

Como disse,faça a consulta, e coloque os critérios já mencionados por você.

Lembre-se que "CodEmpresa=" & CodEmpresa & já é um critério e na consulta irá colocar assim:

Na grade da consulta na coluna CodEmpresa, na linha critério coloque:

=Formulários!NomeDoFormulário!CodEmpresa.

Com isso a consulta irá retornar os dados de acordo com os critérios para aquela empresa que estiver no formulário.

Fiz me entender?

Noob

Legal Noobezinho,

Funfou direitinho e funcionou também da forma que eu tinha entendido.

Obrigado, mais uma vez, pela ajuda prestada.

Valeu.

Ótimo, Sidiney

Valeu o retorno

Boa sorte !

Noob