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


2 participantes

    Definir valor padrão de campo do formulário com VBA

    avatar
    marcelobb
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 16/10/2014

    Definir valor padrão de campo do formulário com VBA Empty Definir valor padrão de campo do formulário com VBA

    Mensagem  marcelobb 29/10/2014, 20:19

    Pessoal,

    Estou com um problema.

    Preciso definir um valor padrão de um formulário com base em um Dlookup, porém não está funcionando.

    Meu comando Dlookup funciona perfeitamente trazendo o valor da variável que eu desejo (testei com um msgbox para sair o valor do strg1 e está ok).

    Aí no evento abrir o formulário onde o valor default do campo TIPO_PLANO deve receber o valor de strg1 eu coloquei o seguinte:

    Dim strg1 As String

    strg1 = DLookup("[TIPO_PLANO]", "[T_ATAC_PLANO1]", "[NOME_PLANO]='" & Forms!F_ATAC!SUB_PLANOS.Form!combPLANO & "' And [GRUPO_ECONOMICO] = '" & Forms!F_ATAC!SUB_PLANOS.Form!GrupoEconomico1 & "'")

    Me.TIPO_PLANO.DefaultValue = strg1

    .....
    Porém não funciona de jeito nenhum.

    Se eu pegar este mesmo comando DLookup e criar no evento após atualizar de outro campo qualquer daquele formulário, o valor do campo TIPO_PLANO recebe o valor correto.

    Acho que o problema está no fato de que o default value só funciona se houver algum preenchimento no formulário que é de entrada de dados.

    Alguma sugestão?
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    Definir valor padrão de campo do formulário com VBA Empty Re: Definir valor padrão de campo do formulário com VBA

    Mensagem  Noobezinho 29/10/2014, 23:42

    Olá Marcelo

    Experimente:
    Colocar o código no Evento AoReceberFoco do formulário.

    Caso também não funfe, coloque no evento AoAlterar da primeira caixa de texto que será preenchida.

    Nb


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    marcelobb
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 16/10/2014

    Definir valor padrão de campo do formulário com VBA Empty Re: Definir valor padrão de campo do formulário com VBA

    Mensagem  marcelobb 31/10/2014, 17:46

    Pois é.... eu havia tentado nos dois eventos.

    No evento ao receber foco não funciona.

    Funciona apenas no evento ao alterar de uma caixa de texto.

    O problema é que eu precisa que o usuário estivesse vendo o valor default daquele campo antes mesmo de começar a preencher qualquer outro campo.

    Logo esta solução não me atende, pois obriga ao usuário finalizar um preenchimento sem ver o valor default do campo TIPO_PLANO.

    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    Definir valor padrão de campo do formulário com VBA Empty Re: Definir valor padrão de campo do formulário com VBA

    Mensagem  Noobezinho 31/10/2014, 18:33

    Marcelo

    Experimente:

    Copie e cole a função abaixo num modulo.

    Function VPadrao() as String
    Dim strg1 As String

    strg1 = DLookup("[TIPO_PLANO]", "[T_ATAC_PLANO1]", "[NOME_PLANO]='" & Forms!F_ATAC!SUB_PLANOS.Form!combPLANO & "' And [GRUPO_ECONOMICO] = '" & Forms!F_ATAC!SUB_PLANOS.Form!GrupoEconomico1 & "'")

    Vpadrao = strg1
    End Function


    Na propriedade Valor padrão na folha de propriedade coloque:

    Me.TIPO_PLANO.DefaultValue = VPadrao

    Teste Wink

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Conteúdo patrocinado


    Definir valor padrão de campo do formulário com VBA Empty Re: Definir valor padrão de campo do formulário com VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 09:07