AccessTr.neT

Tam Versiyon: Lisanslama kodunda hata
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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.
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.
c\: ye kurulu
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


Benimde aklıma şöyle bir şey geldi.. c:\windows\system32\ adresinde def.txt isimli dosya varmı? Kontrol ettiniz mi?
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.
Sayfalar: 1 2