AccessTr.neT
Lisanslama kodunda hata - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Lisanslama kodunda hata (/konu-lisanslama-kodunda-hata.html)

Sayfalar: 1 2


Lisanslama kodunda hata - airborne - 08/12/2010

s.a.

Private Sub Form_Open(Cancel As Integer)
Dim Yetki As String
Yetki = Dlookup ("Yetki", "tblsifre", "[ID]=" & Forms!frmşifre!kullanıcı.Value)
If Yetki = "Admin" Then
k1 = Dir("c:\windows\system32\def.txt")
If k1 = "" Then
MsgBox "Üzgünüz. Lisans işlemleriniz yapılmamış. Lütfen bizimle irtibata geçiniz", vbCritical, "DİKKAT - Lisanssız program kullanımı"

DoCmd.OpenForm "frm_Lisans"
k2 = Dir("c:\windows\system32\abc.txt")
If k2 = "" Then MsgBox "Üzgünüz. Lisans işlemleriniz yapılmamış. Lütfen bizimle irtibata geçiniz", vbCritical, "DİKKAT - Lisanssız program kullanımı"
DoCmd.OpenForm "frm_Lisans"
Else

End If

Open "c:\windows\system32\def.txt" For Input As #3
Do While Not EOF(3)
Input #3, deger1
Loop
Close #3

Open "c:\windows\system32\abc.txt" For Input As #4
Do While Not EOF(4)
Input #4, deger2
Loop
Close #4


bu kodda Open "c:\windows\system32\def.txt" For Input As #3 satırında sürekli File not Found hatası alıyorum. kodda nasıl bir düzeltme yapılarak hata kaldırılabilir.



Cvp: Lisanslama kodunda hata - alpeki99 - 08/12/2010

Windows'unuz hangi hard diske kurulu? Eğer C:\ ye kurulu değilse normaldir dosyayı bulamaması. Ayrıca bu lisanslama örneği tam değil büyük ihtimalle kontrolü yapan yerler eksik olabilir.


Cvp: Lisanslama kodunda hata - airborne - 08/12/2010

c\: ye kurulu


Cvp: Lisanslama kodunda hata - ozanakkaya - 08/12/2010

Koddaki
Private Sub Form_Open(Cancel As Integer)
satırının hemen altına
on error resume next
kodunu ekle

veya 1. mesaja örnek uygulamanı ekle





Cvp: Lisanslama kodunda hata - ercansahin - 08/12/2010

Benimde aklıma şöyle bir şey geldi.. c:\windows\system32\ adresinde def.txt isimli dosya varmı? Kontrol ettiniz mi?


Cvp: Lisanslama kodunda hata - Hayri16 - 11/12/2010

Sayın airborne;
alpeki99,sledgeab ve blackeagle hocalarımızın sizin için önerdikleri çözümlere olumlu veya olumsuz geri dönüş yapar mısınız?
Saygılar.