Skip to main content

AccessTr.neT


Kullanım süresi dolmuştur uyarısı

mahircinar01
mahircinar01
6
5325

Kullanım süresi dolmuştur uyarısı

Çözüldü #1
merhaba benim elimde bir örnek var. örnek açılışta şifre değişikliği istiyor değişikliği yapınca program kullanım süresi dolmuştur deyip kapanıyor. bu süreyi nasıl düzeltebilirim?
kod aşağıda yardımlarınızı bekliyorum

'Sub formac()
'UserForm1.Show
'End Sub
'Sub Auto_Open()

If Sheets("NOT").[A13] = 123456 Then
MsgBox "Programa Hoşgeldiniz. " & vbCrLf & "Öncelikle kullanacağınız şifreyi ve kullanıcı adı ve ünvanınızı girmelisiniz. " & vbCrLf & "İlk şifre 123456 dır. " & vbCrLf & "Şimdi yeni şifrenizi ve isim ünvan bilgilerini girerek programı açabilirsiniz.", vbSystemModal, Sheets("NOT").[A15] & " " & Sheets("NOT").[A14] & ""
Application.Visible = False
UserForm1.Show
End If

If Sheets("NOT").[A13] <> 123456 Then
Application.Visible = True
End If


Application.StatusBar = Sheets("not").[A14] & " " & Sheets("not").[A15] & ""
Application.Caption = "İZİN TAKİP PROGRAMI"
ActiveWindow.Caption = ""
Sheets("veriler").Select

Dim saat1 As Date
Dim saat2 As Date
saat1 = Sheets("NOT").[B33]
saat2 = Date
If saat2 > saat1 Then
MsgBox "Programın kullanım süresi dolmuştur. İyi günler.", vbSystemModal, Sheets("NOT").[A14] & " " & Sheets("NOT").[A15] & ""
ActiveWorkbook.Close
End If
If saat1 - saat2 < 91 Then
If saat1 > saat2 Then
MsgBox "Kullanım için sadece " & saat1 - saat2 & " gününüz kalmış olup program " & saat1 & " tarihinde kapanacaktır.", vbSystemModal, Sheets("not").[A14] & " " & Sheets("not").[A15] & ""
End If
End If
'End Sub
Cevapla
Çözüldü #2
Aşağıda verdiğim bölümde tarih denetimi yapılıyor.

Bu bölümde düzenleme yapabilir, If şartlarını kaldırabilir veya en son alternatif olarak sistem tarihini değiştirebilirsiniz.


Dim saat1 As Date
Dim saat2 As Date
saat1 = Sheets("NOT").[B33]
saat2 = Date
If saat2 > saat1 Then
MsgBox "Programın kullanım süresi dolmuştur. İyi günler.", vbSystemModal, Sheets("NOT").[A14] & " " & Sheets("NOT").[A15] & ""
ActiveWorkbook.Close
End If
If saat1 - saat2 < 91 Then
If saat1 > saat2 Then
MsgBox "Kullanım için sadece " & saat1 - saat2 & " gününüz kalmış olup program " & saat1 & " tarihinde kapanacaktır.", vbSystemModal, Sheets("not").[A14] & " " & Sheets("not").[A15] & ""
End If
End If
'End Sub
Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Cevapla
Çözüldü #3
sayın hocam benim istediğim şifre değişikliği yapıldıktan sonra kullanım süresi dolmuştur demesin istiyorum. sistem saati değiştirmekle kastınız tarihin 2013 yılından önceki bir tarihe mi almak anlamına geliyor. bilmem anlatabildin mi? saygılarımla
Cevapla
Çözüldü #4
Ben daha önce işlediğiniz verilere süre dolduğu için erişemediğinizi var sayarak sistem saatini önermiştim.
O zaman If bloğunda düzenlemeye gitmeniz yeterli olacağı kanaatindeyim.
Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Cevapla
Çözüldü #5
peki sayın hocam if bloğunda düzenlemeyi nasıl yapacağım ?
Cevapla
Çözüldü #6
UserForm1 üzerinde nasıl bir denetim var ne iş yapar bilmeden doğru cevap yazmak imkansız.
İlk mesajda yazdığım If bloğunda düzenlemeden kasıt : Tarihi denetlemeden işleme devam etmesini sağlamaktır.

Veya NOT isimli sayfanın B33 hücresinde bulunan tarihi ileri bir zamana değiştirebilirsiniz.

Tekrar hatırlatıyorum : (UserForm1 üzerinde nasıl bir denetim var ne iş yapar bilmeden doğru cevap yazmak imkansız.)
Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task