Discussion :

[elvisogo]

je sais que cette question est vraiment simple pour certain mais aider moi s'il vous plait .
voila j'ai ecrit cette petite fonction dans un module

Code :

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

1
2
3
4
5
6
Public Function test()
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
Set oDb = CurrentDb
Set oRst = oDb.OpenRecordset("SELECT * FROM matiere ", dbOpenDynaset)
End Function

ensuite dans un fomulaire j'ai crée un bouton et jai appellé la fonction en question et fésant

Code :

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

1
2
3
Private Sub Commande22_Click()
Call test
End Sub

rien n'est obtenue

ensuite jai essayer

Code :

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

1
2
3
Private Sub Commande22_Click()
test()
End Sub

rien aussi

[Robert1957]

Bonjour elvisogo,

Avec le code que tu as, il n'y a rien à obtenir. Voila pourquoi. Quel est le but recherché?

Bonne journée

[elvisogo]

je lisais un tutoriel et je pensais que la ligne de code exécutait et affichais les resultats de la requête .
alors comment exécuté la requête sql et visualise le résultat en vba alors?

[Robert1957]

Bonjour elvisogo,

je lisais un tutoriel et je pensais que la ligne de code exécutait et affichais les resultats de la requête .

Ce n'est pas tout à fait ça. Le code du post # 1 crée un jeu d'enregistrement (recordset), rien de plus.

alors comment exécuté la requête sql et visualise le résultat en vba alors?

Il faut commencer par la créer si elle n'existe pas. Si elle existe affecter le sql à la requête puis l'afficher. Voici une fonction qui fait cela:

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
Public Function fuRQ(strNom As String, strSQL As String)
On Error GoTo err_fuRQ
 
    Dim db As DAO.Database: Set db = CurrentDb
    Dim qdf As DAO.QueryDef
 
    Set qdf = db.QueryDefs(strNom)                   'La requête existe et on l'affecte
    qdf.SQL = strSQL                                 'Choix du sql pour la requête
    DoCmd.OpenQuery strNom                           'Affichage de la requête
    Set qdf = Nothing                                'Libère l'objet
    Set db = Nothing                                 'Idem
 
Exit_fuRQ:
    Exit Function
err_fuRQ:
    Select Case err.Number
        Case 3265                                       'Erreur levée quand la requête n'existe pas
            Set qdf = db.CreateQueryDef(strNom, strSQL) 'Création de la requête
            Application.RefreshDatabaseWindow           'Affichage dans onglet navigation
            DoCmd.OpenQuery strNom                      'Affichage de la requête
            Set qdf = Nothing                           'Libère l'objet
            Set db = Nothing                            'Idem
            Resume Exit_fuRQ
        Case Else
            MsgBox err.Description & ", " & err.Number
    End Select
End Function

Dans un formulaire avec 2 champs, un = txtNom pour le nom de la rq et un txtRQ pour le sql de la rq, le code suivant sur un bouton:

Code :

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

1
2
3
Private Sub btnRQ_Click()
fuRQ Me.txtNom, Me.txtRQ
End Sub

Bonne journée

[elvisogo]

pour ne pas trop te déranger je teste tous sa et j essaie de mieux comprendre par des lecture et je reviens si jai des questions

[elvisogo]

salut encore moi désolé , je voudrai que dans mon formulaire ou sous formulaire un bouton à cocher, qui lorsque l'utilisateur a fini de remplir tous les champs doit forcement coché ce bouton sinon il est impossible de procédé a l'enregistrement des données saisi avec l'affichage d'une erreur