Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   msgbox από πεδίο από ερώτημα (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/1260-msgbox-apo-pedio-apo-erotima.html)

tzvangel 09-07-11 14:59
msgbox από πεδίο από ερώτημα
 
εχω μια βαση με εναν πινακα ενα ερωτημα και μια φορμα!
η φορμα προελευση απο τον πινακα (pinakas)!
ενω στο ερωτημα(erotima1) εχω το πεδιο sunolo_imeras: select first(sum(pedio1)-sum(pedio2) from pinakas t1 where t1.hmerominia=Date()

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

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

ΤΖΙΜΗΣ 09-07-11 19:38
Βαγγέλη αν μπορείς ανέβασε τη βάση για να τη δούμε.Βέβαια μπορεί να κάνεις κάτι πιο απλό.Δηλαδή στη φόρμα να δημιουργήσεις ένα μη δεσμευμένο πλαίσιο λίστας το οποίο θα συνθεθεί με το ερώτημα σου από την επιλογή (προέλευση γραμμής) και στο συμβάν μετά από ενημέρωση θα του βάλεις την εντολή.
<όνομα πλαισίου>.Requery ώστε κάθε φορά με διπλό κλικ να ανανεώνεται και να βλέπεις το νέο σύνολο ημέρας.
Περιμένουμε νέα σου.

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

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

kapetang 11-07-11 17:32
1 Συνημμένο(α)
Καλησπέρα

Βαγγέλη, στη φόρμα της ΒΔ πρόσθεσα ένα κουμπί που, αν πατηθεί, εμφανίζει μήνυμα με τα ζεύγη των πωληθέντων παπουτσιών την τρέχουσα μέρα.
Η λειτουργικότητά του οφείλεται στον κώδικα.
Κώδικας:
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
Ελπίζω να είναι αυτό που θέλεις.

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

ΤΖΙΜΗΣ 11-07-11 19:47
1 Συνημμένο(α)
Βαγγέλη σου επισυνάπτω και την απάντηση που σου έλεγα .Κοίτα και την εντολή που τοποθέτησα με το συμβάν διπλό κλίκ.
Φιλικά

tzvangel 11-07-11 20:06
σας ευχαριστω και τους δυο, αξιζει να παραμινει αυτο το FORUM ΠΑΝΤΟΣ!!!


Η ώρα είναι 14:16.

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


Search Engine Optimization by vBSEO 3.3.2