+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Kullanım süresi dolmuştur uyarısı (/konu-kullanim-suresi-dolmustur-uyarisi.html)
Sayfalar:
1
2
Kullanım süresi dolmuştur uyarısı - mahircinar01 - 17/07/2013
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
Cvp: Kullanım süresi dolmuştur uyarısı - iscinar - 17/07/2013
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
Cvp: Kullanım süresi dolmuştur uyarısı - mahircinar01 - 17/07/2013
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
Cvp: Kullanım süresi dolmuştur uyarısı - iscinar - 17/07/2013
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.
Cvp: Kullanım süresi dolmuştur uyarısı - mahircinar01 - 18/07/2013
peki sayın hocam if bloğunda düzenlemeyi nasıl yapacağım ?
Cvp: Kullanım süresi dolmuştur uyarısı - iscinar - 18/07/2013
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.)