conditions vba formulaire

**buddy82** · 05/04/2009, 16h06

Bonjour, j'ai un formulaire avec un champ danse et un champ groupe
dans danse on trouve : jazz, classique par exemple
dans groupe : jazz1, jazz2, classique1, classique2 (suivant les niveaux des adhérents)

Un membre peut s'inscrire dans plusieurs danses.
Pour s'inscrire en jazz2, il doit être déjà inscrit en jazz1, comment puis je faire pour faire une formule me permettant de vérifier que si je choisi jazz2, le membre soit déjà inscrit en jazz1 ? merci

**Dolphy35** · 05/04/2009, 17h08

Salut,

tout dépend de ton niveaux en vba. Cette information est disponible depuis le formulaire dans tu veux sélectionner. Sinon il te faut contrôler dans la table en question.

Dolphy

**buddy82** · 05/04/2009, 17h17

coucou, je tai mis une image pour que tu te rendes mieux compte.
sinon en vba je me débrouille pas mal on va dire ...

Version : access 2007

**Dolphy35** · 05/04/2009, 17h26

Salut,

sur l'événement mise à jour de la liste tu réalise ton test, regarde du côté de DLookup tu trouveras une explication avec exemples dans l'aide VBA

En fonction du retour du test tu peux afficher un message signalant qu'il ne suit pas le cursus

Dolphy

**buddy82** · 06/04/2009, 23h07

