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]Problema de Leitura na Localidade Atual (Formulário)

    Compartilhe
    avatar
    GabrielManckel
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 03/01/2018

    [Resolvido]Problema de Leitura na Localidade Atual (Formulário)

    Mensagem  GabrielManckel em 26/9/2018, 14:52

    Pessoal, bom dia.

    Estou com um pequeno problema no meu sistema, ele possui o modulo de login e todos os formulários fazem a leitura do nome do usuário automaticamente pela função GetUsuarioAtual.

    Até ai tudo bem, porém quando quis que o formulário fizesse a leitura automática da localidade desse usuário ele faz, porém ao entrar no formulário já abre automaticamente um registro e isso acontece toda vez que o usuário abre o formulário.

    Problema: Se o usuário abre o formulário e não inseri nada, o sistema deixa aquela linha aberta em branca.

    Segue em anexo meu sistema em anexo para entenderem.

    Isso acontece nos formulários Entrada de Nota Fiscal, Entrada de Material e Saída de Material.

    Login para acesso: SALESK1 / Senha: 123456

    Alguém poderia me ajudar?
    Anexos
    Sistema AG Cliente.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.5 Mb) Baixado 19 vez(es)
    avatar
    Thel
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 91
    Registrado : 19/06/2012

    Re: [Resolvido]Problema de Leitura na Localidade Atual (Formulário)

    Mensagem  Thel em 26/9/2018, 22:34

    Estou tentando te ajudar, mas ainda não entendi bem.
    Se puder tirar um print e mostrar exatamente onde está o erro eu posso tentar te ajudar, porque ainda não entendi o problema.
    avatar
    GabrielManckel
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 03/01/2018

    Re: [Resolvido]Problema de Leitura na Localidade Atual (Formulário)

    Mensagem  GabrielManckel em 27/9/2018, 18:57

    Thel, boa tarde.

    Obrigado por tentar ajudar.

    Então, na print você vai ver que eu tenho automaticamente a informação de Usuário e Localidade, além de perceber só de eu entrar na tela ele já abre um sequencia, ou seja, um número de entrada.

    Se eu não preencher nada e simplesmente fechar a tela, esse sequencial vai ficar salvo vazio, se eu restrinjo para que exija a informação, a pessoa não consegue fechar sem colocar nada.

    Importante seria que ele não abrisse o sequencial de imediato.

    https://uploaddeimagens.com.br/imagens/capturar1-jpg-36acb763-8440-4804-b38c-7652641c4965

    O ponto é que quando eu só tinha o usuário inserido automaticamente, utilizando GetUsuarioAtual, a hora que eu abria a tela ele não abria um sequencial de imediato, porém quando inseri a locolidade automaticamente isso passou a acontecer.

    Consegui transparecer melhor minha dúvida?
    avatar
    GabrielManckel
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 03/01/2018

    Re: [Resolvido]Problema de Leitura na Localidade Atual (Formulário)

    Mensagem  GabrielManckel em 8/10/2018, 22:13

    Alguém pode me ajudar?
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2538
    Registrado : 21/04/2011

    Re: [Resolvido]Problema de Leitura na Localidade Atual (Formulário)

    Mensagem  Marcelo David em 9/10/2018, 02:06

    Boa noite!

    Isso ocorre por você está usando o formulário acoplado e no evento "Ao carregar" você inseri a informação de localização no campo "Localização".
    Daí, o Access entende que houve inserção de dados e grava como um novo registro.

    Dito isso, vamos a solução (dentre outras):

    Apague o Dlookup do evento Ao carregar.

    Daí, nas propriedades do campo "Localidade", na aba Dados, propriedade Valor padrão ponha a seguinte expressão:

    =DPesquisa("[Localidade]";"Tbl_Usuario";"[Login] = Usuario")

    Teste por favor...


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    Thel
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 91
    Registrado : 19/06/2012

    Re: [Resolvido]Problema de Leitura na Localidade Atual (Formulário)

    Mensagem  Thel em 9/10/2018, 02:16

    Já resolvi os dois problemas, preciso apenas saber como referenciar o subformulário "frm_dentrada_subformulario" que faz parte do formulário "frm_entrada" para que ele permita adição se o campo "ID_Entrada" não for nulo. Já testei várias opções de referenciação e não deu certo.

    1. Ele usa formulários acoplados às tabelas, então quando os formulários eram abertos o último registro inserido era apresentado na tela => RESOLVIDO: bastou apenas inserir um código nos botões de entrada que abrem os formulários, para que, ao serem abertos, os formulários exibam um registro em branco;

    2. O subformulário, por estar em modo de folha de dados, já era aberto com uma linha pronta para ser inserido os dados => RESOLVIDO: na propriedade dados do formulário, opção permitir adições, eu selecionei NÃO;

    3. O botão pesquisar deve abrir a janela de pesquisa e quando fechá-la: se algum registro for encontrado o subformulário passa a permitir a adição, se nada for encontrado não permite. É ESTA ÚLTIMA ETAPA QUE ESTÁ PENDENTE.

    O código ficou assim no botão pesquisar, NO EVENTO AO CLICAR:

    Código:
    DoCmd.RunCommand acCmdFind 'abre a janela de pesquisa padrão do Access

    If IsNull(ID_Entrada) Then 'Se o campo 'ID_Entrada' estiver em branco NÃO permite a adição de dados no subformulário, se não estiver em branco PERMITE
    Forms!frm_dentrada_subformulario.Form.AllowAdditions = False 'É aqui que estou tendo dificuldade para referenciar o subformulário, já testei umas 5 opções.
    Else
    Forms!frm_dentrada_subformulario.Form.AllowAdditions = True 'É aqui que estou tendo dificuldade para referenciar o subformulário, já testei umas 5 opções.
    End If

     

    Segue uma parte já funcionando para você testar.
    Anexos
    Sistema AG Cliente.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.5 Mb) Baixado 4 vez(es)


    Última edição por Thel em 9/10/2018, 02:40, editado 1 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2538
    Registrado : 21/04/2011

    Re: [Resolvido]Problema de Leitura na Localidade Atual (Formulário)

    Mensagem  Marcelo David em 9/10/2018, 02:33

    Teste por favor.
    Se for isso, o código está no evento Ao entrar do objeto do subformulário.
    Anexos
    Sistema AG Cliente_New_1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.6 Mb) Baixado 12 vez(es)


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    GabrielManckel
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 03/01/2018

    Re: [Resolvido]Problema de Leitura na Localidade Atual (Formulário)

    Mensagem  GabrielManckel em 10/10/2018, 20:13

    Pessoal,

    Obrigado pela ajuda, consegui arrumar graças a dica do nosso amigo Marcelo.

    Thel obrigado por se prontificar a ajudar!

      Data/hora atual: 23/1/2019, 08:11