Discussion :

[ac264]

Bonjour,

Je fais une requête SQL en VBA.
Si cette requête renvoie un résultat, j'aimerais qu'un autre formulaire s'affiche. Sinon pas.
Il me faudrait donc pouvoir tester si la requête SQL renvoie des valeurs ou non.
Quelqu'un a une idée?
J'ai essayé par UBOUND, mais cela n'a pas l'air de marcher

[pc75]

Bonjour,

Avec un peu de code peut-être ?

[ac264]

Voici grosso modo mon code:

Code :

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

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

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

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