1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Sub AjouteEntrerDansTablePb(NUMFAB, NREF, ZoneTexte)
'Déclaration des variables
Dim sSQL As String 'sSQL est une variable pouvant stocker plusieurs characteres: ici une requete
Dim qdf As Variant
Dim bds As Database
Dim dateActuel As Date
Dim TableZ As String
dateActuel = Now 'Affecte à la variable dateActuel l'heure du système
TableZ = "Problèmes_rencontrés"
'requête SQL
sSQL = "INSERT INTO " & [TableZ] & " " & _
"(NUM_FAB, NUM_REF, DATE_AJOUT,Description_problème) " & _
"VALUES ('" & [NUMFAB] & "', '" & [NREF] & _
"', '" & [dateActuel] & ",' " & [ZoneTexte] & ");"
'Afficher Le Resultat Dans Debug : CLICK DROIT BARRE OUTILS : ACTIVER DEBUGAGE : CLIQUER SUR FENETRE EXECUTION... POUR VOIR LE RESULTAT
Debug.Print ZoneTexte
Debug.Print sSQL
CurrentDb.Execute sSQL, dbFailOnError 'execute la requete sSQL
End Sub |
Partager