Bonjour à tous
j'ai un petit soucis dans mon programme l'insertion ce fait convenablement mais j'ai un message d'erreur et mon aperçu ne s'ouvre pas.
Voici le message qui s'affiche
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31 Private Sub Commande17_Click() On Error GoTo Err_Commande17_Click Dim stDocName As String '---------------------------------------- Dim connex As ADODB.Connection Dim recset As ADODB.Recordset Dim MonSQL As String MonSQL = "INSERT INTO impression (change,nom,raison,fiche) VALUES ('" & Forms!impression!num_change & "','" & Forms!impression!nom & "','" & Forms!impression!raison & "','demande');" Set connex = CurrentProject.Connection Set recset = New ADODB.Recordset recset.Open MonSQL, connex recset.Close connex.Close Set connex = Nothing Set recset = Nothing '---------------------------------------- stDocName = "etat_change_control" DoCmd.OpenReport stDocName, acPreview 'acNormal Exit_Commande17_Click: Exit Sub Err_Commande17_Click: MsgBox Err.description Resume Exit_Commande17_Click End Sub
Cette opération n'est pas autorisé si l'objet est fermé.
merci de votre aide.![]()
Partager