Créer en vba une requête Ajout temporaire

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

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

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.