[ Συναρτήσεις ] Πεδίο πολλαπλων τιμών

[dimitrisp]

Γεια σας

Στη φόρμα "checkMsgBoxF" έχω ένα κουμπί εντολής "cmdCheck".
Προσπαθώ να δημιουργήσω μια VBA έτσι ώστε, με το πάτημα του "cmdCheck"
να επιλέγονται (τσεκάρονται) όλες οι μη επιλεγμένες τιμές στο πεδίο πολλαπλών τιμών [CheckMsgBox].
Θα ήθελα τη βοήθειά σας ...

[nasos23]

Καλησπέρα σε όλους.
Δημήτρη μία πρόταση του ζητούμενου με μια διαφοροποίηση.
Η προέλευση δεδομένων του πεδίου CheckMsgBox του πίνακα PELATT

SELECT checkMsgBoxT.id, checkMsgBoxT.checkpedio
FROM checkMsgBoxT
ORDER BY checkMsgBoxT.[checkpedio];

Κατόπιν δημιουργούμε ένα ερώτημα
πχ. checkMsgBox_Q όπου εμφανίζονται οι μή επιλεγμένες τιμές

SELECT checkMsgBoxT.id
FROM checkMsgBoxT LEFT JOIN PELATT ON checkMsgBoxT.id = PELATT.CheckMsgBox.Value
WHERE (((PELATT.CheckMsgBox.Value) Is Null));

Και στον κώδικα της φόρμας και με το κουμπί
cmdCheck ενημερώνουμε τον πίνακα PELATT

Private Sub CheckMsgBox_AfterUpdate()
Me.Recordset.Requery
End Sub

Private Sub cmdCheck_Click()
Dim SQL As String
DoCmd.RunSQL "INSERT INTO PELATT (checkMsgBox.Value ) " & _
" SELECT checkMsgBox_Q.checkMsgBoxT.id AS id " & _
" FROM checkMsgBox_Q;"
  Me.refresh
End Sub

ΥΓ. Για ποιό λόγο επέλεξες η προέλευση δεδομένων του πεδίου CheckMsgBox του πίνακα PELATT
να είναι από λίστα και όχι από πίνακα; Υπάρχει ασυμφωνία πεδίων (αριθμός και κείμενο). Άν μετατρέψεις το id πίνακα checkMsgBoxT σε κείμενο και με τον
παραπάνω κώδικα θα σου δουλέψει.

[dimitrisp]

Γεια σας

Νάσο σε υπερευχαριστώ για την πρότασή σου. Έκανα διάφορες δοκιμές και φαίνεται να είναι λειτουργική!
Επέλεξα να ασχοληθώ με πεδία πολλαπλών τιμών για λόγους πειραματισμού. Ωστόσο, διαπιστώνω ότι,
τα πεδία πολλαπλών τιμών δεν είναι και τόσο πρακτικά ή ευέλικτα για χρήση στην Access...
Η αφορμή ήταν ένας κώδικας που βρήκα στη δ/νση, https://answers.microsoft.com/en-us/...1-77739b62661d,

Private Sub cmdSelectAll_Click()

Dim row As Long

With Me.checkMsgBox

For row = 0 To .ListCount - 1
.Selected(row) = True
Next row

End With

End Sub

όπου, σύμφωνα με κάποιον χρήστη, ικανοποιούσε το ζητούμενο αλλά ποτέ δεν κατάφερα να τον εφαρμόσω
στην παραδειγματική βάση που ανέβασα...
Μήπως έχεις καμιά ιδέα για ποιο λόγο?

[pakos]

χαιρετω τα μελη

κατι αντιστοιχο με μεταφορα μιας στήλης σε ενα πεδιο σε σειρα στο forum

https://www.ms-office.gr/forum/acces...se-grammi.html