Sayın ATOZ gösterdiğin ilgi ve alaka en önemlisi emeğin için çok teşekkür ederim yolladığın örnekte satış olsun olmasın soruyordu. daha önce yolladığın üzerinde de saatlerdir uğraştım kodlarla oynadım fakat muaffak olamadım en son yolladığın kodlarla da oynadım ve en sonunda istediğim oldu senin yolladığın kodda ufak değişiklik ve yer değiştirmeyle sorun halledildi
kodlar:
If DCount("*", "stcıkıs") = 0 Then
DoCmd.Close acForm, "xxxxxxxxxx"
Exit Sub
End If

If MsgBox("Formu kapatmak istiyor musunuz?", vbYesNo, "KAPATMA UYARISI") = vbYes Then

If DCount("*", "stcıkıs") > 0 Then
DoCmd.SetWarnings False
DoCmd.OpenQuery "stokcıkısınısil", acViewNormal, acEdit
DoCmd.SetWarnings True

DoCmd.Close acForm, "xxxxxxxxxx"

Exit Sub

End If
Else

End If

iyi çalışmalar
saygılar

sayın altın,

öncelikle,sorununuzun çözülmesi sizin adınıza iyi bir netice.paylaşmanız için de teşekkürler.

son olarak,
konunuzun 5.mesajındaki

Alıntı:...kayıt yoksa kapatmıyor...

ifadenizden dolayı,yine aynı mesaj içerisinde olması isteniyor diye yorumlandığı için;mesaj içerisine ilgili tüm kodlar yazılmıştır.

aksi durumda,elbette,mesajdan bağımsız şekilde yazmak gerekmektedir.bilginize.

iyi çalışmalar,
saygılar.

Haklısınız emeğiniz için tekrar teşekkür eder
iyi çalışmalar dilerim
saygılar.