[Resolvido]verificar se esta cadastrado

galera tenho um formulario onde se dar enter sem por nada ele ja me avisa que o campo nao pode ser nulo agora preciso se eu digitar um codigo que nao tenha na tabela ele me informa que fulano na ta cadastrado pois ele deixa eu por qualquer numero mas hora que vai gravar se nao tiver na tabela ele da um erro pannnn


uso o seguinte pra ver se e nulo

irmão não deu certo o código não...
há sabendo que o idusuario e do tipo numero ok


Private Sub IDUSUARIO_Exit(Cancel As Integer)
If DCount("IDUSUARIO", "TBUSUARIO", "IDUSUARIO =" & "IDUSUARIO") Then
If MsgBox("Está Cadastrado", vbInformation, "Aviso!") Then
Else
If MsgBox("Não Está Cadastado", vbInformation, "Aviso!") Then
IDUSUARIO.SetFocus
End If
End If
End If


If IsNull(IDUSUARIO) Then
DoCmd.CancelEvent
If MsgBox("Vendedor Obrigatório...Sim para Vendedor e Não para cancelar!!!!", vbYesNo, "GERENCIADOR") = vbYes Then
IDUSUARIO.SetFocus
Else
IDORCAMENTO.Enabled = False
IDUSUARIO.Enabled = False
USUARIO.Enabled = False
DATAORCAMENTO.Enabled = False
SITUACAO.Enabled = False
IDCLIENTE.Enabled = False
CLIENTE.Enabled = False
VEICULO.Enabled = False
PLACA.Enabled = False
DESCSERVICO.Enabled = False
Itens.Enabled = False
TOTPECAS.Enabled = False
TOTMAOOBRA.Enabled = False
DESCONTO.Enabled = False
ACRESCIMO.Enabled = False
TOTALORCAMENTO.Visible = False
IDFORMAPG.Enabled = False
DESCFORMAPG.Visible = False
OPAPROVAR.Enabled = False
OPREPROVAR.Enabled = False
OPORCAMENTO.Enabled = False
OPOS.Enabled = False
OPVENDAS.Enabled = False
'BOTOES
NOVO.Enabled = True
ALTERAR.Enabled = True
Excluir.Enabled = True
FECHAR.Enabled = True
GRAVAR.Enabled = False
CANCELAR.Enabled = False
NOVO.SetFocus
Undo
End If
End If
End Sub

gostaria de se o cliente nao existir na tabela ele nao deixasse tambem eu continuar

valeu galera

Código:

' Verifica a existência de um código na tabela
 
If DCount("NomedoCampo", "NomeDaTabela", "NomedoCampo =" & txtIDdoFormulario) Then

    If MsgBox("Está Cadastrado"), vbInformation, "Aviso!" Then


        Else


    If MsgBox("Não Está Cadastado"), vbInformation, "Aviso!" Then

End If

Se entendi bem vc quer que seja avisado caso o código já exista na tabela.

irmão não deu certo o código não...
há sabendo que o idusuario e do tipo numero ok


Private Sub IDUSUARIO_Exit(Cancel As Integer)
If DCount("IDUSUARIO", "TBUSUARIO", "IDUSUARIO =" & "IDUSUARIO") Then
If MsgBox("Está Cadastrado", vbInformation, "Aviso!") Then
Else
If MsgBox("Não Está Cadastado", vbInformation, "Aviso!") Then
IDUSUARIO.SetFocus
End If
End If
End If


If IsNull(IDUSUARIO) Then
DoCmd.CancelEvent
If MsgBox("Vendedor Obrigatório...Sim para Vendedor e Não para cancelar!!!!", vbYesNo, "GERENCIADOR") = vbYes Then
IDUSUARIO.SetFocus
Else
IDORCAMENTO.Enabled = False
IDUSUARIO.Enabled = False
USUARIO.Enabled = False
DATAORCAMENTO.Enabled = False
SITUACAO.Enabled = False
IDCLIENTE.Enabled = False
CLIENTE.Enabled = False
VEICULO.Enabled = False
PLACA.Enabled = False
DESCSERVICO.Enabled = False
Itens.Enabled = False
TOTPECAS.Enabled = False
TOTMAOOBRA.Enabled = False
DESCONTO.Enabled = False
ACRESCIMO.Enabled = False
TOTALORCAMENTO.Visible = False
IDFORMAPG.Enabled = False
DESCFORMAPG.Visible = False
OPAPROVAR.Enabled = False
OPREPROVAR.Enabled = False
OPORCAMENTO.Enabled = False
OPOS.Enabled = False
OPVENDAS.Enabled = False
'BOTOES
NOVO.Enabled = True
ALTERAR.Enabled = True
Excluir.Enabled = True
FECHAR.Enabled = True
GRAVAR.Enabled = False
CANCELAR.Enabled = False
NOVO.SetFocus
Undo
End If
End If
End Sub

Veja o Exemplo que fiz.

Para exibir o nome do usuário logado na mensagem ao invés de exibir numa textbox faça assim:

Código:

Private Sub txtID_BeforeUpdate(Cancel As Integer)

Dim nome As String
Dim id As Integer

id = DCount("ID_USUARIO", "TBUSUARIO", "ID_USUARIO =" & txtID)



           
If id Then
               
                    nome = DLookup("NomeUser", "TBUSUARIO", "ID_USUARIO =" & Me.txtID)
                   
                    MsgBox "Usuario Cadastrado:  " & nome
                   
                    Me.txtNomeUser = DLookup("NomeUser", "TBUSUARIO", "ID_USUARIO =" & Me.txtID)
                             
               
             
                Else
                   
 
   
                MsgBox "Usuario Não Cadastrado"
                   
                    txtNomeUser = ""
   
   
End If


End Sub


galera acho que nao entenderao meu problema

vou tentar explicar melhor

tenho um formulario onde tenho os campos


idorcamento = numero
idvendedor = numero : quando eu coloco o numero 1 por exemplo ta cadastrado na tabela vendedor ele me coloca o nome do vendedor no campo
vendedor = texto

eu gostari que ele apenas verificasse o numero digitado se existe na tabela vendedor se existe ele completa a operacao se nao existir ele me da uma menssagen tente de novo, limparia o campo idvendedor e colocaria o foco na celula pra eu tentar outro codigo entenderao!!!!!

Amigo,

disponibilize seu bd se possível, ficará mais fácil a compreensão.


abraços,

amigo ta em access 2010 se nao houver problemas

Infelizmente não vou conseguir ajuda-lo trabalho com o 2007.

Caso o nosso amigo Formiga tenha o 2010, poderá prosseguir com o help.


Abraços,

Olá, Não mencionaste o nome do formulário envolvido no pedido de ajuda, deduzo que seja o FRMORCAMENTO, é só substituir o código que está no evento antes de atualizar do campo IDUSUARIO por este:

If (Not IsNull(DLookup("[IDUSUARIO]", "TBUSUARIO", _
   "[IDUSUARIO] =" & Me!IDUSUARIO))) Then
   MsgBox "Código já Cadastrado para... " & USUARIO, _
   vbInformation, "Duplicidade de Códigos"
   Cancel = True
   Me.Undo
ElseIf IsNull(DLookup("[IDUSUARIO]", "TBUSUARIO", _
   "[IDUSUARIO] =" & Me!IDUSUARIO)) Then
   MsgBox "Usuario Não Cadastrado...", _
   vbInformation, "Novo Cadastro"
End If

valeww deu certinho