Créer en vba une requête Ajout temporaire

Le
Bear76
Bonjour à la communautée,
Je cherche à créer sur l'évènement sur Click() d'un Form une requête
temporaire Ajout (Insert into) et je n'y arrive pas.
Une âme généreuse pourrait-elle me venir en aide ?
Merci d'avance
Questions / Réponses high-tech
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
Argyronet
Le #20275141
Bonjour,

Voici une solution :

Private Sub CreateMyQuery(ByVal QueryName As String, ByVal SQL As String)
Dim oQDF As DAO.QueryDef

On Error Resume Next
Set oQDF = CurrentDb.QueryDefs(QueryName)
If Err <> 0 Then
Err.Clear
'N'existe pas alors on la créé
Set oQDF = CurrentDb.CreateQueryDef(QueryName, SQL)
Else
'Exite déjà donc on met à jour sa propriété SQL
oQDF.SQL = SQL
End If
Set oQDF = Nothing
End Sub

Que vous utilisez comme ceci :

Private Sub Form_Click()
Call CreateMyQuery("Ma requête INSERT", "INSERT INTO MA_TABLE (Champ1,
Champ2, Champ3) VALUES ('ValeurText1', ValeurNumerique2,
#ValeurDate_mm/dd/yyyy#")
End Sub

--
Argy
http://argyronet.developpez.com/
Créez des programmes avec Microsoft Access 2007 (ISBN 2742982442)
VBA pour Office 2007 (ISBN 2742983910)



"Bear76" a écrit :

Bonjour à la communautée,
Je cherche à créer sur l'évènement sur Click() d'un Form une requête
temporaire Ajout (Insert into) et je n'y arrive pas.
Une âme généreuse pourrait-elle me venir en aide ?
Merci d'avance





db
Le #20275191
Bear76 a écrit :
Bonjour à la communautée,
Je cherche à créer sur l'évènement sur Click() d'un Form une requête
temporaire Ajout (Insert into) et je n'y arrive pas.
Une âme généreuse pourrait-elle me venir en aide ?
Merci d'avance




Peut-être simplement en utilisant :

Docmd.RunSQL("INSERT INTO maTable VALUES(...)")

db
Bear76
Le #20276491
Argyronet a utilisé son clavier pour écrire :
Bonjour,

Voici une solution :

Private Sub CreateMyQuery(ByVal QueryName As String, ByVal SQL As String)
Dim oQDF As DAO.QueryDef

On Error Resume Next
Set oQDF = CurrentDb.QueryDefs(QueryName)
If Err <> 0 Then
Err.Clear
'N'existe pas alors on la créé
Set oQDF = CurrentDb.CreateQueryDef(QueryName, SQL)
Else
'Exite déjà donc on met à jour sa propriété SQL
oQDF.SQL = SQL
End If
Set oQDF = Nothing
End Sub

Que vous utilisez comme ceci :

Private Sub Form_Click()
Call CreateMyQuery("Ma requête INSERT", "INSERT INTO MA_TABLE (Champ1,
Champ2, Champ3) VALUES ('ValeurText1', ValeurNumerique2,
#ValeurDate_mm/dd/yyyy#")
End Sub

--
Argy
http://argyronet.developpez.com/
Créez des programmes avec Microsoft Access 2007 (ISBN 2742982442)
VBA pour Office 2007 (ISBN 2742983910)



"Bear76" a écrit :

Bonjour à la communautée,
Je cherche à créer sur l'évènement sur Click() d'un Form une requête
temporaire Ajout (Insert into) et je n'y arrive pas.
Une âme généreuse pourrait-elle me venir en aide ?
Merci d'avance








Bonjour,
Merci beaucoup.
Publicité
Poster une réponse
Anonyme