form kilitleme veya imhası

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

(21/04/2012, 13:25)C*e*l*o*y*c*e yazdı: lisans veya demo olarak formumuzda ara..güzel örnekler mevcut

başka önerisi olan varmı

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)