Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
08/12/2010 01:07
Konu Sahibi
airborne
Yorumlar
6
Okunma
2617
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

airborne

Üye
Üye
13
6
28/07/2010
0
Ofis 2003
27/08/2015,09:36
Çözüldü 
s.a.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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.


airborne, 28-07-2010 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

alpeki99

Düşünmek en zor iştir...
Uzman
OL....
6.119
29/10/2008
Bursa
Yazılım Geliştirici
Ofis 2010 32 Bit
17/04/2018,11:04
Çözüldü 
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.

Kullanici Avatari

airborne

Üye
Üye
13
6
28/07/2010
0
Ofis 2003
27/08/2015,09:36
Çözüldü 
c\: ye kurulu


airborne, 28-07-2010 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

ozanakkaya

sledgeab
Kurucu
OZ.... AK....
10.823
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Çözüldü 
Koddaki

Visual Basic Code
Private Sub Form_Open(Cancel As Integer)

satırının hemen altına

Visual Basic Code
on error resume next

kodunu ekle

veya 1. mesaja örnek uygulamanı ekle



"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

ercansahin

BlackEagle
Uzman
ER.... ŞA....
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
03/03/2018,16:39
Çözüldü 
Benimde aklıma şöyle bir şey geldi.. c:\windows\system32\ adresinde def.txt isimli dosya varmı? Kontrol ettiniz mi?



Kullanici Avatari

Hayri16

Aktif Üye
Aktif Üye
1.010
12/11/2009
294
Bursa
Ofis 2007
10/04/2018,10:30
Çözüldü 
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.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Formda Resim Yoksa Hata Sorunu fascioğlu 11 204 31/05/2018, 16:45 fascioğlu
Çözüldü Permission Denied Hata Uyarısı fascioğlu 11 179 30/05/2018, 16:56 fascioğlu
Çözüldü İiçe Seçimi Uygulamasında Hata. fascioğlu 6 156 25/05/2018, 15:21 Seruz
Çözüldü Formlarda Ve Projenin Tamamında Hata Denetimi Yapma fascioğlu 5 149 20/05/2018, 03:51 fascioğlu
Çözüldü Altform'da Yeterince Kayıt Olmadığında Hata Merve D. 2 114 09/05/2018, 16:31 Merve D.

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.