Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   [ Φόρμες ] ΚΟΛΛΗΜΑ ΜΕ ΑΝΟΙΓΜΑ ΦΟΡΜΑΣ (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/464-kollhma-me-anoigma-formas.html)

marios1984 01-03-10 12:51

ΚΟΛΛΗΜΑ ΜΕ ΑΝΟΙΓΜΑ ΦΟΡΜΑΣ
 
Kαλημερα παιδια αντιμετωπιω ενα προβλημα το οποιο εινι απλο αλλο εχω κολλησει απιστευτα...θα κανω μια μικρη περιγρααφφη της βαασης για να καταλαβεται.

εχω μια φορμα (katigoria) που περιεχει μια υποφορμα (submainfrm)
στην φορμα κατηγορια εχω ενα πλασιο λιστας που μου δειχνει την κατηγορια του video κι μου φιλτραρει την υποφρμα αναλογα με την κατηγορια που εχω διαλεξει
η υποφορμα αντλει στοιχει απο ενα πινακα με τα εξηε κελια : titlos,etos,katigoria,diarkeia,paratiriseis,video url.εμφανιζω ομως μονο 2 κελια titlos kai etos και εχω ενα κουμπι για να ου παιζει το video και ενα αλλο για να μου δειχνει ολες τις πληροφοριες...Για να βλεπω ολες τις πληροφοριες , εχω φριαξει μια τριτη φορμα (mainfrm) που περιεχει ολα τα στοιχεια απο τον πινακα μου (titlos,etos,katigoria,diarkeia,paratiriseis)
αυτο που θελω ειναι με το κλικ να με πηγαινει στην συγκεκριμενη εγγραφη ...εκανα κωδικα στο on click event αλλα μου βγαζει ενα syntax error ( missing operator ) .O κωδικος που χρησιμοποιω ειναι ο παρακατω

Private Sub plir_Click()
On Error GoTo Err_plir_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "mainfrm"

stLinkCriteria = "[titlos]=" & "'" & Me![titlos] & "'" & "[etos]=" & "'" & Me![etos] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_plir_Click:
Exit Sub

Err_plir_Click:
MsgBox Err.Description
Resume Exit_plir_Click

End Sub


ευχαριστω εκ των προτερων

Tasos 01-03-10 13:51

Καλησπέρα Μάριε!

Σου παρουσιάζει το σφάλμα "Missing Operator" επειδή δίνεις 2 κριτήρια χωρίς να μεσολαβεί
OR ή AND κτλ.

Δοκίμασε το παρακάτω:
Κώδικας:

stLinkCriteria = "[titlos]= '" & Me![titlos] & "' AND [etos]= '" & Me![etos] & "'"
Αν το [etos] είναι αριθμός, δε θα χρειαστείς τις αποστρόφους δηλ.:

Κώδικας:

stLinkCriteria = "[titlos]= '" & Me![titlos] & "' AND [etos]= " & Me![etos]
Φιλικά

Τάσος

marios1984 01-03-10 14:01

Σωστος...ευχαριστω !!!
μετα το εβαλα το and αλλα δεν εβγαλα τους αποστροφους
thx και παλι και καλη σας μερα


Η ώρα είναι 22:12.

Ms-Office.gr - ©2000 - 2025, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2