MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Copiar texto de campo no subformulário ao receber o foco

    pcnet
    pcnet
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 303
    Registrado : 16/12/2015

    [Resolvido]Copiar texto de campo no subformulário ao receber o foco Empty [Resolvido]Copiar texto de campo no subformulário ao receber o foco

    Mensagem  pcnet em 23/7/2019, 12:50

    Boa tarde a todos,

    Tenho alguns campos num subformulário que depois de preenchidos tenho
    de copiar e colar noutros documentos externos à base de dados.

    Encontrei este código aqui no fórum que facilita imenso e que foi usado num
    botão, mas eu optei por aplicar diretamente no texto ao receber o foco.

    Código:
    Private Sub Reg_GotFocus()
    Me.Reg.SetFocus
    Reg.SelStart = 0
    Reg.SelLength = Len(Me.Reg)
    DoCmd.RunCommand acCmdCopy
    End Sub

    Funciona bem na parte do copiar, só pretendo eliminar a mensagem quando
    ainda não existe texto, em que aparece a seguinte mensagem:

    Código:
    Run-time error '94':
    Invalid use of Null

    Se alguém souber alguma alternativa para contornar o erro agradeço.

    Desde já o meu muito obrigado pela atenção disponibilizada
    mduarteteixeira
    mduarteteixeira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 15/07/2014

    [Resolvido]Copiar texto de campo no subformulário ao receber o foco Empty Re: [Resolvido]Copiar texto de campo no subformulário ao receber o foco

    Mensagem  mduarteteixeira em 23/7/2019, 13:59

    Olá pcnet,

    Teste:

    If Not IsNull(Me.Reg) Then
    Me.Reg.SetFocus
    Reg.SelStart = 0
    Reg.SelLength = Len(Me.Reg)
    DoCmd.RunCommand acCmdCopy
    Else
    Call MsgBox("O campo deve estar preenchido.")
    Me.Reg.SetFocus
    End If

    Acredito que funcione assim
    pcnet
    pcnet
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 303
    Registrado : 16/12/2015

    [Resolvido]Copiar texto de campo no subformulário ao receber o foco Empty Re: [Resolvido]Copiar texto de campo no subformulário ao receber o foco

    Mensagem  pcnet em 23/7/2019, 14:22

    Muito obrigado pela ajuda amigo mduarteteixeira

    Resolvido com sucesso, funcionou na perfeição  cheers

    Abraço
    mduarteteixeira
    mduarteteixeira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 15/07/2014

    [Resolvido]Copiar texto de campo no subformulário ao receber o foco Empty Re: [Resolvido]Copiar texto de campo no subformulário ao receber o foco

    Mensagem  mduarteteixeira em 23/7/2019, 14:25

    Sucesso amigo!

    Obrigado pelo retorno.

      Data/hora atual: 11/7/2020, 14:59