Belli Bir tarihten sonra düğmeyi etkinsizleştirme

[Karanlik1]

Arkadaşlar merhaba,

Form içindeki düğmeye atanmış şu işlevin mesela 1 Eylül'den sonra çalışmasını istemiyorsak nasıl bir kontrol koyabiliriz.

Mesela "Tarihe bak, Eğer 1 Eylül'den önceyse şunu yap, yok değilse button u disable et" denebilir de nasıl yazılır onu bilmiyorum.

Sağolun

Private Sub Ab_Click()
IE.Navigate "http://kara.com"
Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub UserForm_Initialize()
    If Date >= DateSerial(2008, 9, 1) Then
    Ab.Enabled = False
    Else
    Ab.Enabled = True
    End If
End Sub

 

[Karanlik1]

Eline sağlık,

Peki direk

Private Sub Ab_Click()
IE.Navigate "http://kara.com"
Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
End Sub

bu kodun içine bişey yerleştiremez miyiz?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub Ab_Click()
    If Date >= DateSerial(2008, 9, 1) Then Exit Sub
    IE.Navigate "[URL]http://kara.com[/URL]"
    Do Until IE.ReadyState = 4: DoEvents: Loop
    Do While IE.Busy: DoEvents: Loop
End Sub

 

[Karanlik1]

Düğme çalışmıyor ama basılabiliyor. Böyle de işime arıyor çok saol...