![]() |
Şifre denetiminde değişken sürücü - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Şifre denetiminde değişken sürücü (/konu-sifre-denetiminde-degisken-surucu.html) Sayfalar:
1
2
|
Şifre denetiminde değişken sürücü - herdogan - 30/01/2010 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 Cvp: Şifre denetiminde değişken sürücü - ayhan2122 - 30/01/2010 Bu şekilde monte edebilirsin. Kod:
AA & ":\OGRENCITAKIP\lisans\num.txt" Cvp: Şifre denetiminde değişken sürücü - herdogan - 31/01/2010 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 Cvp: Şifre denetiminde değişken sürücü - mehmetdemiral - 31/01/2010 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üş ![]() AA = CurrentProject.Path: (Programın tam yolu) BB = Left(AA, 1): (Sürücü harfi) Kolay gelsin Cvp: Şifre denetiminde değişken sürücü - herdogan - 31/01/2010 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 Cvp: Şifre denetiminde değişken sürücü - benremix - 27/02/2010 Sn Herdoğan sorun devam ediyor mu? Saygılar... |