istediğiniz saatte bilgisayarınızı kapatabilir, oturumu kapatabilir, yeniden başlatabilir yada gücü kesebilirsiniz.

[Resim: http://server92.kucukresim.com/uploads/w...tb5868.jpg]

Tam ekran-simge durumuna küçült-gizle ve kapat örneği.

Arkadaşlar merhaba. Formdaki tüm hücreleri doldurmadan pencere (X) tıklanıp kapatıldığında veriler eksik kaydediliyor. Bun u engellemek istiyorum.

Access te penceredeki kapat(X) ı iptal edip. Kaydet diye oluşturduğum butona tıklayınca verileri kaydedip pencereyi kapatmasını istiyorum. Bunu nasıl yapabilirim? yardımcı olursanız sevinirim.

merhabalar;
yapmış olduğum bir uygulamada kullanıcıların accessin kapat butonunu tıklamamalarını nasıl sağlarım?
kullanıcılar başka bir formun üzerindeki kapat butonuna tıklayınca programın kapanması yapılabilinir mi?

Merhaba Arkadaslar,
Access de ki raporun uzerine kapat butonu nu nasil koyabiliriz. Ekranda bu buton gorunecek ancak rapor ciktisinda gorunmeyecek.
Ilginiz icin cok tesekkur ederim.
Saygilar

Nika

Merhaba,

Excel'de oluyordu.

Access.te kapat (x) iptali için nasıl bir yol izlenmeli.
Access gizlenmeden yapılan bir çalışmada,sadece formda bulunan kapat butonuyla access.ten çıkılabilsin. Access.in kapat(x) işlevi iptal edilsin.

Bunun bir modülle olabileceğini tahmin ediyorum.

Selamlarımla.

alıntıdır

Bilgisayarı Ayarlanan Zamanda Kapat
Yaptığımız Programın Demo Versiyonlarında Kullanılabilir Diye Düşündüm.
Saygılar.

arkadaşlar ekteki örnekte başlıktanda anlamışsınızdır sanırım pc kapat,reset ve oturumu kapat var.denedim çalışıyor.accessda butonun koduna kaydet kapat yazdım ama denemeden önce siz diğer programlarınızda açık veri v.s varsa kaydedin öyle deneyin gönderdiğim örneği.

Formda Kapat Butonu Var,Kapatılsınmı-Kapatılmasın mı Diye Soruyor.Kapatılmasın Dediğimde Boş Bir Kayıt Oluşturuyor.Kontrol Edebilirseniz Sevinirim.İyi Çalışmalar.

Private Sub s5_Click()

c = MsgBox("Programı Kapatmak İstiyor musunuz?", vbYesNo + vbCritical, "Kargo")

Undo

SendKeys "{esc}", True

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

End Sub

Not: Sorunum K