Skip to main content

AccessTr.neT


satış varken kapatma uyarısı

satış varken kapatma uyarısı

#7
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
Dünya hayatı bir oyun ve eğlenceden başka bir şey değildir. Allah'tan korkanlar için elbette ahiret yurdu daha hayırlıdır. Hâlâ akıl erdiremiyor musunuz? 
(En'am: 32)
Cevapla
#8
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.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#9
Haklısınız emeğiniz için tekrar teşekkür eder
iyi çalışmalar dilerim
saygılar.
Dünya hayatı bir oyun ve eğlenceden başka bir şey değildir. Allah'tan korkanlar için elbette ahiret yurdu daha hayırlıdır. Hâlâ akıl erdiremiyor musunuz? 
(En'am: 32)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task