Skip to main content

AccessTr.neT


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

mahircinar01
mahircinar01
6
5329

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

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Kullanım süresi dolmuştur uyarısı - Yazar: mahircinar01 - 17/07/2013, 09:38
Task