j'arrive pas .... enfin si j'arrive à faire une formule style dcount (*) ("T_Inscription", "groupe='" & me!groupe=')>0 mais si j'entre un nouveau membre, je ne peux l'inscrire dans une danse qu'un autre membre est inscrit, en fait j'aimerai que cette formule marche mais par membre, je sais ^pas si c'est clair ...

Sinon voir photo si jointe, je n'arrive pas avec ma case à cocher remise famille, quand je la coche elle est cochée pour touts les membres et pareil quand je la décoche, comment je peux faire ? merci

**buddy82** · 10/04/2009, 13h33

J'ai presque trouvé, chaque membre peut s'inscrire dans plusieurs danses mais je voudrais que si le membre est déjà inscrit en jazz par exemple, il ne puisse pas se réinscrire deux fois dans le même cours.
Alors j'ai mis :

Code :

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

1
2
3
4
 
If DCount("*", "[T_Membres]", "Prénom='" & Forms![F_Membres]!Prénom & "'" & "NOM='" & Forms![F_Membres]!Nom & "'") And DCount("*", "[T_Inscription]", "groupe='" & Me!groupe & "'") > 0 Then
X = MsgBox("Déjà inscrit danse ce cours", vbOKOnly + vbExclamation, "attention")
Me.Undo

Mais ça ne fonctionne pas
En fait je voudrais que la base regarde si pour tel nom et prénom (car deux membres peuvent avoir le même nom), il est déjà inscrit dans tel danse

**Jean-Philippe André** · 10/04/2009, 14h49

salut,
attention ton critère n'est pas bon dans ton DlookUp
essaie avec ceci :

Code :

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

If DCount("*", "[T_Membres]", "Prénom='" & Forms![F_Membres]!Prénom & "' AND NOM='" & Forms![F_Membres]!Nom & "'")

ou alors

Code :

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

If DCount("*", "[T_Membres]", "Prénom='" & Forms![F_Membres]!Prénom & "' OR NOM='" & Forms![F_Membres]!Nom & "'")

selon le filtre souhaité

**buddy82** · 10/04/2009, 15h52

J'ai mis ça :

Code :

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

If DCount("*", "[T_Inscription]", "groupe='" & Me!groupe & "'" > 0) And DCount("*", "[T_Membres]", "Prénom='" & "Forms![F_Membres]!Prénom" & "' AND NOM='" & "Forms![F_Membres]!Nom" & "'") Then ...

Mais ça fonctionne pas ... Dès que c'est le même nom il me dit impossible

J'ai essayé ça mais ça ne fonctionne pas non plus :

Code :

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

'If DCount("*", "[T_Inscription]", "groupe='" & Me!groupe & "'" > 0) And DCount("*", "[T_Inscription]", "idmembre='" & Forms![F_Membres]idmembre & "'") Then

**Jean-Philippe André** · 10/04/2009, 16h34

attention, tu confonds encore nom de variable et valeur de variable, id est :
- soit tu utilises les quote ' avec la valeur des controls

Code :

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

If DCount("*", "[T_Inscription]", "groupe='" & Me!groupe & "'" > 0) And DCount("*", "[T_Membres]", "Prénom='" & Forms![F_Membres]!Prénom & "' AND NOM='" & Forms![F_Membres]!Nom & "'") Then ...

- soit tu n'utilises pas les quote

Code :

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

If DCount("*", "[T_Inscription]", "groupe='" & Me!groupe & "'" > 0) And DCount("*", "[T_Membres]", "Prénom=" & "Forms![F_Membres]!Prénom" & " AND NOM=" & "Forms![F_Membres]!Nom" & "") Then ...

**buddy82** · 10/04/2009, 16h42

C'est vrai que je début en vba donc j'ai encore du mal avec les quotes ou pas
En tout cas merci ça marche du tonnerre !!!

**buddy82** · 12/04/2009, 21h43

voici mon code :

Code :

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

If DCount("*", "[T_Inscription]", "groupe='" & Me!groupe & "'") > 1 And DCount("*", "[T_Membres]", "Prénom='" & Forms![F_Membres]!Prénom & "' AND Nom='" & Forms![F_Membres]!Nom & "'") Then

Si je met >0 dès que j'ajoute un groupe il me dit déjà inscrit alors que le membre n'est inscrit nul part ...
En mettant >1 ça marche pour 2 membres et à partir du 3ème dès que je rentre un groupe il me dit déjà inscrit alors qu'il n'est inscrit nul part ...

Je ne sais plus quoi faire

J'ai essayé aussi en mettant au lieu d'égal au nom et prénom, égal à l'idmembre mais ça ne marche pas non plus ...

**Jean-Philippe André** · 15/04/2009, 15h24

ta deuxième partie de test, tu ne lui as mis aucune valeur, est-ce normal ?

**buddy82** · 15/04/2009, 16h06

ben je sais pas, je veux juste qu'il verifie que se soit le meme nom et prénom

**Jean-Philippe André** · 15/04/2009, 16h24

oui, mais en l'occurence, tu ne spécifies pas la valeur que tu veux tester avec ton Dcount...
en essayant avec ceci

Code :

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

If DCount("*", "[T_Inscription]", "groupe='" & Me!groupe & "'") > 1 And DCount("*", "[T_Membres]", "Prénom='" & Forms![F_Membres]!Prénom & "' AND Nom='" & Forms![F_Membres]!Nom & "'")>1 Then

ca donne quelque chose de pklus concluant ?

**buddy82** · 15/04/2009, 17h05

merci mais ça ne fonctionne pas, peut importe ce que je rentre il me met : déjà inscrit dans cette danse ...

sinon j'ai essayé avec ce code, ça marche presque mais il doit manquer quelque chose ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub groupe_AfterUpdate()
 
t = DLookup("[groupe]", "T_Inscription")
y = DLookup("[idmembre]", "T_Inscription")
 
If (y = Forms![F_Membres]![idmembre]) And (t = Forms![F_Membres]![F_Inscription]![groupe]) Then
x = MsgBox("Déjà inscrit danse ce cours", vbOKOnly + vbExclamation, "attention")
Me.Undo
 
Else
End If
End Sub

**Jean-Philippe André** · 15/04/2009, 17h46

alors en partant sur cette méthode, je proposerais ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub groupe_AfterUpdate()
 
t = Nz(DLookup("[groupe]", "T_Inscription", "[groupe] = Forms![F_Membres]![f_inscription]![groupe]"),0)
y = Nz(DLookup("[idmembre]", "T_Inscription","[idmembre]=Forms![F_Membres]![Idmembre]"),0)
 
If y <>0  And t <> 0  Then
x = MsgBox("Déjà inscrit danse ce cours", vbOKOnly + vbExclamation, "attention")
Me.Undo
 
Else
End If
End Sub

**buddy82** · 15/04/2009, 20h20

ça ne fonctionne pas non plus, pour nimporte quel enregistrement il m'affiche le message : déjà inscrit ...

**Jean-Philippe André** · 15/04/2009, 20h44

peux-tu regarder la valeur retournée par tes controls d'une part,
celles dans tes tables.

ca me parait louche comme fonctionnement final :/

**buddy82** · 15/04/2009, 20h57

ben en fait c'est par des listes déroulantes que j'affiche les groupes, il enregistre le nom du groupe dans la table inscription

**Jean-Philippe André** · 15/04/2009, 21h32

oui, mais qu'est-ce qui existe déjà au départ ?
les groupes ?
les membres ?
les deux ?

conditions vba formulaire

IHM

Discussions similaires

Partager

Partager