MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Abrir Formulário com filtro

    Compartilhe

    Dery_santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 03/10/2016

    [Resolvido]Abrir Formulário com filtro

    Mensagem  Dery_santos em 17/1/2017, 12:14

    Bom dia pessoal

    Eu tenho dois formulário Cadastro de Usuário e Cadastro de funcionários .
    No cadastro de Usuário criei um botão para abrir o cadastro de funcionário, ai gostaria que ao abrir o cadastro de funcionário ele verifique se o nome  selecionado no formulário usuário já existe no formulário funcionários caso não exista então que ele abra como novo registro ja inserindo no campo nome o nome do usuário que esta no formulário usuário caso contrario ele apenas informe que o nome ja existe.

    tem como fazer isso?

    Grato

    Dery_santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 03/10/2016

    Re: [Resolvido]Abrir Formulário com filtro

    Mensagem  Dery_santos em 18/1/2017, 10:43

    Bom dia


    Consegui , obrigado

    Dery_santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 03/10/2016

    Re: [Resolvido]Abrir Formulário com filtro

    Mensagem  Dery_santos em 20/1/2017, 11:54

    Bom eu achei que tinha resolvido mas não deu 100% certo eu fiz o seguinte


    sql = "SELECT DISTINCTROW Comprador.NomeFuncASS, Comprador.ProntuarioFuncASS, Comprador.FoneContatoFuncASS,Comprador.Grupo,Comprador.ativo " & _
    "FROM [Comprador] " & _
    "WHERE (((Comprador.NomeFuncASS) = '" & Usuario & "')) " & _ ' Usuario é uma variável de um modulo que eu tenho
    "ORDER BY Comprador.NomeFuncASS DESC; "

    Me.RecordSource = sql

    If Not IsNull(Me.txtusuario = Usuario) Then ' Usuario é uma variável de um modulo que eu tenho

    MsgBox " O Usuário já existe", vbInformation

    Exit Sub
    Else

    Me.txtusuario = Usuario

    End If




    ele da Certo a unica coisa que da errado é que se tendo avançar o registro ou voltar ele não permite. alguem tem uma idéia

    Dery_santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 03/10/2016

    Re: [Resolvido]Abrir Formulário com filtro

    Mensagem  Dery_santos em 20/1/2017, 18:23

    Agora deu certo só que fiz diferente , vou testar mais um pouco ai posto aqui como arrumei

    Dery_santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 03/10/2016

    Re: [Resolvido]Abrir Formulário com filtro

    Mensagem  Dery_santos em 6/6/2018, 20:19

    Deu certo

      Data/hora atual: 25/9/2018, 04:49