1 2 3 4 5 6 7 8 9 10
| Private Sub nomdetonbouton_Click ()
Dim sql1 As String
'Désactive les messages d'alertes
DoCmd.SetWarnings False
'Exécute le code SQL ajout dans la table tte commande
sql1="INSERT INTO [nomdelatablettecommnde](champ1,champ2,champ3,champ4) VALUES ([Forms]![nomduformulaire]![nomdusousformulaire]![champ1],[Forms]![nomduformulaire]![nomdusousformulaire]![champ2],[Forms]![nomduformulaire]![nomdusousformulaire]![champ3],[Forms]![nomduformulaire]![nomdusousformulaire]![champ4])"
'Réactive les messages d'alertes
DoCmd.SetWarnings True
End Sub |
Partager