Mesaj Kutusundakİ Metnİ Tabloya Aktarma

[qatlet]

İlİŞİkte GÖnderdİĞİm Örnekte Mesaj Kutusuna Gelen SÜrÜcÜ Serİ Numarasini Tablomdakİ Alan1 BÖlÜmÜne Verİ Olarak Nasil Kayit Edebİlİrİm.

TeŞekkÜrler.

 

[kocivan]

Tuşun Click kodunu aşağıdaki gibi değiştirin


Private Sub Komut6_Click()
Dim fso As Object
Dim drv As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set drv = fso.Drives.Item("C")

MsgBox "SÜRÜCÜ SERİ NUMARANIZ " & Hex(drv.SerialNumber)
Me.Alan1 = Hex(drv.SerialNumber)
End Sub

 

[qatlet]

Sayın Kocivan teşekkür ederim.