Kullanım süresi dolmuştur uyarısı
Tarih
17/07/2013 09:38
Konu Sahibi
mahircinar01
Yorumlar
6
Okunma
3140
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



mahircinar01
Aktif Üye
Kullanici Avatari
Aktif Üye
M.... Ç....
253
13/06/2011
0
Çorum
Ofis 2013 Tr. 32 Bit
23/02/2016,11:59
Çözüldü 
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

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
'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


iscinar
İsmail ÇINAR
Kullanici Avatari
Uzman
İ.... Ç....
856
30/05/2011
272
İstanbul
Ofis 2007
17/11/2016,11:19
Çözüldü 
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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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


mahircinar01
Aktif Üye
Kullanici Avatari
Aktif Üye
M.... Ç....
253
13/06/2011
0
Çorum
Ofis 2013 Tr. 32 Bit
23/02/2016,11:59
Çözüldü 
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


iscinar
İsmail ÇINAR
Kullanici Avatari
Uzman
İ.... Ç....
856
30/05/2011
272
İstanbul
Ofis 2007
17/11/2016,11:19
Çözüldü 
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


mahircinar01
Aktif Üye
Kullanici Avatari
Aktif Üye
M.... Ç....
253
13/06/2011
0
Çorum
Ofis 2013 Tr. 32 Bit
23/02/2016,11:59
Çözüldü 
peki sayın hocam if bloğunda düzenlemeyi nasıl yapacağım ?
Cevapla


iscinar
İsmail ÇINAR
Kullanici Avatari
Uzman
İ.... Ç....
856
30/05/2011
272
İstanbul
Ofis 2007
17/11/2016,11:19
Çözüldü 
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







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Çalışma Süresi Hesaplama Conqueror020 3 3.124 31/10/2012, 13:22 yücelkaya
Çözüldü görev süresi yardımı mahircinar01 7 2.116 26/04/2012, 17:46 DUAYEN
Çözüldü Netxrow hata uyarısı Silver Lifes 2 1.511 04/03/2011, 20:02 İzmir


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya