Objet requis dans exécution d'une requête

Le
Bear76
Bonjour à la communauté,

J'ai un petit souci avec l'exécution d'une requête Ajout via
l'évènement Click() dans un formulaire.
CurrentDb.Execute ("INSERT INTO Tbl1 ( Chp2, Chap3, Chp4 ) " & _
"SELECT Tbl2.Chp1, Tbl2.Chp2, Tbl2.chp3 " & _
"FROM Tbl2 " & _
"WHERE (((Tbl2.Chp1)= " &
Formulaires.NomdemonForm.Controls(Chp1) & ")) ")

Lorsque j'exécute le clic, j'ai un message Objet requis qui s'affiche !
Auriez-vous une idée ?
Merci d'avance.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
ejc
Le #20270061
Salut,
L'événement Click c'est sur ton Formulaire NomdemonForm ?
Si Oui :
1-Déjà : déclare donc une variable du genre Dim SqlStr as String dans la
procédure
2-Initialise ta variable :
SqlStr="INSERT INTO Tbl1 ( Chp2, Chap3, Chp4 ) SELECT Tbl2.Chp1, Tbl2.Chp2,
Tbl2.chp3 FROM Tbl2 "
SqlStr=SqlStr & "WHERE Tbl2.Chp1=" & Me.MachinTruc
'Ce sera beaucoup plus lisible et modifiable que les 4 ou 5 lignes de ta
requête (c'est mon avis)
ATTENTION : si ton contrôle (que j'ai appelé Me.MachinTruc) est du texte tu
modifies la ligne précédente en :
SqlStr=SqlStr & "WHERE Tbl2.Chp1='" & Me.MachinTruc & "'" ou en (plus long,
mais moins risqué à cause de l'apostrophe qu'il peut y avoir dans
MachinTruc)
SqlStr=SqlStr & "WHERE Tbl2.Chp1=" & Chr(34) & Me.MachinTruc & Chr(34)
...
CurrentDb.Execute (SqlStr)
Ta procédure pourrait donc ressembler à ça :
'------
Private Sub Form_Click()
Dim SqlStr As String
SqlStr = "INSERT INTO Tbl1 ( Chp2, Chap3, Chp4 ) SELECT Tbl2.Chp1,
Tbl2.Chp2, Tbl2.chp3 FROM Tbl2 "
SqlStr = SqlStr & "WHERE Tbl2.Chp1=" & Chr(34) & Me.MachinTruc & Chr(34)
CurrentDb.Execute (SqlStr)
End Sub
'----
A+
Jero

"Bear76" %
Bonjour à la communauté,

J'ai un petit souci avec l'exécution d'une requête Ajout via l'évènement
Click() dans un formulaire.
CurrentDb.Execute ("INSERT INTO Tbl1 ( Chp2, Chap3, Chp4 ) " & _
"SELECT Tbl2.Chp1, Tbl2.Chp2, Tbl2.chp3 " & _
"FROM Tbl2 " & _
"WHERE (((Tbl2.Chp1)= " &
Formulaires.NomdemonForm.Controls(Chp1) & ")) ")

Lorsque j'exécute le clic, j'ai un message Objet requis qui s'affiche !
Auriez-vous une idée ?
Merci d'avance.




Bear76
Le #20271321
Bonsoir Jero,
Tout simplement génial, merci.
@+
ejc a utilisé son clavier pour écrire :
Salut,
L'événement Click c'est sur ton Formulaire NomdemonForm ?
Si Oui :
1-Déjà : déclare donc une variable du genre Dim SqlStr as String dans la
procédure
2-Initialise ta variable :
SqlStr="INSERT INTO Tbl1 ( Chp2, Chap3, Chp4 ) SELECT Tbl2.Chp1, Tbl2.Chp2,
Tbl2.chp3 FROM Tbl2 "
SqlStr=SqlStr & "WHERE Tbl2.Chp1=" & Me.MachinTruc
'Ce sera beaucoup plus lisible et modifiable que les 4 ou 5 lignes de ta
requête (c'est mon avis)
ATTENTION : si ton contrôle (que j'ai appelé Me.MachinTruc) est du texte tu
modifies la ligne précédente en :
SqlStr=SqlStr & "WHERE Tbl2.Chp1='" & Me.MachinTruc & "'" ou en (plus long,
mais moins risqué à cause de l'apostrophe qu'il peut y avoir dans MachinTruc)
SqlStr=SqlStr & "WHERE Tbl2.Chp1=" & Chr(34) & Me.MachinTruc & Chr(34)
...
CurrentDb.Execute (SqlStr)
Ta procédure pourrait donc ressembler à ça :
'------
Private Sub Form_Click()
Dim SqlStr As String
SqlStr = "INSERT INTO Tbl1 ( Chp2, Chap3, Chp4 ) SELECT Tbl2.Chp1,
Tbl2.Chp2, Tbl2.chp3 FROM Tbl2 "
SqlStr = SqlStr & "WHERE Tbl2.Chp1=" & Chr(34) & Me.MachinTruc & Chr(34)
CurrentDb.Execute (SqlStr)
End Sub
'----
A+
Jero


Publicité
Poster une réponse
Anonyme