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

    [Resolvido]Mudar o Valor padrão

    avatar
    Rosalvo Risso
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 21/05/2015

    [Resolvido]Mudar o Valor padrão Empty [Resolvido]Mudar o Valor padrão

    Mensagem  Rosalvo Risso 9/7/2016, 03:24

    Obrigado Rubens por sua atenção. O código funciona enquanto o formulário está aberto. Mas se eu fechá-lo e logo em seguida reabri-lo, torna-se necessário inserir o valor novamente. A minha necessidade é de que o último valor inserido no campo torne-se o valor padrão, mesmo depois de fechar o formulário. Esse valor é a base de cálculo de preço de uma determinada mercadoria. Invariavelmente esse valor pode mudar a cada três ou quatro meses. Não sei se o que desejo é possível. Também estou estudando uma outra maneira mais fácil de resolver esse probleminha. De qualquer maneira agradeço muito a sua atenção e o seu tempo. Abraço!


    Última edição por Rosalvo Risso em 8/9/2019, 01:22, editado 2 vez(es)
    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 680
    Registrado : 02/10/2011

    [Resolvido]Mudar o Valor padrão Empty Re: [Resolvido]Mudar o Valor padrão

    Mensagem  rubenscouto 9/7/2016, 21:15

    tente assim:
    Private Sub SeuCampoTexto_AfterUpdate()
     'preenchimento automatico campo string
     Me.SeuCampoTexto.DefaultValue = "'" & Me.SeuCampoTexto & "'"
    End Sub

    Lembre-se: há diferenças basicas na hora de construir o valor padrão, se for datas, tem que coloca as # # no lugar dos " duplas que ficam na parte de dentro do campo:
    Private Sub SeuCampoData_AfterUpdate()
     'preenchimento automatico campo string
     Me.SeuCampoData.DefaultValue = # & Me.SeuCampoData & #
    End Sub
    Anexos
    [Resolvido]Mudar o Valor padrão AttachmentvalorPadrao.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (32 Kb) Baixado 11 vez(es)

      Data/hora atual: 22/11/2024, 19:21