Lisanslama kodunda hata

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.