Πρόβλημα με κώδικα vba

Συζητήσεις για την τοπική βάση δεδομένων Access της Microsoft

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

Απάντηση
sakis297
Δημοσιεύσεις: 20
Εγγραφή: 09 Μάιος 2007 21:39

Πρόβλημα με κώδικα vba

Δημοσίευση από sakis297 » 09 Σεπ 2007 16:20

Γεια σας!
Έχω φτιάξει έναν πίνακα μαθητές και την αντίστοιχη φόρμα στην οποία έχω απαγορεύσει την επεξεργασία εγγραφών. Για την επεξεργασία πρέπει να πατήσω ένα κουμπί ώστε να ανοίξει μια άλλη φόρμα όπως ακριβώς και η πρώτη επιτρ'εποντας όμως την επεξεργασία.
Αν είμαι στην 5η εγγραφή και θέλω να τη διορθώσω, πατώντας το κουμπί για να ανοίξει η φόρμα επεξεργασίας μου θα μου εμφανιστεί η 5η εγγραφή. Αυτό το έκανα βάζοντας τον παρακάτω κώδικα στο κουμπί.
Private Sub ÅíôïëÞ38_Click()
On Error GoTo Err_ÅíôïëÞ25_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "diorthwsi_mathites"

stLinkCriteria = "[kwdikos_mathiti]=" & Me![kwdikos_mathiti]
DoCmd.Close

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_ÅíôïëÞ25_Click:
Exit Sub

Err_ÅíôïëÞ25_Click:
MsgBox Err.Description
Resume Exit_ÅíôïëÞ25_Click
End Sub

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

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

Πρόβλημα με κώδικα vba

Δημοσίευση από dva_dev » 09 Σεπ 2007 23:06

συνθήκη AND συνθήκη AND ...

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

stLinkCriteria = "[kwdikos_mathiti]=" & Me![kwdikos_mathiti] & " AND [FIELD]=VALUE AND ..."

sakis297
Δημοσιεύσεις: 20
Εγγραφή: 09 Μάιος 2007 21:39

Πρόβλημα με κώδικα vba

Δημοσίευση από sakis297 » 12 Σεπ 2007 20:27

Φίλε dva_dev απ'ό,τι καταλαβαίνω η vba είναι αρκετά περίεργη στη σύνταξη του κώδικα.
Για παράδειγμα αυτά τα & τι τα θέλει?
Τέλος πάντων.
Εγώ σύμφωνα με αυτό που έγραψες έγραψα τον παρακάτω κώδικα
stLinkCriteria = "[kwdikos_mathiti]=" & Me![kwdikos_mathiti] &" and [imerominia]=& Me![imerominia]"
και μου βγάζει μήνυμα ότι λείπει τελεστής.
Μπορεί κάποιος να μου πει πως ακριβώς πρέπει να γράψω αυτή τη γραμμή?
Αυτό που μου κάνει εντύπωση είναι ότι όταν πάω να βάλω ένα κουμπί για άνοιγμα φόρμας και χρησιμοποιώ τον οδηγό, ναι μεν με ρωτάει αν θέλω να βάλω κριτήρια-φίλτρο για το άνοιγμα της φόρμας αλλά μου δίνει το δικαίωμα να βάλω ένα μόνο κριτήριο. Γι'αυτό υποψιάστηκα μήπως δε γίνεται γενικά να βάλουμε δεύτερο κριτήριο για το άνοιγμα φόρμας.
Και στα παραδείγματα που είδα της openform μόνο ένα κριτήριο έβλεπα πάντα.
Ελπίζω να με βοηθήσει κάποιος.

sakis297
Δημοσιεύσεις: 20
Εγγραφή: 09 Μάιος 2007 21:39

Πρόβλημα με κώδικα vba

Δημοσίευση από sakis297 » 12 Σεπ 2007 20:27

Επίσης σ'ευχαριστώ πολύ για την απάντησή σου!

Programmer
Δημοσιεύσεις: 67
Εγγραφή: 22 Σεπ 2007 06:55

Πρόβλημα με κώδικα vba

Δημοσίευση από Programmer » 23 Σεπ 2007 15:13

Το ερώτημα είναι, αν θέλω να βάλω και δεύτερο κριτήριο πως ακριβώς να το βάλω. Έχω δοκιμάσει πολλά αλλά δε βρίσκω το σωστό.
query. θα φτιάξεις ένα ερώτημα που θα λαμβάνει τα στοιχεία από την φόρμα1 και θα εμφανίζει τα αποτελέσματα στην φόρμα 2. Αυτό σίγουρα δουλέυει...
Αν δεν ξέρεις πως γίνεται διάβασε για το θέμα. (εγώ δεν σκοπεύω να σου γράψω 20 σελίδες για το πως γίνεται....)

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

Πρόβλημα με κώδικα vba

Δημοσίευση από dva_dev » 24 Σεπ 2007 00:37

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

stLinkCriteria = "[kwdikos_mathiti]=" & Me![kwdikos_mathiti] &" and [imerominia]=& Me![imerominia]"
Μήπως να δοκίμαζες να το γράψεις έτσι:

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

stLinkCriteria = "[kwdikos_mathiti]=" & Me![kwdikos_mathiti] &" and [imerominia]=" & Me![imerominia]
Το & είναι για πρόσθεση δύο string

"a" & "b" -> "ab"
"1" & "2" -> "12"

Άβαταρ μέλους
koYkoY
Δημοσιεύσεις: 19
Εγγραφή: 23 Μαρ 2006 16:00

Πρόβλημα με κώδικα vba

Δημοσίευση από koYkoY » 25 Σεπ 2007 12:43

Η ημερομηνία πρέπει να περιβάλλεται με το σύμβολο ##
stLinkCriteria = "[kwdikos_mathiti]=" & Me![kwdikos_mathiti] &" and [imerominia]=#" & Me![imerominia] & "#"

Απάντηση

Επιστροφή στο “MS Access”

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

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