Acces'te Auto Open var mı?

[Ersen]

Arkadaşlar sorunum çok ilginç. Yaptığım programı MDE formatına çevireceğim, bundan önce günün tarihini ilerideki bir tarihle karşılaştırarak programı kısıtlayan bir yordam oluşturmak istiyorum. Ancak formun açılma, yüklenme, değişme vs. bütün bölümlerinde denediğim halde acces verilen tarihin küçük veya büyük olmasını pek dikkate almıyor, sistemin tarihini ileri aldığımda hatta bazen tam tersine işlem yapıyor.

Tecrübeli arkadaşlar, hocalar bu konuya bir baksalar yeridir.

Exceldeki gibi bir Auto Open fonksiyonu veya buna benzer birşey önerebilirmisiniz?
(Belirleyeceğim ileri tarih parametresinden günün tarihi büyük olduğunda formdaki bir veya birkaç öğenin visible özelliğini false yaparak programı kısıtlamak istiyorum)

Þimdiden hepinize teşekkürler.

 

[karaayhan]

programı kısıtlama konusu forumda vardır..

formun giriş sayfasındaki access örnekleri ve bilgileri konu başlığı altında sorunuza cevap bulabilirsiniz. :keyif:

 

[Ersen]

AutoOpen

Belirtilen bölümde ve forumun tüm bölümlerinde yaptığım aramalardan olumlu bir sonuç çıkaramadığım için bu başlığı açtım. Belirttiğin bölümde shift tuşunu devre dışı bırakmayı bulabildim ancak sorunumu çözemedim. AutoExec yordamı ile de tarihi kontrol edemiyorum. Çünkü AutoExec makrosuna yazdığım tarih kontrolü de doğru çalışmadı.
Kısaca sorunum şu 31.12.2006 tarihine kadar program kullanılacak bu tarih geldiğinde açılır açılmaz kullanım süresinin dolduğuna dair mesaj verecek ve programı kapatacak.

Böyle bir çözümü bulabilen arkadaşa minnettar kalacağım.

 

[modalı]

ekte ki kodu bir deneyin bakalım

Option Compare Database 'Use database order for string comparisons
Option Explicit

Private Sub Form_Timer()

Const c_intIDLEMINUTES = 30
Static strPrevCtlName As String
Static strPrevFrmName As String
Static lngExpiredTime As Long

Dim strActiveFrmName As String
Dim strActiveCtlName As String
Dim lngExpiredMinutes As Long

On Error Resume Next


strActiveFrmName = Screen.ActiveForm.Name
If Err Then
strActiveFrmName = "No Active Form"
Err = 0
End If

strActiveCtlName = Screen.ActiveControl.Name
If Err Then
strActiveCtlName = "No Active Control"
Err = 0
End If

txtActive.Text = strActiveCtlName & ";" & strActiveFrmName

If (strPrevCtlName = "") Or (strPrevFrmName = "") Or (strActiveFrmName <> strPrevFrmName) Or (strActiveCtlName <> strPrevCtlName) Then
strPrevCtlName = strActiveCtlName
strPrevFrmName = strActiveFrmName
lngExpiredTime = 0
Else
lngExpiredTime = lngExpiredTime + Me.TimerInterval
End If

lngExpiredMinutes = (lngExpiredTime / 1000) / 60
If lngExpiredMinutes >= c_intIDLEMINUTES Then
'this user has to be kicked off
lngExpiredTime = 0
Application.Quit acQuitSaveAll
End If

End Sub

 

[oza]

bu kodu nereye yerleştirmemiz gerekiyor?