Table qui prend le nom en fonction des cases à cocher

**chuspyto** · 15/04/2013, 17h47

bonjour,

j'ai essayé d'optimiser mon code d'origine en ce qui va suivre mais je n'ai aucun résultat ni message d'erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
If Cadre1.Value = 2 And Cadre2.Value = 3 And Cadre3.Value = 3 Then
table = "Table_1"
tables = "Table_1a"
ElseIf Cadre1.Value = 2 AndCadre2.Value = 3 And Cadre3.Value = 7 Then
table = "Table_2"
tables = "Table_2a"
ElseIf Cadre1.Value = 3 And Cadre2.Value = 3 And Cadre3.Value = 3 Then
table = "3"
tables = "3a"
For i = 1 To 40
res = Nz(DLookup("Chm", "tables", "[ID] = " & i))
Next i

merci

**jimbolion** · 15/04/2013, 18h48

chuspyto,

Tout me semble confus dans ton code mais "tables" ne varie pas parce que protégé :

Il faut passer la variable soit :

Code :

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

res = Nz(DLookup("Chm", tables, "[ID] = " & i))

Pour le reste je ne sais pas ou tu veux en venir, mais j'espère que toi tu le sais

Et le End IF il est ou ?

Pourvu que Mumen ne tombe pas sur ce fil de discussion

JimboLion

**chuspyto** · 15/04/2013, 18h58

je suis d'accord avec toi dans le coté confus c'est pour cela que j'aimerai que le nom de ma table prend le nom en fonction des cases qui sont cochés

**jimbolion** · 15/04/2013, 19h04

chuspyto,

Me voilà déjà rassuré !

Bon as tu essayé la modif sur le test et n'oublie pas de mettre ton End if avant le for

JimboLion

**chuspyto** · 15/04/2013, 19h12

j' ai fais ce que tu m'as dit, a peine une case cochée et j'ai un message d'erreur d'execution 2428
vous avez entre un argument non valide dans une fonction de domaine
l'erreur se situe dans la ligne du dlookup

Code :

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

res = Nz(DLookup("Chm", tables, "[ID] = " & i))

**jimbolion** · 15/04/2013, 19h19

chuspyto,

peux tu afficher le contenu des variables avant le dlookup

Je viens te tester ta fonction, pas de soucis chez moi

JimBoLion

**jimbolion** · 15/04/2013, 19h23

chuspyto

Code :

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

1
2
3
I=1
tables = "Paramètres"
res = Nz(DLookup("RaisonSociale",tables, "[Nu] = " & i))

res me renvoie bien une valeur et en l'occurence la raison sociale de la table parametres lorsque Nu=1

JimBoLion

**chuspyto** · 15/04/2013, 19h25

rien pour moi,est ce que je peux faire la meme chose avec un recordset?
ne serait ce pas plus simple?

**jimbolion** · 15/04/2013, 19h30

chuspyto,

Le recordset ne t'apportera rien de plus. La fonction Dlookup fonctionne correctement, donc piste le contenu de tes variables avant le dlookup

debug.print tables

chm est bien un champ de ta table ?

JimBoLion

**chuspyto** · 15/04/2013, 19h43

tu as raison cela fonctionne bien sans la prise en compte des cases a cocher tel que tu le presente.
des que je veux utiliser les cases a cocher cela ne fonctionne plus et je me retrouve encore avec le message d'erreur.

**jimbolion** · 16/04/2013, 08h01

chuspyto,

Bien je vois que l'on a progressé. Avant d'envoyer le Dlookup la variable tables a t'elle changée d'état (autrement dit une valeur est-elle renseignée).

Je pense sincèrement que ton problème vient de ta boucle et qu'aucune de ces conditions n'est réalisée. Reposes ton problème sur papier, quelles sont les conditions permettant de mettre à jour ta variable. D'autre part pourquoi table et tables sont utilisées (quelle est la vrai variable contenant le nom de l'objet table dans ta base ?).

Regarde comment fonctionne le select case (bien plus efficace que les if imbriqués)

JimBoLion

**jimbolion** · 16/04/2013, 09h15

Sur la ligne 1 :

Code :

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

If Cadre1.Value = 2 And Cadre2.Value = 3 And Cadre3.Value = 3 Then

Ne serait-ce pas plutôt cela que tu voulais mettre :

Code :

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

If Cadre1.Value = 2 And Cadre2.Value = 3 And Cadre3.Value = 3 Then

D'autre part on constate que Cadre2.Value doit être égal à 3, n'y a t'il pas moyen de contrôler cette valeur avant et provoquer une sortie de la procédure.

Code :

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

ElseIf Cadre1.Value = 2 AndCadre2.Value = 3 And Cadre3.Value = 7 Then

Pour les cas suivants (ligne 1 et 7) tu testes Cadre3.Value = 3, est-il normal de tester la valeur 7 sur cette ligne ?

JimBoLion

**chuspyto** · 16/04/2013, 10h11

Je sais bien que le sélect case est performant mais je ne sais pas comment faire pour les 3cases à cocher

Code :

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

1
2
Sélect case cadre1.value and cadre2.value and cadre3.value
          Case is ????????

**jimbolion** · 16/04/2013, 11h41

chuspyto,

Dejà synthetises !

Regardes le message précédent et réponds aux questions posées :

Sur le premier test Cadre1.Value = 2 c'est pas 1 la valeur ?

