Scusa Alex risolto
era un campo data frutto di una ricerca
Public Function CercamiLEsame(myAnagrafe)
Dim myrst1 As DAO.Recordset
Dim myrst2 As DAO.Recordset
Dim myTurno As Long
Dim myResp As Variant
'myResp = 0
myResp = ""
Set myrst1 = CurrentDb.OpenRecordset("Anagrafe", dbOpenDynaset)
Set myrst2 = CurrentDb.OpenRecordset("Turni", dbOpenDynaset)
myrst1.FindFirst "ID_ANAGRAFE = " & myAnagrafe
If Not myrst1.NoMatch Then
If myrst1.Fields("CALENDARIZZATO") Then
myTurno = myrst1.Fields("COD_TURNI")
myrst2.FindFirst "ID_TURNI = " & myTurno
If Not myrst2.NoMatch Then
myResp = myrst2.Fields("DATA")
End If
End If
End If
myrst1.Close
myrst2.Close
CercamiLEsame = myResp
End Function
se non c'era una data trovata la funzione restituiva 0 e tale dato finiva in tabella
ragion per cui l'inghippo
ora la funzione, se non trovato, restituisce "" anziche 0
il report non c'entra nulla