Πρόβλημα σε εντολη VBA (DoCmd.RunSQL) στην Access

VB Script και κολπάκια, Excel macro, Word, Powerpoint, κτλ

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
pnikolareas
Δημοσιεύσεις: 2
Εγγραφή: 03 Νοέμ 2015 19:30
Τοποθεσία: ΑΧΑΡΝΑΙ

Πρόβλημα σε εντολη VBA (DoCmd.RunSQL) στην Access

Δημοσίευση από pnikolareas » 03 Νοέμ 2015 19:52

Εχω ένα πρόβλημα σε μικρό κώδικα VBA στην Access...
Συνοπτική περιγραφή:
Η εντολή
DoCmd.RunSQL ("Update Table1 set Table1.date_1 = (Table1.date2 +100) ")
τρέχει μιά χαρά αυξάνοντας κατά 100 ημέρες μια ημερομηνία

Αν όμως την γράψω παραμετρικά:
Dim plusDays As Integer
plusDays = 100
DoCmd.RunSQL ("Update Table1 set Table1.date_1 = (Table1.date2 +plusDays) ")


δεν τρέχει με τίποτα...

Τι πρέπει να κάνω????
Ευχαριστώ :idea:

Άβαταρ μέλους
dva_dev
Script Master
Δημοσιεύσεις: 3790
Εγγραφή: 16 Σεπ 2005 01:32
Επικοινωνία:

Πρόβλημα σε εντολη VBA (DoCmd.RunSQL) στην Access

Δημοσίευση από dva_dev » 04 Νοέμ 2015 09:33

Δεν δουλεύει γιατί δεν το γράφεις παραμετρικά.
Ψευτοπαραμετρικά μπορεί να γίνει με κάτι τέτοιο:

Κώδικας: Επιλογή όλων

DoCmd.RunSQL ("Update Table1 set Table1.date_1 = (Table1.date2 +" & str(plusDays) & ") ")

pnikolareas
Δημοσιεύσεις: 2
Εγγραφή: 03 Νοέμ 2015 19:30
Τοποθεσία: ΑΧΑΡΝΑΙ

Πρόβλημα σε εντολη VBA (DoCmd.RunSQL) στην Access

Δημοσίευση από pnikolareas » 05 Νοέμ 2015 21:34

Eυχαριστώ πάρα πολύ dva_dev. Ετρεξε ο κώδικας όπως τον έγραψες. Εγώ δεν θα το έβρισκα. (Αυτά με τα & μου φαίνονται δύσκολα). Ευχαριστώ...

Απάντηση

Επιστροφή στο “Office, Excel, Word VB Scripts και Tips”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 1 επισκέπτης