Skip to main content

AccessTr.neT


Lisanslama kodunda hata

Lisanslama kodunda hata

Çözüldü #1
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.
Cevapla
Çözüldü #2
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.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #3
c\: ye kurulu
Cevapla
Çözüldü #4
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


Cevapla
Çözüldü #5
Benimde aklıma şöyle bir şey geldi.. c:\windows\system32\ adresinde def.txt isimli dosya varmı? Kontrol ettiniz mi?
Cevapla
Çözüldü #6
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.
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task