mhb.yaptığım programın yanlız istediğim bir bilgisayarda çalışmasını istiyorum.yani başka bir bilgisayara kopyalandığında çalışmasın. aklıma gelen programın bilgisayarın hard diski seri numarasını kontrol etmesi. bu olabilirmi acaba. yada başka bir yöntem
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
program yalnız bir bilgisayarda çalışsın
- Konbuyu başlatan yasin
- Başlangıç tarihi
Merhaba,
Aşağıdaki linktede aynı talep ve açıklaması var.
http://groups.google.com/groups?hl=tr&lr=&threadm=e7R#PKLEDHA.2172@TK2MSFTNGP12.phx.gbl&rnum=1&prev=/groups?hl=tr&lr=&q=hardlock+for+access+mdb+&btnG=Ara&meta=group%3Dmicrosoft.public.access.*
Aşağıdaki linktede aynı talep ve açıklaması var.
http://groups.google.com/groups?hl=tr&lr=&threadm=e7R#PKLEDHA.2172@TK2MSFTNGP12.phx.gbl&rnum=1&prev=/groups?hl=tr&lr=&q=hardlock+for+access+mdb+&btnG=Ara&meta=group%3Dmicrosoft.public.access.*
- Katılım
- 29 Eylül 2004
- Mesajlar
- 90
Function asd()
Dim fs, d, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
s = d.SerialNumber
Forms![Ana Menü]!Metin22 = s
End Function
bu komutlarla ana menü formunda metin22 ye hdd nin seri nosunu yazdırabilirsin. ordanda bu noyu sorgulattabilirsin.
:hiho:
yalnız aklınızda bulunsun bilgisayara her format atışında sizi bulması gerekir.
Dim fs, d, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
s = d.SerialNumber
Forms![Ana Menü]!Metin22 = s
End Function
bu komutlarla ana menü formunda metin22 ye hdd nin seri nosunu yazdırabilirsin. ordanda bu noyu sorgulattabilirsin.
:hiho:
yalnız aklınızda bulunsun bilgisayara her format atışında sizi bulması gerekir.
- Katılım
- 24 Aralık 2005
- Mesajlar
- 11
peki yukardeki kodu nasıl kullanıcaz açıklıyabilirmisiniz
Sayın jale, Hanım, bu konuda küçük bir örnek yerleştirebilir misiniz buraya. En basit soru gibi görünüyor, verdiğiniz linki de inceledim ancak ingilizcem yetersiz olduğu için ingilizce bilenlerden yardım da istememe rağmen yapamadım. Ayrıca bu konunun kapatılması da gerekiyor diye düşünüyorum, tabii siz de aynı fikirdeyseniz.
jale, Hanım size nasıl teşekkür edeceğimi bilemiyorum. Ben işimi fazlası ile gördüm bu arada forum arkadaşlarımızın da bu konudan istifade etmesi için soruyorum her iki modül de farklı HDD numaraları çıkıyor, acaba birisi etiket, diğeri de HDD mekanik fabrika numarası mı?
Acces şimdi tutarlı çalışıyor, HDD numarasını okutup tasarım modunda bir etikete yazıyorum, sonra açılış formu açılırken bu numaraları karşılaştırıyor ve ilk defa bu konuda tutarlı bir şekilde karar veriyor: HDD numarası tutuyorsa açılıyor, tutmuyorsa programdan çıkılıyor.
Geriye dosyayı MDE formatına çevirmek kalıyor. Emeğimin karşılığını şimdi hırsızlar bedavadan toplayamayacak.
Tekrar teşekkür ediyorum.
Acces şimdi tutarlı çalışıyor, HDD numarasını okutup tasarım modunda bir etikete yazıyorum, sonra açılış formu açılırken bu numaraları karşılaştırıyor ve ilk defa bu konuda tutarlı bir şekilde karar veriyor: HDD numarası tutuyorsa açılıyor, tutmuyorsa programdan çıkılıyor.
Geriye dosyayı MDE formatına çevirmek kalıyor. Emeğimin karşılığını şimdi hırsızlar bedavadan toplayamayacak.
Tekrar teşekkür ediyorum.
Bir de benim dosyayı deneyin lütfen!
Günlerdir bununla uğraşıyorum, tam halletmiş olduğumu düşünürken.... Neredeyse ağlayacağım. Pekala aynı dosyayı ben göndereyim, açabilen olursa buraya yazsın, ya ağlayım, ya da güleyim artık.
Günlerdir bununla uğraşıyorum, tam halletmiş olduğumu düşünürken.... Neredeyse ağlayacağım. Pekala aynı dosyayı ben göndereyim, açabilen olursa buraya yazsın, ya ağlayım, ya da güleyim artık.
Haluk
Özel Üye
- Katılım
- 7 Temmuz 2004
- Mesajlar
- 12,406
- Excel Vers. ve Dili
-
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
- Altın Üyelik Bitiş Tarihi
- ∞
"VolSerialNo" fonksiyonu, sürücü seri numarasını HEX olarak veriyor.Ersen' Alıntı:
"sGetVolumeSerialNumber" fonksiyonu ise, HEX ve DEC olarak veriyor.
Yani, hepsi aynı şeyler.... :mrgreen:
:hey:
Çok inceleyemedim ama ,aşağıdaki linkede bir bakın boş zamanınızda.
http://members.shaw.ca/glenk/access2000.html
Çok inceleyemedim ama ,aşağıdaki linkede bir bakın boş zamanınızda.
http://members.shaw.ca/glenk/access2000.html
- Katılım
- 4 Aralık 2004
- Mesajlar
- 129
Re: Bir de benim dosyayı deneyin lütfen!
Ben de Açılmadı HDD Uyuşmuyor diyor ve Kapanıyor..Ersen' Alıntı:
- Katılım
- 2 Mart 2006
- Mesajlar
- 501
- Excel Vers. ve Dili
- 2003 türkçe
bilgisayarın seri nosunu veren program örnegi
bilgisayarın seri nosunu veren program örnegi
aşagıdaki linkte oradan indirebilirsiniz ben denedim gayet güzel yapanların eline saglık
http://www.excel.web.tr/viewtopic.php?t=9632
hatırlatıyım serinoyu texbox içerisnde 6 bölerseniz serinonun önündeki harfleri kaldırıyor buda sizin işinizi görmesi için misal bilgisayar seri nosu =SN24588956 / 6 yapacaksınız o zaman rakamların önündeki harfleri siler yok sayar tam sayı verir yalnız bu indirdiğiniz programdaki modülü kendi programınıza eklemeniz lazım kolay gelsin
bilgisayarın seri nosunu veren program örnegi
aşagıdaki linkte oradan indirebilirsiniz ben denedim gayet güzel yapanların eline saglık
http://www.excel.web.tr/viewtopic.php?t=9632
hatırlatıyım serinoyu texbox içerisnde 6 bölerseniz serinonun önündeki harfleri kaldırıyor buda sizin işinizi görmesi için misal bilgisayar seri nosu =SN24588956 / 6 yapacaksınız o zaman rakamların önündeki harfleri siler yok sayar tam sayı verir yalnız bu indirdiğiniz programdaki modülü kendi programınıza eklemeniz lazım kolay gelsin