tarih 01.06.2006 ise msgbox yazsın ve tablom kapansın...

[umutsancar]

Açılışta reel olarak tarih 01.06.2006 ise ekrana bir msgbox yazsın ve tablom otomatik olarak kapansın. Nasıl olur? Yardımcı olabilirseniz sevinirim.

Saygılar & Sevgiler
Umut Sancar

 

[milhanalp]

Private Sub Workbook_Open()
If Date = "08.01.2006" Then
Application.Visible = False
MsgBox "Çalışmanız kapatılacak"
Application.Quit
End If
End Sub

Ã?zellikle bugünün tarihini yazdım. Kapatma işlemi görünsün diye.

 

[umutsancar]

Sağolasın milhanalp,

 

[ertuer]

Ben modül ekleyip bu kodu yapıştırıyorum.dosyayı daha sonra açınca program kapanmıyor...işlem basamaklarını anlatabilecek bir arkadaş yardımcı olursa memnun olurum.

 

[Levent Menteşoğlu]

Kodu normal bir modul sayfasına değil thisworkbook kod sayfasına kopyalayacaksınız. Normal mpdu sayfasında Sub auto_open() olarakta yazabilirsiniz.

 

[ertuer]

Sn arkadaşlar, burada bir eksik var sanırım...sadece 08,01,2006 tarihinde çalışmıyor...oysa bir gün sonra yine çalışıyor..Halbuki belli bir tarihe kadar çalışmalı buradaki örnrkte 08,01,2006,bu tarihten sonraki hiçbir tarihte çalışmamalı
sayın üstadların ilgisine saygı ile sunulur.bu düzeltmede yapılırsa mükemmel olur

 

[Levent Menteşoğlu]

If Date = "08.01.2006" Then

Yukarıdaki satırı aşağıdaki gibi değiştirin.

If Date <= "08.01.2006" Then

 

[umutsancar]

Sevgili LeventM,

Þimdi isteyeceğimin birçok arkadaşa kılavuz olacağını düşünüyorum.


Tablomuzu çalıştırdığımız anda (tablomuzun içeriği gözükmeden) bir form açılsın, Bu formun üst kısmında Hdd'in seri numarası yazsın. Aynı formda bir textbox olsun, biz buraya Hdd seri no'sunun ilk 4 hanesini yazarsak programımız açılsın, yanlış girersek programımız kapansın.

Umarım anlatabilmişimdir.

Saygılar & Sevgiler...