Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   [ Ερωτήματα ] Βοήθεια σε ερώτημα SQL (SELECT , WHERE) (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/2970-boitheia-se-erotima-sql-select-where.html)

parara 30-01-14 19:30

Βοήθεια σε ερώτημα SQL (SELECT , WHERE)
 
Καλησπέρα, σε όλους ,
Το παρακάτω δουλεύει κανονικά όταν .....WHERE IDrecTypeParastatiko=5 (η γενικά όταν βάλω καρφωτά τον αριθμό που θέλω.
Επιθυμώ όμως ο αριθμός στο κριτήριο να λαμβάνεται από την τιμή ενός πεδίου που διαβάζεται από μια φόρμα. Η τιμή αποδίδεται στην μεταβλητή pt. Ομως έτσι η WHERE δεν δουλεύει.
Κάθε βοήθεια ευπρόσδεκτη.


Dim dbsesex As Database
Dim rstREC As DAO.Recordset
Dim pt As Long

Set dbsesex = CurrentDb
Set rstREC = dbsesex.OpenRecordset("Parastatika")
pt = [Forms]![frmTrans].[IDrecTypeParastatiko]
Set rstREC = dbsesex.OpenRecordset("SELECT * FROM Parastatika where IDrecTypeParastatiko = pt")

DoCmd.OpenForm "frmChecksTrans"
[IDrecTeller] = rstREC!TellerNr

Χρήστος 30-01-14 20:52

Καλησπέρα
Έτσι διαβάζει το pt, ως έχει...κατά λέξη!
Δοκίμασε:
Set rstREC = dbsesex.OpenRecordset("SELECT * FROM Parastatika where IDrecTypeParastatiko =" & pt)

parara 30-01-14 23:05

Ευχαριστώ
 
Χρήστο ευχαριστώ , ουτε που το σκέφτηκα , έψαξα αρκετά στο inernet πριν κάνω post αλλά δεν βρήκα κάτι παρόμοιο. Αυτο είναι ...

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

Χρήστος 30-01-14 23:11

:)
Να είσαι καλά!


Η ώρα είναι 15:25.

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


Search Engine Optimization by vBSEO 3.3.2