Discussion :

[ac264]

Bonjour,

Je pense que mon post sera mieux sur ce forum-ci.

Dans VBA, je désire ouvrir un formulaire uniquement si le résultat d'une requête SQL est non vide.
J'ai essayé par le code suivant, mais cela ne fonctionne pas correctement.
Quelqu'un à un autre diée?

Merci d'avance

Voici grosso modo mon code:

Code :

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

1
2
3
4
Code :
SQL = "blabla"
Set maReq = myBD.CreateQueryDef(myQuery, SQL)
If ContientElements(myQuery) = true then ...

La fonction ContientElements est une fonction que j'ai définie dans le Module de la base Access


Code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Function ContientElements(ByVal strSQL As Variant) As Boolean
 
Dim indice As Long
 
On Error GoTo vide
indice = UBound(strSQL)
ContientElements = True
Exit Function
 
vide:
 
End Function

[ac264]

J'ai trouvé une solution toute simple via la fonction Dcount :

Code :

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

1
2
3
4
5
SQL = "blabla"
    Set maReq = myBD.CreateQueryDef(myQuery, SQL)
    nb = DCount("*", query)
 
   If nb <> 0 Then...

Ainsi ça marche

[binouzzz19]

Je ne comprends pas bien ta fonction ContientElements

Tu veux savoir si ta requête te retourne des résultats ou non, n'est-ce pas ?

Dans ce cas, moi je ne fais pas comme ca.

Je fais plutôt comme ceci :

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
 
Dim oRst As Adodb.Recordset
Dim cnx As Adodb.Connection
 
Dim SQL As String
 
SQL = "ta requete sql"
 
'On utilise la database courante
Set cnx = CurrentProject.Connection
 
Set oRst = New Adodb.Recordset
 
oRst.Open SQL, cnx, adOpenDynamic
If oRst.EOF = False Then
'Ca te retourne quelque chose donc ouverture de ton formulaire
DoCmd.openForm "nom de ton formulaire"
End If 
Libération des objets
oRst.Close
cnx.Close
Set oRst = Nothing
Set cnx = Nothing

[EDIT]Ah t'as été plus rapide que moi ![/EDIT]

[ac264]

Merci quand même !