Discussion :

[manu971]

Bonjour,

Je souhaite vérifier si une ligne n'existe pas déjà avant de la créer. Je fais donc un select sur un champ mais comment puis-je tester le résultat ?

if (résultat de mon select) = valeur_test then

En shell on peut récupérer le résultat d'une commande avec des ``. Y a-t-il une solution en VBA ?

Emmanuel

[Jean-Philippe André]

Bonjour,
tu peux partir d'une idée comme ceci (avec les référence DAO) :

Code :

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

1
2
3
4
5
6
7
Dim RS as DAO.RecordSet
Dim StrSQL as String
StrSQL = "SELECT COUNT(*) AS Total FROM MaTable;"
Set RS = CurrentDb.OpenRecordSet(StrSQL)
If RS!Total > 30 then
MsgBox "il y a plus de 30 lignes dans la table"
End If

[manu971]

Je vais conserver ma solution de contournement qui me paraît plus simple :

Exécution de la requête dans un zone de liste invisible puis test de la valeur.

Emmanuel

[Invité]

Bonjour

Tu as aussi la possibilité d'utiliser les fonctions de domaines comme DLookup avec plusieurs critères, un peu de lecture.