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

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

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

Muito obrigado pela ajuda amigo mduarteteixeira

Resolvido com sucesso, funcionou na perfeição  

Abraço

Sucesso amigo!

Obrigado pelo retorno.