msgbox από πεδίο από ερώτημα

[tzvangel]

εχω μια βαση με εναν πινακα ενα ερωτημα και μια φορμα!
η φορμα προελευση απο τον πινακα (pinakas)!
ενω στο ερωτημα(erotima1) εχω το πεδιο sunolo_imeras: select first(sum(pedio1)-sum(pedio2) from pinakas t1 where t1.hmerominia=Date()

θελω στην φορμα μου οταν παταω το κουμπι clik1 να εμφανιζει ενα msgbox που να μου λεει την τιμη απο το ερωτημα (erotima1.sunolo_imeras)!

πως γινεται αυτο?

[ΤΖΙΜΗΣ]

Βαγγέλη αν μπορείς ανέβασε τη βάση για να τη δούμε.Βέβαια μπορεί να κάνεις κάτι πιο απλό.Δηλαδή στη φόρμα να δημιουργήσεις ένα μη δεσμευμένο πλαίσιο λίστας το οποίο θα συνθεθεί με το ερώτημα σου από την επιλογή (προέλευση γραμμής) και στο συμβάν μετά από ενημέρωση θα του βάλεις την εντολή.
<όνομα πλαισίου>.Requery ώστε κάθε φορά με διπλό κλικ να ανανεώνεται και να βλέπεις το νέο σύνολο ημέρας.
Περιμένουμε νέα σου.

[tzvangel]

Σε ευχαριστω για την απαντηση σου ΤΖΙΜΗ!
Λοιπον σου ανεβαζω την βαση μου (σε δοκιμαστικη εκδοση)...
το ερωτημα που εχω κανει SELECT για να βλεπω τα πωληθεντα ζευγαρια της εκαστοτε ημερας (πχ σημερα 11/7/11) ονομαζεται zeugi
....εκανα και αυτο που μου ειπες αλλα βγαζει #Όνομα!
....Για ριξτε μια ματια!
Σε ευχαριστω και παλι!

ΥΓ ποιο πολυ ομως θελω να παιξω με την ΜSGBOX αν ειναι δυνατον

[kapetang]

Καλησπέρα

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

Private Sub cmdZeugi_Click()
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("zeugi")
    If rs.RecordCount > 0 Then
        MsgBox "Σήμερα πωλήθηκαν " & rs.Fields(0) & " ζεύγη.", , "Πωλήσεις"
    Else
        MsgBox "Δεν έγιναν πωλήσεις."
    End If
    rs.Close
    Set rs = Nothing
End Sub

Ελπίζω να είναι αυτό που θέλεις.

Φιλικά/Γιώργος

[ΤΖΙΜΗΣ]

Βαγγέλη σου επισυνάπτω και την απάντηση που σου έλεγα .Κοίτα και την εντολή που τοποθέτησα με το συμβάν διπλό κλίκ.
Φιλικά

[tzvangel]

σας ευχαριστω και τους δυο, αξιζει να παραμινει αυτο το FORUM ΠΑΝΤΟΣ!!!