[Resolvido]Validar Caixa de Texto com base em uma consulta

Ola a todos.

Num formulário simples tenho uma caixa de texto (Cheque).
Tenho uma consulta com os campos: NumCheques e StatusCheques
NumCheques = números de cheques (000001, 000002, 000003 .......)
StatusCheques = (Disponível, Utilizado e Cancelado)

Gostaria que o campo cheque só aceitasse números (NumCheques) com StatusCheques = "Disponível" e caso fosse "Cancelado" ou "Utilizado" tivesse retorno desta informação.

Alguém pode me dar uma orientação.
Obrigado
Uso Access 2003

Oi
Criquio.
Grato pela atenção.

Se o "ChequesStatus" for <> "Disponível" tenho retorno Msgbox, ou seja, deu certo. Mas o campo "Cheque" do forms está permitindo a entrada de números que não constam do campo "ChequesNúmero" da consulta "ChequesCadastradosPorBanco-ContasPagar"

Olha, ficou assim:

Private Sub Cheque_Exit(Cancel As Integer)
If DLookup("ChequesStatus", "ChequesCadastradosPorBanco-ContasPagar", "ChequesNúmero=" & Me.Cheque) <> "Disponível" Then
MsgBox "Cheque indisponível", vbCritical, "Atenção"
End If
End Sub

O que estou fazendo errado?

Obrigado

Tente no evento "Ao alterar" do campo:

If DLookup("StatusCheque", "NomeDaTabela", "NumCheque=" & Me.NumCheque) <> "Disponível" Then
Me.NomeDoCampo.Undo
MsgBox "Cheque indisponível", vbCritical, "Atenção"
Else
Blá blá blá
End If

Agora nada funcionou!

Erro '3075'
Erro de sixtaxe (operador faltando) na expressão de consulta 'ChequesNúmero='.

Private Sub Cheque_Change()
If DLookup("ChequesStatus", "ChequesCadastradosPorBanco-ContasPagar", "ChequesNúmero=" & Me.Cheque) <> "Disponível" Then
Me.Cheque.Undo
MsgBox "Cheque indisponível", vbCritical, "Atenção"
End If
End Sub

Fiz algo errado?

Não funciona!!!

Ta permitindo a entrada de números que não constam da consulta.

Será que não funciona porque é uma consulta e não uma tabela?

Help!

Tente trocar Me.Cheque.Undo por Me.Cheque = Null

Continua com mesmo problema.

Vou tentar voltar a origem:

> a caixa de texto "Cheque" está num formulário simples. O formulário não está vinculado a nenhuma tabela.
> uma consulta "ChequesCadastradosPorBancoContasPagar" contém no registro os campos "ChequesNúmero" e "ChequesStatus"
> no campo "ChequesNúmero" contém números de cheques pré cadastrados
> o campo "ChequesStatus" determinam se os cheques estão: Disponível, Utilizado ou Cancelado

O objetivo:
> se [Cheque] <> do campo [ChequesNúmero] da consulta, então MsgBox "Cheque não Cadastrado"
> se [Cheque]=campo [ChequesNúmero] da consulta e o campo [ChequesStatus] = a "Cancelado", então MsgBox "Cheque Cancelado"
> se [Cheque]=campo [ChequesNúmero] da consulta e o campo [ChequesStatus] = a "Utilizado", então MsgBox "Cheque Utilizado"

Está assim:

Private Sub Cheque_Exit(Cancel As Integer)
If DLookup("ChequesStatus", "ChequesCadastradosPorBancoContasPagar", "ChequesNúmero=" & Me.Cheque) <> "Disponível" Then
Me.Cheque = Null
MsgBox "Cheque indisponível", vbCritical, "Atenção"
End If
End Sub

O Problema é que o campo "Cheque" está aceitando valores que não constam do "ChequesNùmero" da consulta

Desculpe-me pela linguagem pouco técnica. Estou iniciando agora. Sou autodidata. O que aprendi até agora foi com exemplos e ajuda aqui no forum.

Obrigado

Olá

Veja se asim atende. Use o evento "Após atualizar"

Código:

Private Sub cheque_AfterUpdate()
If IsNull(Me!cheque) Then Exit Sub
If DCount("*", "ChequesCadastradosPorBancoContasPagar", "ChequesNúmero=" & Me!cheque) > 0 Then
    If DLookup("ChequesStatus", "ChequesCadastradosPorBancoContasPagar", "ChequesNúmero=" & Me!cheque) = "Cancelado" Then
        MsgBox "Cheque cancelado...", vbInformation, "Aviso"
        Me!cheque = Null
    ElseIf DLookup("ChequesStatus", "ChequesCadastradosPorBancoContasPagar", "ChequesNúmero=" & Me!cheque) = "Utilizado" Then
        MsgBox "Cheque utilizado...", vbInformation, "Aviso"
        Me!cheque = Null
    End If
Else
    MsgBox "Cheche não cadastrado...", vbInformation, "Aviso"
    Me!cheque = Null
End If
End Sub

Sucesso!

Olá Avelino.
Grato pela Atenção Amigão.

Deu um erro de "Else sem IF".
Fiquei um tempão mudando pra lá e pra cá e acabou dando certo. Não me pergunte como!!!!

Se não se importar, você pode me explicar as funções abaixo (Do seu exemplo)

> If IsNull(Me!txtBox) Then Exit Sub
> If DCount("*", "Consulta", "Campo1=" & Me!txt) > 0 Then
> If DLookup("Campo2", "Consulta", "Campo1=" & Me!txtBox) = "Cancelado" Then

Mais uma vez, muito obrigado a todos

Luiz Gustavo

.