[kapetang]

Καλημέρα

Γιώργο, μπορείς να χρησιμοποιήσεις τον παρακάτω κώδικα:

Public Function CheckVolumeSerialNumber()
    Dim Serial As Long, VName As String, FSName As String, strSQL As String

    VName = String$(255, Chr$(0))
    FSName = String$(255, Chr$(0))

    GetVolumeInformation "C:\", VName, 255, Serial, 0, 0, FSName, 255
    VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
    FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
    Serial = Replace(Trim(Str$(Serial)), "-", "")

    strSQL = "INSERT INTO tempSVN (SvnNumber,DateAdded) VALUES(" & _
             Serial & ", #" & Format(Now(), "m/d/yyyy mm:ss") & "#)"
    CurrentDb.Execute (strSQL)
End Function

Επειδή δε γράφεις το όνομα του πεδίου (δεν επισυνάπτεις και κάποιο δείγμα ΒΔ) στο οποίο αποθηκεύεται ο σειριακός αριθμός υπέθεσα ότι λέγεται SvnNumber.

Φιλικά/Γιώργος