MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]verificar se esta cadastrado

    avatar
    crb_sjrp
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 172
    Registrado : 21/03/2013

    [Resolvido]verificar se esta cadastrado Empty [Resolvido]verificar se esta cadastrado

    Mensagem  crb_sjrp 23/1/2014, 15:29

    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


    Última edição por crb_sjrp em 23/1/2014, 16:58, editado 1 vez(es)
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]verificar se esta cadastrado Empty Re: [Resolvido]verificar se esta cadastrado

    Mensagem  formiga10x 23/1/2014, 15:42

    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.


    Última edição por formiga10x em 23/1/2014, 17:24, editado 1 vez(es)
    avatar
    crb_sjrp
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 172
    Registrado : 21/03/2013

    [Resolvido]verificar se esta cadastrado Empty Re: [Resolvido]verificar se esta cadastrado

    Mensagem  crb_sjrp 23/1/2014, 16:44

    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
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]verificar se esta cadastrado Empty Re: [Resolvido]verificar se esta cadastrado

    Mensagem  formiga10x 23/1/2014, 17:17

    Veja o Exemplo que fiz.
    Anexos
    [Resolvido]verificar se esta cadastrado AttachmentTeste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (26 Kb) Baixado 26 vez(es)
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]verificar se esta cadastrado Empty Re: [Resolvido]verificar se esta cadastrado

    Mensagem  formiga10x 23/1/2014, 17:32

    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
    avatar
    crb_sjrp
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 172
    Registrado : 21/03/2013

    [Resolvido]verificar se esta cadastrado Empty Re: [Resolvido]verificar se esta cadastrado

    Mensagem  crb_sjrp 24/1/2014, 16:45

    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!!!!!
    Uilson Brasil
    Uilson Brasil
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1039
    Registrado : 23/04/2013

    [Resolvido]verificar se esta cadastrado Empty Re: [Resolvido]verificar se esta cadastrado

    Mensagem  Uilson Brasil 24/1/2014, 16:50

    Amigo,

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


    abraços,


    .................................................................................
    ::: Uilson Brasil
    ::: Design in Microsoft Access
    avatar
    crb_sjrp
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 172
    Registrado : 21/03/2013

    [Resolvido]verificar se esta cadastrado Empty Re: [Resolvido]verificar se esta cadastrado

    Mensagem  crb_sjrp 24/1/2014, 16:53

    amigo ta em access 2010 se nao houver problemas
    Anexos
    [Resolvido]verificar se esta cadastrado AttachmentTeste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (474 Kb) Baixado 9 vez(es)
    Uilson Brasil
    Uilson Brasil
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1039
    Registrado : 23/04/2013

    [Resolvido]verificar se esta cadastrado Empty Re: [Resolvido]verificar se esta cadastrado

    Mensagem  Uilson Brasil 24/1/2014, 17:24

    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,


    .................................................................................
    ::: Uilson Brasil
    ::: Design in Microsoft Access
    avatar
    Convidado
    Convidado


    [Resolvido]verificar se esta cadastrado Empty Re: [Resolvido]verificar se esta cadastrado

    Mensagem  Convidado 24/1/2014, 18:55

    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
    avatar
    crb_sjrp
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 172
    Registrado : 21/03/2013

    [Resolvido]verificar se esta cadastrado Empty Re: [Resolvido]verificar se esta cadastrado

    Mensagem  crb_sjrp 28/1/2014, 16:23

    valeww deu certinho

    Conteúdo patrocinado


    [Resolvido]verificar se esta cadastrado Empty Re: [Resolvido]verificar se esta cadastrado

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 08:12