[Resolvido]verificação de registo

apos pesquisar no forum nao encontrei nada para o meu caso e por isso aqui lançio a duvida:

tenho um formulario onde dou entrada de pessoas e nesse formulario tenho de verificar se essa pessoa quando regressa ainda tem castigo a cumprir.

esses dados estao na tabela castigos e os campos sao: NrPessoa,DataInicioCastigo,DataInterrompeCastigo,DataContinuaCastigo,FimCastigo.

ou seja:

quero que verifique se ao dar entrada dessa pessoa o sistema verifique se a pessoa interrompeu castigo.

Obrigado.

Olá;

Use a função interna DLookup:

Veja como:

http://maximoaccess.forumeiros.com/t1533-funcao-dlookup-explicacao

Olá JPaulo,

não sei como fazer dom o Dlookup uma vez que quando estou a dar entrada da pessoa, esse registo esta na tabela Identificação, mas o que quero verificar é se na tabela Punicoes ela interrompeu algum castigo devido a ter de sair , entendes?

Abraço

Por isso mesmo deve usar o DLookup com dois criterios,

NrPessoa = NrPessoa
And
DataInterrompeCastigo Is Null

Está tudo explicadinho no artigo que lhe passei.

ok, vou testar e darei reposta

Mais ou menos assim;

Código:

Private Sub NrPessoa_BeforeUpdate(Cancel As Integer)
' Testa se a pessoa interrompeu o castigo
    If IsNull(DLookup("NrPessoa", "Punicoes", "[DataInterrompeCastigo] Is Not Null AND NrPessoa = " & Forms![SeuFormulario]![NrPessoa] & "")) Then
        GoTo Saida
        Else
        MsgBox "Esta pessoa interrompeu o castigo...", vbCritical
        Exit Sub
    End If
End Sub


A bombar, mais uma vez Obrigado e desculpa a minha inexperiência, mas tambem ja acuso algum cansaço.
por vezes é melhor para um pouco para refrescar .

Abraço

Só agora reparei que postaste um exemplo, mas consegui antes disso, o que até é bom.
Obrigado por tudo na mesma.

Obrigado pelo retorno o forum agradece.