Peki bu imhayı kod sahibide mi geri alamıyor ? Diyelim ki belirtilen tarihte form kilitlendi, içinde ki bilgilere sadece program sahibi ulaşsa daha iyi olmaz mı ? Olmaz ise, çok acımasız bir kod ve acımasız bir program sahibi olur. Aynı, duvarı yıkıp, kiremitleri kırmak gibi (Vizonteleden araklanmıştır)

(22/04/2012, 20:04)yorum70 yazdı: Peki bu imhayı kod sahibide mi geri alamıyor ? Diyelim ki belirtilen tarihte form kilitlendi, içinde ki bilgilere sadece program sahibi ulaşsa daha iyi olmaz mı ? Olmaz ise, çok acımasız bir kod ve acımasız bir program sahibi olur. Aynı, duvarı yıkıp, kiremitleri kırmak gibi (Vizonteleden araklanmıştır)

Bu kodla zaten form silinmekte, dolayısı ile program sahibide aynı şekilde forma ulaşamayacaktır. Elbette size katılıyorum, insan kendi yaptığı uyulamada neden böyle bir şeye ihtiyaç duyar mı orası biraz göreceli bir durum.

Aşağıdaki kodu formun açılışına yazıyoruz. Form her açıldığında bu kod gerekli kontrolü yapıyor ve eğer şart oluşmuş ise Form2 isimli (yada sizin belirleyeceğiniz formu) formu siliyor.

Private Sub Form_Load()

Dim tarih As Date 'tarih değişkenini tanımlıyoruz

 tarih = "21.04.2012" 'tarih değişkenini 21.04.2012 olarak belirliyoruz

If tarih = Date Then 'güncel tarih belirlediğimiz tarih ile eşit olduğunda

 DoCmd.DeleteObject acForm, "Form2" 'Form2 isimli formu sil komutu veriyoruz

End If

End Sub

talebim şu üç form silmek istiyorum kod nasıl olmalı yani silinen form 2, form 3, form 4 üçünüde aynı anda silebilirmiyim

İlgili kodun son bölümündeki
DoCmd.DeleteObject acForm, "Form2" 'Form2 isimli formu sil komutu veriyoruz
kodunu aşağı doğru sıralamayı denedin mi?

DoCmd.DeleteObject acForm, "Form2" 'Form2 isimli formu sil komutu veriyoruz

DoCmd.DeleteObject acForm, "Form3" 

DoCmd.DeleteObject acForm, "Form4" 

(26/04/2012, 05:10)palmet yazdı: Aşağıdaki kodu formun açılışına yazıyoruz. Form her açıldığında bu kod gerekli kontrolü yapıyor ve eğer şart oluşmuş ise Form2 isimli (yada sizin belirleyeceğiniz formu) formu siliyor.

Private Sub Form_Load()

Dim tarih As Date 'tarih değişkenini tanımlıyoruz

 tarih = "21.04.2012" 'tarih değişkenini 21.04.2012 olarak belirliyoruz

If tarih = Date Then 'güncel tarih belirlediğimiz tarih ile eşit olduğunda

 DoCmd.DeleteObject acForm, "Form2" 'Form2 isimli formu sil komutu veriyoruz

End If

End Sub

sayın ustatlarım bu şekilde sorgu ve rapor sil talimatı verebilirmiyiz yanı form sil komutunu sorgu ve rapor sil olarak düzenleme imkanı varmı varsa düzenleyebilirmiyiz teşekkürler

Sn.palmet
Önceki sorunuza 11 gündür geri dönüş yapmamışsınız. (Halen yaptığınızda söylenemez)
Bakalım bu sorunuza geri bildirimde bulunacakmısınız

 DoCmd.DeleteObject acQuery, "Sorgu adı" 'Sorgular için

 DoCmd.DeleteObject acReport, "Rapor adı" 'Raporlar için