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

Derecelendirme: 0/5 - 0 oy
herdogan

herdogan

Aktivasyon Bekleyen
1311
 44
 34
 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



ayhan2122

ayhan2122

Onursal Üye
60
 42
 26
 680
 30/10/2008
451
 -
 
 Ofis 2003
 27/05/2019,10:26
Çö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.

...........
herdogan

herdogan

Aktivasyon Bekleyen
1311
 44
 34
 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



mehmetdemiral

mehmetdemiral

Uzman
17
Me.... De....
 54
 218
 4.934
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 Dün,23:31
Çö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...

...........
herdogan

herdogan

Aktivasyon Bekleyen
1311
 44
 34
 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



benremix

benremix

Onursal Üye
6766
Ra.... So....
 52
 127
 4.444
 17/05/2009
365
 Ankara
 Şirket Sahibi
 Ofis 2010 64 Bit
 Dün,09:10
Çö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ü Klasör Yoluna Değişken İlavesi runonur 4 240 19/02/2019, 12:07
Son Yorum: ozanakkaya
Çözüldü Kullanıcı Adı Ve Şifre sercann 11 648 15/02/2019, 18:16
Son Yorum: sercann
Çözüldü Değişken Atamam ramazanke 4 176 23/01/2019, 18:18
Son Yorum: ozanakkaya
Çözüldü Sekme Denetiminde Yerleştirme Sorunu Oğuz Türkyılmaz 2 152 26/12/2018, 15:04
Son Yorum: Oğuz Türkyılmaz
Çözüldü Açılan Kutu Ya Birden Çok Değişken Eklemek sabahattinpekacar 10 669 24/12/2018, 17:18
Son Yorum: sabahattinpekacar

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