Un formulario llamemosle algo complicado

[Koudelka]

Ya he arreglado lo de antes, ahora necesito que de este botón que mira la fecha y si hay registro va a ese último y sino me crea un nuevo, quiero que directamente me cree un nuevo registro, dejando en el código que me guarde el CodigoOperario.

El botón tiene lo siguiente:

Código:

Private Sub CmdAceptar_Click()
    Dim IdOperario As Long
    
    IdOperario = Nz(DLookup("CodigoOperario", "operario2", "clave=" & Me.Txtclave), 0)
    
    
    'Comprobamos si existe la clave introducida
    If IdOperario <> 0 Then
        'comprobamos si hay algun registro para este operario en la tabla Partes de tarbajo para
        'La fecha actual, si existe abrimos el registro, si no abrimos uno nuevo
        If DCount("*", "PartesDeTrabajo", "CodigoOperario=" & IdOperario & " AND Fecha=#" & Format(Date, "mm/dd/yyyy") & "#") > 0 Then
            DoCmd.OpenForm "hora3", acNormal, , "CodigoOperario=" & IdOperario & " AND Fecha=#" & Format(Date, "mm/dd/yyyy") & "#"
            'cerramos el form numeros
            DoCmd.Close acForm, Me.Name
        Else
            DoCmd.OpenForm "hora3", acNormal, , , acFormAdd
            Forms!hora3!CodigoOperario = IdOperario
            'Forms!hora!fecha = Date'Esta no hace falta ya que tienes en la tabla Partes de trabajo
            'El campo fecha con valor predeterminado la fecha actual
            'cerramos el form numeros
            DoCmd.Close acForm, Me.Name
        End If
    Else
        MsgBox "La contraseña introducida no corresponde a ningun empleado", vbCritical, "CONTRASEÑA ERRONEA"
    End If
End Sub

EDIT: ya lo he arreglado >.<