Discussion :

[St-Jean]

Bonjour,

J'ai un souci avec la requête-action SQL ci-dessous.

Au lieu d'exploiter dans l'instruction SQL les paramètres passés, la procédure, à l'exécution, ouvre successivement deux boîtes de dialogue pour me demander d'entrer manuellement les deux valeurs passées en paramètres. Pourtant, la valeur des paramètres (integer) est correcte, quand je la vérifie dans le débogueur, avant que l'effet indésirable ne se produise... Où est le problème?

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub EtablirRapprochement(ByVal ID_Facture As Integer, _
                                ByVal ID_Debit As Integer)
 
Dim strSQL As String
 
strSQL = "INSERT INTO tbl_REL_Charges_OpeBancaires ([BanqueOpe_ID], [Charges_ID]) VALUES (ID_Debit, ID_Facture) "
 
DoCmd.RunSQL strSQL
 
End Sub

Merci d'avance...
Ph.

[Lou Pitchoun]

Salut,

Les valeurs reçues ne sont pas intégrées dans la chaine SQL.

Code :

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

strSQL = "INSERT INTO tbl_REL_Charges_OpeBancaires ([BanqueOpe_ID], [Charges_ID]) VALUES (" & ID_Debit & ", " & ID_Facture & ")"

[St-Jean]

Bonjour,

Merci pour la réponse, ça marche parfaitement... sauf que j'ai aussi une boîte de dialogue qui m'informe, à chaque fois, que je vais ajouter une ligne dans la table... Est-il possible de ne pas voir cette boîte de dialogue?

[Lou Pitchoun]

SetWarnings va t'être utile.

Code :

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

1
2
3
DoCmd.SetWarnings False
DoCmd.RunSQL SQL
DoCmd.SetWarnings True

[St-Jean]

Je viens de trouver : je dois décocher "Confirmer Requête action" dans les options de la base de données.

Encore merci

Ph.

[St-Jean]

Et ta solution est encore meilleure :-)



Je n'ai plus qu'à appuyer sur Résolu!