[Resolvido]Validação de dados no formulário com base em uma tabela

Bom dia

Estou com dúvida para criar uma validação de dados no formulário, tenho uma base de dados com todos os funcionários do CD, ao digitarem seu prontuário eu preciso que seja feita uma validação se o numero existe na tabela e caso não retorno uma mensagem informando. Outro ponto importante não pode deixar gravar o registro.

Conto mais uma vez com a ajuda de vocês

Abraço

Vinícius

Vc deseja verificar o funcionário ou prontuário?

Caso tenha tabelas pra cada um, use como chave primária um campo exclusivo em cada tabela, e aí usar uma mensagem pra tratar a msg de aviso do access.

Abraços

A validação deverá ser feita pelo prontuário. Só para entender este banco que estou criando é para ser feita a votação da CIPA, a validação precisa ser feita para evitar votação de algum prontuário que não esteja cadastrado na tabela de associados do CD

Abraço

Óscar boa tarde

Preciso de mais uma super ajuda sua MASTER, conforme mencionado acima, preciso que ocorra uma validação do prontuário digitado no formulário com a tabela de associados, caso não esteja cadastrado não será liberado a votação e surgirá a mensagem que o prontuário não esta cadastrado.

Segue o link do banco de dados para dar uma olhada

https://www.dropbox.com/s/mw7ksucm5max07b/Vota%C3%A7%C3%A3o.accdb?dl=0

Conto mais uma vez com sua ajuda

Abraço

Vinicius

Óscar

Acabei esquecendo de enviar na versão correta, segue abaixo em MDB

https://www.dropbox.com/s/oyvu6kense0uy8y/Vota%C3%A7%C3%A3o.mdb?dl=0

Abraço

Bom dia

Estou precisando de ajuda para resolver esta validação, alguém consegue me ajudar?

Desde já agradeço a atenção

Vinicius

Experimenta assim no seu campo após registo do nome:

Dim i As String
  If IsNull(Me.SeuCampoNome) Then    'Para evitar conflitos, verifico se o nome foi informado
      MsgBox "Nome não informado!", vbExclamation, "Falta dados"    'Caso não tenha sido informado, desfaça as ações
      Me.Undo
      Cancel = True
      SeuCampoNome.SetFocus
  Else    'Se o Nome estiver informado corretamente
      i = DLookup("[SeuCampoNomeTabela]", "NomeTabela", "SeuCampoNomeTabela = " & Me.CampoNomeFormulario & "")

         
  End If

Roberto bom dia

Primeiramente obrigado pelo retorno, gostaria de lhe pedir um favor. Estou iniciando agora com o Access e ainda tenho dificuldades em adequar códigos. Seria possível me retornar o banco de dados que postei aqui com as modificações para que eu possa analisar e compreender como fazer?

Obrigado

Vinícius

Veja sua caixa de entrada do MP.(messagem Privada)

Por causa do nivel de segurança aqui na empresa, não consigo fazer download atraves do DropBox.
sò atraves do https://www.wetransfer.com/

Abraço...

Veja se consegue pegar o arquivo por aqui

Consegui....

Veja se serve....

veja agora....

Roberto

Era exatamente o que precisava. obrigado pela ajuda

Abraço

Vinicius

De nada, estamos aqui para isso...
O Forum agradece o retorno.

Abraço....