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