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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

airborne

Üye
Üye
 Belirtilmemiş
 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....
 38
 6.120
 162
 29/10/2008
 Bursa
 Yazılım Geliştirici
 Ofis 2010 32 Bit
 30/08/2018,18:18
Çö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
 Belirtilmemiş
 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....
 40
 11.248
 465
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,01:15
Çö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....
 44
 3.739
 69
 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
 58
 1.010
 56
 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 Son Yorum
Çözüldü Hata Mesajı 3346 notrino 2 89 31/08/2018, 16:13
Son Yorum: notrino
Çözüldü Bağlı Tablo Bilgileri Gösterme Ve Yenileme Hata ielmacilar 3 155 28/08/2018, 23:52
Son Yorum: mehmetdemiral
Çözüldü Msgbox Kullanımda Hata kübrashn 4 120 01/08/2018, 10:53
Son Yorum: kübrashn
Çözüldü Onay Kutusundaki Çeki Kaldırdığımda Hata yturan 2 106 19/07/2018, 08:16
Son Yorum: yturan
Çözüldü Nerede Hata Yapıyorum hegu 2 169 15/07/2018, 17:48
Son Yorum: hegu

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