Έλεγχος αν η εκτέλεση ερωτήματος επιστρέφει κάτι.

[sarrpan]

Καλησπέρα ξανά προσπαθώ μέσα από την vba να εκτελέσω ένα ερώτημα με παραμέτρους. Δεν έχω καταφέρει όμως να ορίσω ότι δεν επιστρέφετε κανένα αποτέλεσμα από το ερώτημα.
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim rst As DAO.Recordset

Set db = CurrentDb
Set qdf = db.QueryDefs("qrySinolo")
qdf.Parameters(0) = [Forms]![frmA]![A]
qdf.Parameters(1) = [Forms]![frmA]![B]
Set rst = qdf.OpenRecordset
If δεν είναι κενό (rst![ ΆθροισμαΤουSinolo]) Then
MsgBox (" ")
else
MsgBox (" ")
End If
Επίσης αυτό το "ΆθροισμαΤου" πως αλλάζει ώστε να του δώσω μια ετικέτα.
Ευχαριστώ εκ των προτέρων.

[Meteora]

Καλησπέρα
Ανέβασε ένα δείγμα που θα περιέχει τους πίνακες με λίγα εικονικά δεδομένα, μια φόρμα από όπου "καλείς" τον κώδικα για να δούμε πώς θα βοηθηθείς...
Τα λέμε λοιπόν...

Με εκτίμηση Νίκος

[sarrpan]

Καλημέρα και ευχαριστώ ανεβάζω ένα σχέδιο βάσης. Στην φόρμα που ανοίγει αν πατήσω το button της πρώτης εγγραφής (έχει γίνει καταχώρηση τιμής) στον ανάλογο πίνακα δουλεύει κανονικά. Αν δεν υπάρχει εγγραφεί βγάζει το σφάλμα που αναφέρω.
Ευχαριστώ ξανά.
Πριν από λίγο κατάλαβα ότι δεν ανέβασα μία παρόμοια βάση που βγάζει το ίδιο πρόβλημα ζητάω συγνώμη και το ανεβάζω τώρα.

[Meteora]

Καλησπέρα
....πολύς κώδικας, ικανός να στηρίξει εφαρμογές με μεγάλες απαιτήσεις. Δες μια άλλη προσέγγιση στο θέμα που μας παρουσίασες...

Εφόσον επιμείνεις στη δική σου εκδοχή, το "κλώτσημα" που έχεις ωφείλεται στο γεγονός ότι δεν έχει δεδομένα! Όταν ο ένας πίνακας έχει 3 εγγραφές και ο άλλος 1, τότε το ερώτημα έχει 1 και καλά κάνει και σου δίνει διαγνωστικό λάθους.

Με εκτίμηση Νίκος

[sarrpan]

Ευχαριστώ για την απάντηση.
Εγώ θέλω να ελέγξω αν υπάρχει εγγραφή την συγκεκριμένη ημερομηνία αν υπάρχει και είναι ίση με μία τιμή να ανοίξει ή φόρμα Β με κάποια πράγματα που θέλω να περάσω. Αν δεν υπάρχει καμία εγγραφή θέλω να ανοίξει η φόρμα Β.
Αυτό που επίσης ήθελα να μάθω μια και έφτασα εκεί και κόλλησα είναι πως μπορώ να ελέγξω αν δεν υπάρχει καμία εγγραφή.
Ευχαριστώ.

[sarafis]

Παναγιώτη καλημέρα
Με μια συνθήκη όπως παρακάτω μπορείς να ελέγξεις εαν το ερώτημα έχει εγγραφές.
Sub ToggleLink_Click()
On Error GoTo ToggleLink_Click_Err
If DCount("KodA", "qrySinolo") = 0 Then
MsgBox ("Δεν υπάρχουν εγγραφές για την τρέχουσα ημέρα με αυτό τον αριθμό")
Exit Sub
End If

[sarrpan]

Sarafis ευχαριστώ πολύ αυτό ζητούσα.