Şifre denetiminde değişken sürücü
Tarih
30/01/2010 20:22
Konu Sahibi
herdogan
Yorumlar
7
Okunma
1741
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ü 
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
06/12/2016,00:25
Çö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ü 
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.734
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
05/12/2016,11:17
Çö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ü 
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
05/12/2016,09:18
Çö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
  Şifre değiştirme sorunu m_demir 2 109 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 194 09/10/2016, 18:37 atoz112
  Şifre formu eklemek istiyorum IceMan7 12 611 02/07/2016, 09:18 ozanakkaya
  Şifre ile Form Açma Hakkında notrino 2 225 10/05/2016, 09:16 notrino
Çözüldü Geçersiz değişken mesajı kenan827 2 259 13/03/2016, 00:28 kenan827


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