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.