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

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - [ Συναρτήσεις ] Πεδίο πολλαπλων τιμών (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/6380-pedio-pollaplon-timon.html)

Πεδίο πολλαπλων τιμών

Γεια σας

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

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

Γεια σας

Νάσο σε υπερευχαριστώ για την πρότασή σου. Έκανα διάφορες δοκιμές και φαίνεται να είναι λειτουργική!
Επέλεξα να ασχοληθώ με πεδία πολλαπλών τιμών για λόγους πειραματισμού. Ωστόσο, διαπιστώνω ότι,
τα πεδία πολλαπλών τιμών δεν είναι και τόσο πρακτικά ή ευέλικτα για χρήση στην 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

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

συνεχεια

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

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

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