freestuff.gr αρχική σελίδα
 FAQFAQ    ΑναζήτησηΑναζήτηση   Λίστα ΜελώνΛίστα Μελών   Ομάδες ΜελώνΟμάδες Μελών   <b>Εγγραφή Μέλους</b>Εγγραφή Μέλους 
 ΠροφίλΠροφίλ   Επιλογές μέλους Επιλογές   Τα bookmarks μου Τα bookmarks μου   Προσωπικά μηνύματαΠροσωπικά μηνύματα 
  διαφήμιση  

Καλώς ήρθατε στο forum μας! Για να συμμετάσχετε στις συζητήσεις θα πρέπει να είσαστε μέλος. Γίνετε μέλος τώρα!.

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


 Forum index » Δημιουργία Web Sites, Γραφικών & Προγραμματισμός » SQL και SQL Servers (RDBMS) » MS Access
Moderators:  Super-Moderators, WebDev Moderators
Εισαγωγή νέου Θέματος   Απάντηση στο Θέμα Σελίδα 1 από 1 [7 Μηνύματα]      Bookmarks Tags: πρόβλημακώδικαvba Mark the topic unread :: Προηγούμενο θέμα :: Επόμενο θέμα
ΑποστολέαςΜήνυμα
sakis297


Μέλος από: 09 Μαη 2007
Μηνύματα: 20

View users profile Send email to user
ΜήνυμαΣτις: 09 Σεπ 2007 15:20    Θέμα: Πρόβλημα με κώδικα vba
Περιγραφή θέματος: Πρόβλημα με κώδικα vba
Απάντηση με παράθεση  Mark this post and the followings unread

Γεια σας!
Έχω φτιάξει έναν πίνακα μαθητές και την αντίστοιχη φόρμα στην οποία έχω απαγορεύσει την επεξεργασία εγγραφών. Για την επεξεργασία πρέπει να πατήσω ένα κουμπί ώστε να ανοίξει μια άλλη φόρμα όπως ακριβώς και η πρώτη επιτρ'εποντας όμως την επεξεργασία.
Αν είμαι στην 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

Μέλος από: 16 Σεπ 2005
Μηνύματα: 256+

View users profile Visit posters website
blog deviantART facebook linkedin 
ΜήνυμαΣτις: 09 Σεπ 2007 22:06    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

συνθήκη AND συνθήκη AND ...
κώδικας:
stLinkCriteria = "[kwdikos_mathiti]=" & Me![kwdikos_mathiti] & " AND [FIELD]=VALUE AND ..."
sakis297


Μέλος από: 09 Μαη 2007
Μηνύματα: 20

View users profile Send email to user
ΜήνυμαΣτις: 12 Σεπ 2007 19:27    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

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


Μέλος από: 09 Μαη 2007
Μηνύματα: 20

View users profile Send email to user
ΜήνυμαΣτις: 12 Σεπ 2007 19:27    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

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


Μέλος από: 22 Σεπ 2007
Μηνύματα: 67

View users profile
ΜήνυμαΣτις: 23 Σεπ 2007 14:13    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

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


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

Μέλος από: 16 Σεπ 2005
Μηνύματα: 256+

View users profile Visit posters website
blog deviantART facebook linkedin 
ΜήνυμαΣτις: 23 Σεπ 2007 23:37    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

παράθεση:
κώδικας:
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


Μέλος από: 23 Μαρ 2006
Μηνύματα: 19

View users profile
ΜήνυμαΣτις: 25 Σεπ 2007 11:43    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

Η ημερομηνία πρέπει να περιβάλλεται με το σύμβολο ##
stLinkCriteria = "[kwdikos_mathiti]=" & Me![kwdikos_mathiti] &" and [imerominia]=#" & Me![imerominia] & "#"
Εμφάνιση Μηνυμάτων:   
Εισαγωγή νέου Θέματος   Απάντηση στο Θέμα Σελίδα 1 από 1 [7 Μηνύματα] Mark the topic unread :: Προηγούμενο θέμα :: Επόμενο θέμα
 Forum index » Δημιουργία Web Sites, Γραφικών & Προγραμματισμός » SQL και SQL Servers (RDBMS) » MS Access
Τώρα είναι 30 Μαρ 2017 12:49 | All times are UTC + 2


Email This Page to Someone! add to Favorites

     Powered by p h p B B © 2001,2005 p h p B B Group
Για άμεση επικοινωνία με τον διαχειριστή του freestuff.gr στο email: freestuff.gr(παπάκι)gmail.com


Copyright © 1999-2013 Freestuff.gr All Rights Reserved  
Version Aegean, designed by N. Tsaganos