SQL dans une procédure évènementielle en VBA

Version imprimable

Bonjour à tous !

Dans le sous-formulaire d'un formulaire, j'ai un champ1 sous forme de liste déroulante qui "pointe" vers le champ d'une table, j'ai ensuite un champ2 qui est saisi par l'utilisateur et le champ3 est rempli automatiquement en fonction de la valeur saisie précédemment en champ2 et de la valeur du champ1, il (champ3) récupère sa valeur dans un autre champ de la table.
J'ai donc créé une Procédure évènementielle sur sortie du champ1.
Pour plus de flexibilité, je souhaite récupérer une information dans une table, toujours en fonction de ce qui est saisi dans le champ1.

En sachant que :
- Fleurs est le nom de ma table sur laquelle "pointe" le champ1
- Type est le nom du champ contenu dans Fleurs et sur lequel pointe le champ1
- Taille est le nom du champ contenu dans Fleurs dans lequel champ3 récupère les données
- saisieFleurs est le nom du formulaire
- Fleurs_SF est le nom du sous-formulaire,
quelle est la syntaxe à adopter ?

Pour l'instant, j'ai :
Code:

1 2 3 4 5 6 7 sql= "SELECT [Fleurs].[Taille] FROM [Fleurs] WHERE ((Forms![saisieFleurs]![Fleurs_SF].Form!champ1 = [Fleurs].[Type]) AND ([Fleurs].[Taille] BETWEEN 100 AND 200));" If (Forms("saisieFleurs")("Fleurs_SF")("champ2").value >=150) Then 'donc le champ du sous-formulaire saisi par l'utilisateur Forms("saisieFleurs")("Fleurs_SF")("champ3").value = sql End if
Mais j'ai une erreur de syntaxe sur le WHERE.

Quelqu'un saurait-il me dire d'où vient l'erreur ?

Merci beaucoup, d'avance.

Kaera*

15/03/2012, 10h03
alassanediakite

Salut
Jettes un coup d’œil ici.

PS : dev.com te dit "Étudiant[?]":D Là il faut te plaindre! Mais, comme le 8 mars est passé il faut attendre l'année prochaine:mouarf:
15/03/2012, 10h25
Kaera

Salut alassane,

Merci pour ta réponse.
J'ai lu le tutoriel et je n'ai pas tout compris...

Ici :
DLookup("dteNote", "qry_TriDate", "strNom='Dupond' and strPrenom='Marc' and bytNote between 1 and 9")

Où sont définis "dteNote", "qry_TriDate", etc. ?

Comment et où dois-je intégrer cette expression ?

Merci d'avance.

Salut
Dans ton évènement...

Code:

1
2
3
4
5
 'on remplace Forms("saisieFleurs")("Fleurs_SF")("champ2") par Me si tous les champs sont dans le sous-formulaire!!!
If (Me.champ2.value >=150) Then  'donc le champ du sous-formulaire saisi par l'utilisateur
    Me.champ3.value = DLookup("Taille", "Fleurs", "(Taille BETWEEN 100 AND 200) AND Type='" & Me.champ1)
End if

Salut alassane,

merci pour ce bout de code, je comprends mieux la syntaxe de DLookup.
Très efficace et pratique comme fonction donc je te remercie du tuyau ! :ccool:

Cependant, c'est en l'appliquant à mon cas que je me suis rendue compte qu'il me faut l'intégrer différemment à mon code.

Ce que je cherche à faire peut être traduit comme suit :
<< Si le champ2 du sous-formulaire est compris entre 100 et 200 alors
si, pour le champ Type(table Fleurs) égal à la valeur du champ1, la valeur 150 dans le champ Taille(table Fleurs) existe alors
le champ3 prend la valeur "150"
sinon le champ3 prend la valeur "100".>>

En reprenant tes conseils, j'obtiens:
Code:

1 2 3 4 5 6 7 8 test = DLookup("Taille", "Fleurs", "Taille='150' AND Type='" & Me.champ1 & "' ") If (Me.champ2.Value >= 250) And (Me.champ2.Value < 290) Then If IsNull(test) Then Me.champ3.Value = "100" Else: Me.champ3 = "150" End If End If
Mais j'obtiens une erreur sur ma ligne "test=...." : Type de données incompatible dans l'expression du critère.
Ne sachant pas comment déclarer ma variable "test", je l'ai mise en integer parce que le résultat du DLookup est un nombre, mais c'est probablement incorrect et ça génère l'erreur.
Qu'en penses-tu ? Comment dois-je déclarer ma variable "test" ?
Merci d'avance alassane. ;)

PS: En effet, y a un chouïa de discrimination de la part de dev.com !
J'essaierai le 8 mars prochain de réclamer le "e" manquant !:mouarf:

Je suis parvenue à m'auto-corriger !

Et ceci fonctionne à merveille :

Code:

1
2
3
4
5
6
7
8
test = Nz(DLookup("Taille", "Fleurs", "Taille=150 AND Type='" & Me.champ1 & "' "), 0)
 
        If (Me.champ2.Value >= 100) And (Me.champ2.Value < 200) Then
            If test = "0" Then
                Me.champ3.Value = "100"
            Else: Me.champ3.Value = "150"
            End If
        End If

C'est grâce à toi alassane, merci encore ! :ccool: