Hjælp til "Invalid use of null" i formular

Private Sub Form_BeforeInsert(Cancel As Integer)
Dim X As Single
X = DLast("[InspTargethours]",
"QryC172ProductionControlledItems", ([AC_Reg] = "Me.AC_Reg"))

Me![Target hours] = X

Dim Y As Single
Y = DLast("[InspTargetcycles]",
"QryC172ProductionControlledItems", ([AC_Reg] = "Me.AC_Reg"))

Me![Target cycles] = Y

Dim Z As Date
Z = DLast("[Insp Target date]",
"QryC172ProductionControlledItems", ([AC_Reg] = "Me.AC_Reg"))

Me![Target date] = Z

End Sub

Ovennævnte kode virker, men kun under visse betingelser, nemlig at "Target hours","Target cycles" og "Taget date" felterne ikke må være nul eller empty. Koderne overfører værdien "Insp Target ..." til feltet "Target…" i næste post.
Hurtig forklaring:
I felterne "Target hours", "Target cycles" og "Target date" lægges en startværdi ind i forespørgslen. Der vil aldrig blive lagt værdi ind i alle felterne samtidig.
Det kunne f.eks. se således ud - "Target hours" = 756,67 og "Target date" =  09/09/2009. I feltet "Target cycles"  indtastes ingen værdi.
Når koden køres får jeg fejlen "Invalid use of Null" hvilket jeg godt forstår da "Target cycles" ingen værdi har.
Jeg har prøvet at tilføje If-Then-Else sætning, således at det stykke kode hvor "Target værdien" er null eller empty springes over, men kan ikke få det til at virke, men det må jo kunne lade sig gøre, eller hvad?