
19-02-16, 15:10
|
| Όνομα: Γιώργος Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 02-04-2013 Περιοχή: Κύπρος
Μηνύματα: 738
| |
Γιώργο μου σε υπέρ-ευχαριστώ για την βοήθεια σου... Η λύση που προτείνεις μου κάνει αλλά έχω ακόμη ένα θεματάκι που πρέπει να δούμε...
Α) Με αυτή την λύση ουσιαστικά διαβάζουμε απο τον πίνακα το text της κάθε γραμμής....Πώς όμως μπορεί αυτό να παρουσιάζεται σε στύλ κανονικού μηνύματος?? Δηλαδή δίνοντας το ανάλογο εικονίδιο ας πουμε Info etc?? και
Β) Τώρα διαβάζουμε απο τον πίνακα ο οποίος παίρνει τιμή και παρουσιαζει απο την δεύτερη στήλη δεδομένα, πως είναι εφικτό (αν είναι) να μπορεί να συνδυάζει δεδομένα απο 2 στήλες (ας πούμε πως στον πίνακα θα έχω και μια στήλη με τον κωδικό του κάθε μηνυματος....πως μπορεί να φαίνεται ας πούμε έτσι "Code:1 - Σε ευχαριστώ πολύ George" )
Υ.Γ: Για το πρώτο θέμα Γιώργο βρήκα την λύση όπως παρα κάτω (δουλεύει και το εικονίδιο μηνύματος vbCritical)
Private Sub cmdmsg1_Click()
qsql = "SELECT tblmsg.idmsg, tblmsg.massage FROM tblmsg WHERE tblmsg.idmsg=1"
Set rsmsg = CurrentDb.OpenRecordset(qsql)
MsgBox rsmsg.Fields(1), vbCritical, "τεστ"
End Sub
Ευχαριστώ και πάλι..
|