Buyrun inceleyin..
Giriş fomundaki, Uygulamadan Çık düğmesini kullanmalısınız.
Selam arkadaslar bana Eczane Programı lazım
sn ycancan, bu sorunuza cevap yazayım, ama konu başlığı ile ilgisi olmayan yeni sorularınızı yeni konu açarak sorunuz.
Formdaki kapat butonundaki kodu
kodu ile değiştir.
Lütfen Site Kurallarımızı da incele.
AccessTr.Net Forumlarında Uyulması Gereken Genel Kurallar
5-) Açacağınız konunun başlığı "Şunu Yapamıyorum", "Şurasını Yapamadım", "acil yardım", lütfen yardım", "bir bakar mısınız" vb. şeklinde yazılmamalı, sorununuzu kısaca özetleyecek şekilde olmalıdır. (Örnek: Access'te Form Özellikleri Nelerdir?)
[Uyarı Puanı: +2]
6-) Sorununuz ile ilgili konu açtıysanız lütfen aynı soru ile ilgili tekrar konu açmayınız. Ayrıca, açtığınız konudaki sorun çözümlenmişse aynı konuya konu başlığındaki soru ile ilgisi olmayan farklı soru yazmayınız, başka bir üyenin soru içerikli konusuna soru yazmayınız. Sorunuz için yeni konu açınız.
[Uyarı Puanı: +2]
Formdaki kapat butonundaki kodu
Kod:
application.quit
Lütfen Site Kurallarımızı da incele.
AccessTr.Net Forumlarında Uyulması Gereken Genel Kurallar
5-) Açacağınız konunun başlığı "Şunu Yapamıyorum", "Şurasını Yapamadım", "acil yardım", lütfen yardım", "bir bakar mısınız" vb. şeklinde yazılmamalı, sorununuzu kısaca özetleyecek şekilde olmalıdır. (Örnek: Access'te Form Özellikleri Nelerdir?)
[Uyarı Puanı: +2]
6-) Sorununuz ile ilgili konu açtıysanız lütfen aynı soru ile ilgili tekrar konu açmayınız. Ayrıca, açtığınız konudaki sorun çözümlenmişse aynı konuya konu başlığındaki soru ile ilgisi olmayan farklı soru yazmayınız, başka bir üyenin soru içerikli konusuna soru yazmayınız. Sorunuz için yeni konu açınız.
[Uyarı Puanı: +2]
hocam eyvallah eline emeğine sağlık fakat kapatınca program açık kalıyor görev yöneticisinden kapatmadanda açılmıyor bu konuda sorunumuz var
Tecrübe herkesin kendi hatalarına verdiği addır.
Kontrollü çıkış için;
uygulamadan çıkış butonunun tıklatıldığında olay yordamına aşağıdaki kodu yazın.
C = MsgBox("Programı Kapatmak İstiyor musunuz?", vbYesNo + vbCritical, "www.accesstr.net")
If C = vbNo Then
Cancel = True
ElseIf C = vbYes Then
Dim msg As String
DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes
Application.CommandBars.FindControl
DoCmd.Quit
End If
uygulamadan çıkış butonunun tıklatıldığında olay yordamına aşağıdaki kodu yazın.
C = MsgBox("Programı Kapatmak İstiyor musunuz?", vbYesNo + vbCritical, "www.accesstr.net")
If C = vbNo Then
Cancel = True
ElseIf C = vbYes Then
Dim msg As String
DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes
Application.CommandBars.FindControl
DoCmd.Quit
End If
Application Engineer
hocam kodla ilgili hiçbir bilgim yok o kodu şimdi modülün sonunamı yazayım nereye yazayım anlamadım ben diyorumki esc ye basınca çıkınca acık kalıyor,pek anlamadım kusura bakmayın sizin anlatamadıgınızdan değilde kod ile ilgili birşey görmediğimizden kaynaklanıyor
Tecrübe herkesin kendi hatalarına verdiği addır.
Sn ycancan, sledgeab hocam yapman gerekeni belirtmiş. Kapandığında olayına hocamın dediği kod yazılınca bu sıkıntı ortadan kalkar. Aynı zamanda öncede belirttim Uygulamadan Çık diye bir düğme ekledim. O düğmeyi kullanarak çıktığındada sorun olmaz.
Konuyu Okuyanlar: 1 Ziyaretçi