Şifre denetiminde değişken sürücü
Tarih
30/01/2010 20:22
Konu Sahibi
herdogan
Yorumlar
7
Okunma
1805
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



herdogan
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
130
21/12/2008
Edirne
Ofis 2003
10/06/2016,21:25
Çözüldü 
Sponsor Reklam
Arkdaşlar;
aşağıdaki kodlarda sürücü isimlerini değişken yapabilir miyiz.
Programımızın çalıştığı sürücüyü
AA = CurrentProject.Path
BB = Left(AA, 1)
bu kodlarla belirledik. bu sonucu aşağıdaki "F" diyerek sürücü adresi verdiğimiz yere monte edebilir miyiz?


Private Sub Form_Load()
Dim fso As Object
Dim drv As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set drv = fso.Drives.Item("F")
orjserial = drv.SerialNumber

uzun = Len(orjserial)
orjseri = orjserial * 4

kes = Mid(orjseri, uzun, 1) & Mid(orjseri, uzun - 1, 1) & Mid(orjseri, uzun - 2, 1) & Mid(orjseri, uzun - 3, 1) & Mid(orjseri, uzun - 4, 1)

Metin1.Value = kes

Open "f:\OGRENCITAKIP\lisans\ber.txt" For Output As #1
Write #1, Val(kes)
Close #1

k1 = Dir("f:\OGRENCITAKIP\lisans\num.txt")
If k1 = "" Then
Open "f:\OGRENCITAKIP\lisans\num.txt" For Output As #1
Write #1, Val(kes)
Close #1
Else
Cevapla

ayhan2122
accesstr.net , gayet net ;)
Kullanici Avatari
Uzman
681
30/10/2008
451
-
Ofis 2003
11/02/2017,00:20
Çözüldü 
Bu şekilde monte edebilirsin.

Kod:
AA & ":\OGRENCITAKIP\lisans\num.txt"


Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla

herdogan
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
130
21/12/2008
Edirne
Ofis 2003
10/06/2016,21:25
Çözüldü 
Sponsor Reklam
Teşekkürler ayhan2122
Bu bölümde sürücü harfi yerine uymadı

Dim fso As Object
Dim drv As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set drv = fso.Drives.Item("F")
orjserial = drv.SerialNumber
Cevapla

mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.750
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
13/02/2017,02:22
Çözüldü 
AA & ":\OGRENCITAKIP\lisans\num.txt"
yerine
BB &":\OGRENCITAKIP\lisans\num.txt"
olarak kullanın. Sevgili dostum Ayhan'In sanırım klavyesi sürçmüşImg-grin)
AA = CurrentProject.Path: (Programın tam yolu)
BB = Left(AA, 1): (Sürücü harfi)

Kolay gelsin
İnadına, ille de Accesstr.net...
Cevapla

herdogan
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
130
21/12/2008
Edirne
Ofis 2003
10/06/2016,21:25
Çözüldü 
Sponsor Reklam
sayın demiral; ben de BB Yapmıştım. obölümler oldu. fakat süsücünün seri numarasını aldığım şu bölüm olmadı.

Dim fso As Object
Dim drv As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set drv = fso.Drives.Item("F")
orjserial = drv.SerialNumber
Cevapla

benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.432
17/05/2009
365
Ankara
Ofis 2010
16/02/2017,20:41
Çözüldü 
Sn Herdoğan sorun devam ediyor mu? Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Access Kırılamayan Şifre (Tartışma Konusu) oornek 20 460 27/12/2016, 16:12 oornek
  Şifre değiştirme sorunu m_demir 2 151 18/10/2016, 11:51 m_demir
  bağımsız değişken oluşturma ve bağımsız değişkene değer atama drdeliTR 4 298 09/10/2016, 18:37 atoz112
  Şifre formu eklemek istiyorum IceMan7 12 699 02/07/2016, 09:18 ozanakkaya
  Şifre ile Form Açma Hakkında notrino 2 259 10/05/2016, 09:16 notrino


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya