Suite a un message posté pendant la période ou le serveur est tombé en panne je reposte la chose.
@ HEUREUX AU LIT : j'ai trouvé la réponse a mon problème, je remet le code qui a évolué depuis mais le problème reste le meme:
J'ai supprimé la partie entre le nom de la table et Values (en gros j'ai supprimé la déclaration des colonnes) et ca marche.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Private Sub CmdPreview_Click() Dim StrSQL As String StrSQL = "Insert into ENTERNSHIP VALUES ('" & GetName & "', '" & GetSex & "','" & List36.ListCount & "', '" & TxtCompany & "', '" & Mid(List36.Column(3, 0), 2, 1) & "', '" & GetDegree(Left(List36.Column(3, 0), 1)) & "', '" & GetDept(Right(List36.Column(3, 0), 3)) & "', '" & TxtDatefrom & "', '" & TxtDateTo & "', '" & TxtTrainingField & "', '" & TxtIssueDate & "')" DoCmd.RunSQL StrSQL End Sub
Ce que je ne comprends pas c'est que la plupart des gens le font avec :-S
Par contre un message ACCESS apparait : You are about to append 1 row(s) Once you click Yes, you can't use the Undo command to reverse the changes. Are you sure ...
Peut-on supprimer l'affichage de ce dernier ?
Partager