Hjælp til hændelseskald i Access

I en formular har jeg lidt problemer med at få tingende til at fungere som forventet

I en form, der består af et navne felt, efterfuldt af et dato felt, har jeg sat en knap ind, der når der trykkes, indsætter dags dato i dato feltet, med mindre der stod en dato i forvejen.

Mit problem er, at hvis man går direkte fra navne feltet og klikker på dato knappen, så indsættes datoen, men teksten i navne feltet forsvinder.

[code]
Private Sub imgCalendar_Click()
Dim dDate, svar, jNavn
   
    Me.JobNavn.SetFocus
    jNavn = Me.JobNavn.Value
    Me.DatoStart.SetFocus
   
    dDate = FormatDateTime(DateTime.Now, vbShortDate)
    If IsDate(DatoStart.Value) Then
        svar = MsgBox("Vil du overskive den aktuelle dato med dags dato?", vbYesNo)
        If svar = 6 Then
            DatoStart.Value = dDate
            JobNavn.Value = jNavn
        Else
            Exit Sub
        End If
    Else
        DatoStart.Value = dDate
        JobNavn.Value = jNavn
    End If
   
Exit_imgCalendar_Click:
    Exit Sub
End Sub
[/code]

Mit andet problem er omkring at klippe data sammen til udklipsholderen.

Dette har jeg forsøgt at løse ved at lave et skjult felt, indsætte de data jeg skal bruge, gøre det aktivt, sætte fokus, klippe, skjule, og flytte fokus.

Det er det sidste der driller, for egentligt ville jeg gerne flytte fokus tilbage til den knap jeg trykker på, men det kan man ikke få lov til da man åbenbart kun kan sætte fokus på input felter.

[code]
Private Sub imgClipboard_Click()
On Error GoTo Err_imgClipboard_Click

    With Me.jobIdNavn
        .Visible = True
        .SetFocus
        DoCmd.RunCommand acCmdCopy
        Me.JobID.SetFocus
        'Me.imgClipboard.SetFocus
        .Visible = False
    End With
       
Exit_imgClipboard_Click:
    Exit Sub
   
Err_imgClipboard_Click:
    MsgBox Err.Description & " - " & Err.Number
    Resume Exit_imgClipboard_Click
End Sub
[/code]

Så her er jeg kørt lidt fast, og har brug for noget ekspert hjælp for at komme videre.