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]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 : 287
    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 : 287
    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.

    Conteúdo patrocinado

    [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  Conteúdo patrocinado


      Data/hora atual: 15/9/2019, 23:57