Forum - Μετατροπή κώδικα VBA

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - Μετατροπή κώδικα VBA (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/3253-metatropi-kodika-visual-basic-applications.html)

Μετατροπή κώδικα VBA

Χαιρετώ όλους τους φίλους του φόρουμ,

Θα ήθελα την βοήθεια των πιο έμπειρων φίλων του φόρουμ στην μετατροπή του πάρα κάτω κώδικα που επισυνάπτω:

Έχω ένα πίνακα "tempSVN" ο οποίος διαθέτει ένα πεδίο που η μορφή του είναι Number. Θα ήθελα να προσθέσω στον ίδιο πίνακα και τα πεδία "svnID" (Auto) και "DateAdded". Αυτό βέβαια δεν είναι το πρόβλημα μου όπως καταλαμβαίνετε... To πρόβλημα μου είναι στον πιο κάτω κώδικα που αυτή την στιγμή είναι "κομμένος ραμμένος" στο να παίρνει μόνο την τιμή απο τo "S" και εγώ θα ήθελα να μπορεί να παίρνει και τα πιο πάνω που επιθυμώ να βάλω.

Public Function CheckVolumeSerialNumber()
Dim S, strCheck0, strCheck1, strCheck2, strCheck3, strCheck4 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)), "-", "")

S = Serial

DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO tempSVN VALUES ('" & S & "')"
DoCmd.SetWarnings True

End Function

Ελπίζω να μπορεί να βοηθήσει κάποιος

Σας ευχαριστώ εκ προτέρων

Καλημέρα

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

Κώδικας:

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.

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

Καλημέρα Γιώργο μου και εύχομαι να σε βρίσκω καλύτερα,

Σε ευχαριστώ πάρα πολύ για την βοήθεια σου, πραγματικά εκτιμώ την διάθεση σου για να παρέχεις εκεί και όπου μπορείς την άπλετη βοήθεια σου.

Θα δοκιμάσω τον κώδικα και εάν και εφόσον έχω οποιοδήποτε πρόβλημα θα επανέλθω..

Σε ευχαριστώ και πάλι..