Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
30/01/2010 20:22
Konu Sahibi
herdogan
Yorumlar
7
Okunma
2638
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

herdogan

Aktivasyon Bekleyen
 43
 130
 34
 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



Kullanici Avatari

ayhan2122

Uzman
 41
 681
 26
 30/10/2008
451
 -
 
 Ofis 2003
 26/07/2018,20: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.

Kullanici Avatari

herdogan

Aktivasyon Bekleyen
 43
 130
 34
 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



Kullanici Avatari

mehmetdemiral

Uzman
ME.... DE....
 53
 4.915
 213
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 13/11/2018,20:45
Çö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...

Kullanici Avatari

herdogan

Aktivasyon Bekleyen
 43
 130
 34
 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



Kullanici Avatari

benremix

Onursal Üye
RA.... SO....
 51
 4.443
 127
 17/05/2009
365
 Ankara
 Şirket Sahibi
 Ofis 2010 64 Bit
 Dün,13:06
Çö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




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Kdv Hesaplamalarında, Değişken Tanımlanmamış Hatası. Oğuz Türkyılmaz 2 108 21/11/2018, 17:38
Son Yorum: Oğuz Türkyılmaz
Çözüldü Kullanıcı Şifre Değiştirme oosmaner 3 286 15/11/2018, 13:17
Son Yorum: oosmaner
Çözüldü Şifremi Unuttum ve Yeni Şifre Belirleme Hakkında oosmaner 8 543 19/09/2018, 18:06
Son Yorum: ozanakkaya
Çözüldü Şifre İle Giriş melek82 2 293 18/04/2018, 14:47
Son Yorum: melek82
Çözüldü Değişken Hatası Yunus Bozkurt 6 487 30/03/2018, 16:30
Son Yorum: ozanakkaya

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