Fonksiyonda "Sıfır" Hatası - 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ığı: Fonksiyonda "Sıfır" Hatası (/konu-fonksiyonda-sifir-hatasi.html) Sayfalar:
1
2
|
Fonksiyonda "Sıfır" Hatası - megasoftware - 22/03/2016 Ms-Dos ortamında VOL değerine baktığım da değer : 0223-6EC9 ancak fonksiyon başa sıfır geldiğinde 2236-6EC9 olarak değeri geri döndürüyor. Acaba nerede hata yapıyorum Kod:
Option Compare Database Cvp: Fonksiyonda "Sıfır" Hatası - atoz112 - 22/03/2016 sayın megasoftware, harddisk serial number değerini edinmek için,farklı yöntemler mevcut.bunlardan bir diğer alternatif yöntem olarak şu kodları da deneyebilirsiniz. Kod:
Function HDSerialNumber() As String ayrıca,formun YÜKLENDİĞİNDE olay yordamına da Kod:
Me.Vol.Caption = HDSerialNumber Cvp: Fonksiyonda "Sıfır" Hatası - megasoftware - 22/03/2016 Hocam kod aynı mantıkla çalışıyor sonuçta aynı çıkıyor. Sanırım hata HEX komutundan kaynaklı sıfır değerini almadan geçiyor. "C:" sürücüm 0223-6EC9 olması gerekirken 2236-6EC9 olarak geliyor. "D:" Sürücüm 86D8-1F36 bu doğru geliyor. Sıfır ile başlamadığı için hiç bir sıkıntı yok.. Sıfırla başlamaya bağlı bir sorun var sanırım Hex komutu sıfırı null kabul 4 basamak alacağı için yola devam edip ikinci kısımdaki ilk değeri alıyor Cvp: Fonksiyonda "Sıfır" Hatası - ozanakkaya - 22/03/2016 Left right kodunda sayı yerine - öncesi ve - sonrasını almayı dener misin - öncesi Left(Deger;InStr(1;deger;"-")-1) -sonrası mid(deger;InStr(1;deger;"-")+1) Ayrıca deger as string yerine deger as byte kodunu da deneyebilirsin. Cvp: Fonksiyonda "Sıfır" Hatası - megasoftware - 22/03/2016 (22/03/2016, 17:52)ozanakkaya yazdı: Left right kodunda sayı yerine - öncesi ve - sonrasını almayı dener misin Sayın hocam diğer kodda ve hocamın verdiği kodda da denedim tip uyuşmazlık hatası verdi. Kod:
Public Function HDSerialNumber() As String Cvp: Fonksiyonda "Sıfır" Hatası - atoz112 - 22/03/2016 sayın megasoftware, Kod:
HDSerialNumber = Left(drv.SerialNumber;Instr(1;drv.serialnumber;"-")-1) & "-" & Right(Hex(drv.SerialNumber), 4) çünkü;kod sayfasında fonksiyon benzeri yazarken,noktalı virgül (;) ile değil sadece virgül (,) ile yazılmalı.noktalı virgül yazımları ancak sorgularda veya form denetimlerindeki Denetim Kaynağı satırlarında geçerlidir. son olarak;konunuzun 2.mesajında paylaştığım alternatif kod satırlarında Kod:
HDSerialNumber = Left(drv.SerialNumber;Instr(1;drv.serialnumber;"-")-1) & "-" & Right(Hex(drv.SerialNumber), 4) Kod:
Function HDSerialNumber() As String Kod:
Me.Vol.Caption = HDSerialNumber bilginize...iyi çalışmalar,saygılar. |