formun içine yerleştireceğim ( üzerine gizli yazacağım bir kod ile ) 01.01.2015 tarihinde form yada program açıldığında kilitlenecek ve çalışmayacak ve de uyarı dahi vermeyecek lütfen kod istiyorum. ayrıca tarihli bir makro ile zamanı gelince program açıldığında form veya tablo silmek için makro örneği ( örneğin şu 01.01.2015 tarihinde program açıldığında makro kendiğilnden devreye girecek ve formu silecek ) lütfen yapalım ustatlar
lisans veya demo olarak formumuzda ara..güzel örnekler mevcut
Bir komplo hazırlığı hissediyorum ama hadi hayırlısı
)
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
yalnız hatırlatmalıyım ki silmek istediğiniz form açıkken bu işlem gerçekleşmez. Bunun için docmd.DeleteObject acForm, "Form2" satırından önce DoCmd.Close acForm, "Form2" yazmalısınız.
(21/04/2012, 23:28)ercansahin yazdı: [ -> ]Bir komplo hazırlığı hissediyorum ama hadi hayırlısı)
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
yalnız hatırlatmalıyım ki silmek istediğiniz form açıkken bu işlem gerçekleşmez. Bunun için docmd.DeleteObject acForm, "Form2" satırından önce DoCmd.Close acForm, "Form2" yazmalısınız.
'güncel tarih belirlediğimiz tarihten büyük olduğunda olursa iyi olur ona göre tekrar düzenlerseniz
burayı If tarih = Date Then
aşağıdaki şekilde değiştirin
If tarih< = Date Then
'(belirlenen tarih bu günden küçük ve eşitse)