Ανανέωση ιστοσελίδας

[parara]

Καλησπέρα, σε όλους ,
Το παρακάτω δουλεύει κανονικά όταν .....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

[Χρήστος]

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

[parara]

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

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

[Χρήστος]

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