Διάβασμα τιμής απο πεδίο του 1ου Record ενός πίνακα - DAO

Καλησπέρα σε όλα τα παιδιά του Forum
Ας ξεκινήσω...
Βρίσκομαι σε μια φόρμα που 'πατά' πάνω στα στοιχεία (πεδία) του πίνακα(Ι). Επιβάλλεται όμως να πάρω την τιμή απο το πεδίο [ID3] που
ανήκει σε κάποιο άλλο πίνακα(ΙΙ) και μάλιστα απο το 1ο Record.
Οι δυο πίνακες δεν ειναι ούτε μπορεί να γίνουν συνδεδεμένοι!
Έγραψα λοιπόν τον παρακάτω κώδικα :
----------------------------------------------------
Dim dbsBASI As Database
Dim rstREC As DAO.Recordset
Dim timi As Integer

Set dbsBASI = CurrentDb
Set rstREC = dbsBASI.OpenRecordset("ΠΙΝΑΚΑΣΙΙ")
rstREC.MoveFirst
timi = rstREC!ID3
-----------------------------------------------------
Ο κώδικας δουλεύει!
Το ζητούμενο ειναι αν θέλει κάποιες πρόσθετες εντολές που αφορούν επι παραδείγματι το καθάρισμα
μνήμης (Δεν ξέρω πως αλλά κάτι σχετικό είδα),...
Φυσικά κάθε άλλη πρόταση καλοδεχούμενη.

Νάχετε ένα καλό βράδυ
O meteora

[kon73]

Αρχική Δημοσίευση από Meteora

Καλησπέρα σε όλα τα παιδιά του Forum
Ας ξεκινήσω...
Βρίσκομαι σε μια φόρμα που 'πατά' πάνω στα στοιχεία (πεδία) του πίνακα(Ι). Επιβάλλεται όμως να πάρω την τιμή απο το πεδίο [ID3] που
ανήκει σε κάποιο άλλο πίνακα(ΙΙ) και μάλιστα απο το 1ο Record.
Οι δυο πίνακες δεν ειναι ούτε μπορεί να γίνουν συνδεδεμένοι!
Έγραψα λοιπόν τον παρακάτω κώδικα :
----------------------------------------------------
Dim dbsBASI As Database
Dim rstREC As DAO.Recordset
Dim timi As Integer

Set dbsBASI = CurrentDb
Set rstREC = dbsBASI.OpenRecordset("ΠΙΝΑΚΑΣΙΙ")
rstREC.MoveFirst
timi = rstREC!ID3
-----------------------------------------------------
Ο κώδικας δουλεύει!
Το ζητούμενο ειναι αν θέλει κάποιες πρόσθετες εντολές που αφορούν επι παραδείγματι το καθάρισμα
μνήμης (Δεν ξέρω πως αλλά κάτι σχετικό είδα),...
Φυσικά κάθε άλλη πρόταση καλοδεχούμενη.

Νάχετε ένα καλό βράδυ
O meteora

Φίλε meteora καλησπέρα,

Αν θέλεις να παίρνεις πάντα την πρώτη εγγραφή νομίζω ότι δεν έχω πολλά να προσθέσω.
Αν όμως εννοείς την πρώτη εγγραφή γιατί αυτή έχει πχ το ID=1 και άσχετα αν αλλάξει η θέση των εγγραφών πχ λόγω index (Επομένως αλλάζει και η πρώτη εγγραφή) μια άλλη εκδοχή είναι να βάλεις
στο

Set rstREC = dbsBASI.OpenRecordset("ΠΙΝΑΚΑΣΙΙ")

Set rstREC = dbsBASI.OpenRecordset("SELECT * FROM ΠΙΝΑΚΑΣΙΙ where ID=1")

Αυτά και νά 'χετε καλή Ανάσταση.

Φιλικά

iliadisk / kon73