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]Uso de SetFocus em uma Variável

    Compartilhe
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 615
    Registrado : 09/11/2012

    [Resolvido]Uso de SetFocus em uma Variável

    Mensagem  =>Nois em Sex 28 Abr 2017, 17:51

    Ola

    consigo fazer algo assim? Preciso dar foco Me.Dt_Hr_Prev_Entrega de maneira mais rápida

    Dim DtCompleta As String

    DtCompleta = Me.Dt_Hr_Prev_Entrega

    if meucampo >o then

    DtCompleta.setfocus

    else

    exit sub

    end if



    para dar o Null também preciso

    DtCompleta = Null


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    CassioFabre
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 434
    Registrado : 18/01/2013

    Re: [Resolvido]Uso de SetFocus em uma Variável

    Mensagem  CassioFabre em Sex 28 Abr 2017, 20:55

    Boa tarde.

    Tente o seguinte:
    Código:
       Dim ctl As Control
        
        For Each ctl In Me.Controls
            If ctl.Name = "Dt_Hr_Prev_Entrega" Then
                ctl.SetFocus
               ' ctl = nullstring          -> se quiser deixar o campo vazio
            End If
        Next ctl

    Abraço.
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 615
    Registrado : 09/11/2012

    Re: [Resolvido]Uso de SetFocus em uma Variável

    Mensagem  =>Nois em Sab 29 Abr 2017, 01:36

    obrigado, isso que precisava!


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!

      Data/hora atual: Seg 25 Set 2017, 10:40