Merhaba, rapor çıkar butonunun tıklandığında olayındaki

If Me.Liste3.Column(6) = "" Then: MsgBox "Seçtiğiniz kaydın sonuçları belirlenmemiş...", vbInformation, "Laboratuvar": Exit Sub

kodunu 

If DCount("*", "T_NUMUNEDETAY", "[NumuneSıraNo] = " & [Liste2] & " AND IsNull(Sonuç)") > 0 Then: MsgBox "Seçtiğiniz kaydın sonuçları belirlenmemiş...", vbInformation, "Laboratuvar": Exit Sub

kodu ile değiştirerek deneyiniz.