1 2 3 4 5 6
| Dim strSql As String
strSql = "INSERT INTO COMMANDE(NUM_CLIENT, NUM_DEVIS, TITRE_OUVRAGE, QUANTITE_OUVRAGE, HAUTEUR_OUVRAGE, LARGEUR_OUVRAGE, PAGINATION_OUVRAGE, TYPE_BLOC_OUVRAGE, CONSTITUTION_OUVRAGE, GARDE_OUVRAGE, TYPE_GARDE_OUVRAGE, GRAMMAGE_OUVRAGE, COUVERT_OUVRAGE, TM_COUV_OUVRAGE, MARQ_COUV_OUVRAGE, CARTON_OUVRAGE, CONDIT_PAQ_OUVRAGE, CONDIT_CAI_OUVRAGE, PROP_PRIX_OUVRAGE, CONCEPT_OUVRAGE, FOURNI_GARD_OUVRAGE, FOURNI_COUV_OUVRAGE, QT1_NB_CAHIER, QT2_NB_CAHIER, QT3_NB_CAHIER, NB1_PAGE_CAHIER, NB2_PAGE_CAHIER, NB3_PAGE_CAHIER, DATE_CREA_OUVRAGE, TVA_OUVRAGE, COMMENT_OUVRAGE)" & _
"VALUES ('" & CLIENT_NUM_CLIENT & "', '" & NUM_DEVIS & "', '" & TITRE_OUVRAGE & "', '" & QUANTITE_OUVRAGE & "', '" & HAUTEUR_OUVRAGE & "', '" & LARGEUR_OUVRAGE & "', '" & PAGINATION_OUVRAGE & "', '" & TYPE_BLOC_OUVRAGE & "', '" & CONSTITUTION_OUVRAGE & "', '" & GARDE_OUVRAGE & "', '" & TYPE_GARDE_OUVRAGE & "', '" & GRAMMAGE_OUVRAGE & "', '" & COUVERT_OUVRAGE & "', '" & TM_COUV_OUVRAGE & "', '" & MARQ_COUV_OUVRAGE & "', '" & CARTON_OUVRAGE & "', '" & CONDIT_PAQ_OUVRAGE & "', '" & CONDIT_CAI_OUVRAGE & "', '" & PROP_PRIX_OUVRAGE & "', '" & CONCEPT_OUVRAGE & "', '" & FOURNI_GARD_OUVRAGE & "', '" & FOURNI_COUV_OUVRAGE & "', '" & QT1_NB_CAHIER & "', '" & QT2_NB_CAHIER & "', '" & QT3_NB_CAHIER & "', '" & NB1_PAGE_CAHIER & "', '" & NB2_PAGE_CAHIER & "', '" & NB3_PAGE_CAHIER & "', '" & DATE_CREA_OUVRAGE & "', '" & TVA_OUVRAGE & "', '" & COMMENT_OUVRAGE & "');"
DoCmd.RunSQL strSql |
Partager