Discussion :

[mishkai]

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:

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

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.
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 ?

[vodiem]

salut mishkai et bienvenu,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

docmd.setwarning false

ps: Heureux-oli peut être content au lit mais surement pas que tu lui écorche son nom de membre.

[mishkai]

salut mishkai et bienvenu,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

docmd.setwarning false

ps: Heureux-oli peut être content au lit mais surement pas que tu lui écorche son nom de membre.

Merci Vodiem !