1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
| Private Sub cmd_Valider_Click()
Dim sql as string
if chk_01 = -1 then ' si la boîte est cochée
sql = "INSERT INTO tPOSSEDER (Voiture_Ref, Option_Ref) SELECT " & me.controleVoiture_Ref & "," & me.chk_01 & ";"
' expression dans laquelle tPOSSEDER est le nom
'de votre table association,
'Voiture_TRef / Option_Ref les champ de votre table assocaition,
'me.controleVoiture_Ref la valeur du contrôle contenant
'la référence de la voiture pour laquelle on indique les option,
'et chk_01 la case option traitée
' On supprimer les alertes
DoCmd.SetWarning = False
' Ensuite on faire tourner l'instruction SQL
DoCmd.RunSQL sql
'on remet les alertes
DoCmd.SetWarning = True
'Ne pas oublier de remettre à zéro la chaine sql
sql = ""
end if
end sub |
Partager