Sur le troisième test Cadre3.Value = 7 Then (c'est pas 3 la valeur comme dans les deux tests précédents)

Au vu du test redondant Cadre2.Value = 3 (les conditions s'avèrent exacts dans tous les cas si Cadre2.Value = 3 : donc si <>3 on sort avant)

L'utilisation du Select...Case

Je te laisse chercher un peu, et te donnerai la solution qu'en dernier ressort (après réponse à mes questions) ...

http://msdn.microsoft.com/fr-fr/libr...(v=vs.80).aspx

JimBoLion

**chuspyto** · 16/04/2013, 11h49

pour repondre a tes questions:
j'ai 3 cadres dont les 2 premiers ont 2 cases a cocher et le 3 eme a 10 cases a cocher.
le cadre par defaut a une valeur a 1 pour cela que les cases commence a 2 concernant les cadres 1 et 2.
concernant le cadre 3 qui a une valeur a 7 c'est juste que je n'ai pas voulu mettre l'ensemble des cases(j'en ai pris une au hasard)

Code :

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

1
2
3
4
5
6
7
8
Select Case Cadre1.Value And Cadre2.Value And Cadre3.Value
        Case Is =Cadre1.Value = 2 And Cadre2.Value = 2 Cadre3.Value = 9
                  pnomtable = "Table_1"
 
       Case Is =Cadre1.Value = 2 AndCadre2.Value = 2 Cadre3.Value = 7
                  pnomtable = "Table_2"
 
         end select

j'ai essayé ce select case mais cela ne fonctionne pas completement (seulement la derniere partie)

**jimbolion** · 16/04/2013, 12h10

chuspyto,

Je dois partir mais peux tu m'envoyer une copie de ta base ou à défaut un screenshot car j'ai du mal à comprendre les cas d'utilisation !

Positionnes bien avant tes cases et dis moi ce que tu souhaites avoir en sortie pour chacune des cases !

Je regarderai çà en fin d'AM

Merci

JimBoLion

**chuspyto** · 18/04/2013, 18h11

je te joint un extrait du code

ce que j'aimerai c'est que cette partie du code soit fixe avec le nom de la table qui prend le nom en fonction des cases a cocher

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Form!("WindowsMediaPlayer" & i).Visible = True
Form!("WindowsMediaPlayer" & i).Height = 1100
Form!("WindowsMediaPlayer" & i).Width = 1300
Form!("WindowsMediaPlayer" & i).BorderColor = RGB(0, 0, 0)
res = Nz(DLookup("Video", "Table_1", "[ID] = " & i))
Set Xwmp = Form!("WindowsMediaPlayer" & i).newMedia(res)
Form!("WindowsMediaPlayer" & i).currentPlaylist.insertItem 0, Xwmp
Form!("WindowsMediaPlayer" & i).Object.Controls.play
Form!("WindowsMediaPlayer" & i).Object.Controls.pause
Form!("WindowsMediaPlayer" & i).Visible = False
Form!("Étiquette" & i).Caption = ""
etiq = Nz(DLookup("Etiquettes", "Table_1a", "[IDChemin] = " & i))
Form!("Étiquette" & i).Caption = etiq
Next i

**jimbolion** · 20/04/2013, 09h10

chuspyto bonjour,

Dans l'exemple suivant, et pour répondre à ta question initiale, j'ai adapté ton code afin d'utiliser le select case (plus facile à lire que les if imbriqués).
D'autre part je constate qu'en fonction de chaque cas, une grande partie du code est réutilisable, il faut donc déporter tout çà dans une fonction en spécifiant des arguments (cas, boucle).... Du fait, si tu dois modifier ton code, tu ne le fais qu'à un seul endroit.

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Option Compare Database
Private Sub traitement()
Dim i As Integer
Dim j As Integer
' suite des declarations
 
Select Case Me.cadre1.Value
Case 2
    Select Case Me.cadre2.Value
    Case 3
        Select Case Me.cadre3.Value
        Case 3
            Table = "Table_1"
            X = Traitement_Fctn(1, 40)
        Case 7
            Table = "Table_2"
            X = Traitement_Fctn(2, 19)
        End Select
    End Select
 
Case 3
 
    Select Case Me.cadre2.Value
    Case 3
        Select Case Me.cadre3.Value
        Case 3
            Table = "3"
            X = Traitement_Fctn(3, 25)
        End Select
    End Select
 
End Select
End Sub
Function Traitement_Fctn(Cas, boucle)
'
For i = 1 To boucle
'
'
' traitement
Next
 
End Function

JimBoLion

**chuspyto** · 20/04/2013, 18h18

merci ,peux tu me dire si je dois declarer X?
de plus au niveau de ma fonction de traitement ma table1 n'est pas reconu ,elle est vide.

Code :

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

res = Nz(DLookup("Video", table, "[ID] = " & i))

**jimbolion** · 21/04/2013, 07h41

chuspyto,

X est un exemple mais tu dois déclarer X en effet

dim x as boolean si tu souhaites que ta fonction retourne un booleen (sinon mettre dim X as Variant)

Pour ton deuxième problème que te renvoie la variable i et la variable table ?

La question à se poser est :

est ce que dans la table x (variable table) j'ai un enregistrement dont [ID] = i (valeur de la variable) et qui me retournerait le contenu du champ Video. Une fois que tu as récupéré ces valeurs, une lecture de ta table devrait te permettre de voir si les conditions sont réunies.

JimBoLion

Table qui prend le nom en fonction des cases à cocher [AC-2003]

VBA Access

Discussions similaires

Partager

Partager