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.