funktion virker pludselig ikke længere

Vi har i over et år kørt med denne database i produktionen, men siden tirsdag virker det ikke der kommer blot en meddelelse om at den foregående handling er annulleret.

Private Sub pH_Forpres_BeforeUpdate(Cancel As Integer)
On Error GoTo err_pH_Forpres_BeforeUpdate
Me.Liter_Syre = DLookup("syre_PVMGD", "tilføj_procesdata", "[Tanknr] = " & Right(Me.Batchnr, 2) & " and [Date] = #" & Format(Me.oprettet, "YYYY-MM-DD" & "#"))
Me.Formodningstid = DLookup("form", "tilføj_procesdata", " [tanknr]= " & Right(Me.Batchnr, 2) & " and [Date] = #" & Format(Me.oprettet, "YYYY-MM-DD" & "#"))
Me.Hensat_kl = DLookup("KL_hensat", "tilføj_procesdata", "[tanknr]= " & Right(Me.Batchnr, 2) & " and [Date] = #" & Format(Me.oprettet, "YYYY-MM-DD" & "#"))
Me.Hensæt_temp = DLookup("temp_hensat", "tilføj_procesdata", " [tanknr]= " & Right(Me.Batchnr, 2) & " and [Date] = #" & Format(Me.oprettet, "YYYY-MM-DD" & "#"))
Me.Kg_mælk = DLookup("total_mgd", "tilføj_procesdata", " [tanknr]= " & Right(Me.Batchnr, 2) & " and [Date] = #" & Format(Me.oprettet, "YYYY-MM-DD" & "#"))
Me.Efterv_temp = DLookup("temp_opvarmning", "tilføj_procesdata", " [tanknr]= " & Right(Me.Batchnr, 2) & " and [Date] = #" & Format(Me.oprettet, "YYYY-MM-DD" & "#"))
Me.varmt_vand = DLookup("opvarmning_PVMGD", "tilføj_procesdata", " [tanknr]= " & Right(Me.Batchnr, 2) & " and [Date] = #" & Format(Me.oprettet, "YYYY-MM-DD" & "#"))
exit_pH_Forpres_BeforeUpdate:
    Exit Sub
err_pH_Forpres_BeforeUpdate:
    MsgBox Err.Description
    Resume exit_pH_Forpres_BeforeUpdate

End Sub

Nogen som har en ide om hvad der er galt,

hvis jeg åbner forespørgslen tilføj_procesdata og indtaster værdierne fra indtastningsformularen fungerer det fint.