Discussion :

[vador972]

Bonjour @ tous,
Je me pose la question suivante, peut-être quelqu'un d'entre vous en a déjà la réponse :

Disons que dans un formulaire j'ai deux zones de texte : 'Champ1' et 'Champ2'.

Soit le code :

Code :

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

1
2
3
4
 
Dim Test as String
 
Test= Champ1.Name & "=" & Champ2.Name

Je souhaiterais que le contenu de ma variable 'Test' Soit interprétée dans une conditionnelle. ex :

Code :

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

1
2
3
4
5
6
 
If Test then
   Msgbox "Egal"
Else
   Msgbox "Pas égal"
End If

Me suis-je bien expliqué et est-ce possible ? Merci de votre contribution.

[Moha25fr]

salut

regarde ça

Code :

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

1
2
3
4
5
 if me.champ1=me.champ2 then
     Msgbox "Egal"
Else
   Msgbox "Pas égal"
End If

A+

[vador972]

Salut,
Non ce serait trop facile ...

En fait le choix de ma conditionnelle n'est pas figé...
Pour exemple ayez en tête la recherche multicritère de Caféïne. Une variable récupère la string du recordset en fonction des critères de selection. La ce serait la même chose sauf qu'au final j'utiliserai cette variable pour définir les critères de ma conditionnelle.

Merci d'avance.

[random]

te fatigue surtout pas à ce jeu
champ1.name renvoie "champ1"
champ2.name renvoie "champ2"

Test= Champ1.Name & "=" & Champ2.Name va donc renvoyer

"champ1=champ2"

ce qui est bien du texte

if test va donner des résultats curieux...


if champ1=champ2 then devrait suffire
si tu as besoin de conserver test
cela devient test=champ1=champ2
if test then

[Moha25fr]

tu peux donner un exemple stp

A+

[vador972]

Random,
En effet 'if' renverra un booléen. Mais sachant que dans d'autre langages on peut considérer le contenu de la variable, je me demandais si cela était faisable sur vba.

[vador972]

Messieurs,
Voici mon code :

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
 
Private Sub CmdChk_Click()
    On Error GoTo CmdChk_Err
 
    Dim MyRec As Recordset
    Dim MyRecV As Recordset
    Dim MyRec2 As Recordset
 
 
 
    Set MyRec = CurrentDb.OpenRecordset("SELECT * FROM EXEMPLAIRET;")
    If MyRec.RecordCount > 0 Then
        MyRec.MoveFirst
        While Not MyRec.EOF
            MyRec.Delete
            MyRec.MoveNext
        Wend
    End If
 
    Set MyRec = CurrentDb.OpenRecordset("SELECT * FROM EXEMPLAIRE;")
    Set MyRecV = CurrentDb.OpenRecordset("SELECT * FROM EXEMPLAIRE2;")
    Set MyRec2 = CurrentDb.OpenRecordset("SELECT * FROM EXEMPLAIRET;")
 
    MyRecV.MoveFirst
    MyRec.MoveFirst
    MyRec.MoveNext
 
    While Not MyRec.EOF
        If MyRec.Fields(3) = MyRecV.Fields(3) And MyRec.Fields(13) <> MyRecV.Fields(13) Then
            'MyRecV.Fields(3) And MyRec.Fields(2) = MyRecV.Fields(2) And MyRec.Fields(4) = MyRecV.Fields(4) And MyRec.Fields(5) = MyRecV.Fields(5) And MyRec.Fields(6) = MyRecV.Fields(6) And MyRec.Fields(7) = MyRecV.Fields(7) And MyRec.Fields(8) = MyRecV.Fields(8) And MyRec.Fields(9) = MyRecV.Fields(9) And MyRec.Fields(14) <> MyRecV.Fields(14) Then
            With MyRec2
                .AddNew
                .Fields(1) = MyRec.Fields(1)
                .Fields(2) = MyRec.Fields(2)
                .Fields(3) = MyRec.Fields(3)
                .Fields(4) = MyRec.Fields(4)
                .Fields(5) = MyRec.Fields(5)
                .Fields(6) = MyRec.Fields(6)
                .Fields(7) = MyRec.Fields(7)
                .Fields(8) = MyRec.Fields(8)
                .Fields(9) = MyRec.Fields(9)
                .Fields(10) = MyRec.Fields(10)
                .Fields(11) = MyRec.Fields(11)
                .Fields(12) = MyRec.Fields(12)
                .Fields(13) = MyRec.Fields(13)
                .Fields(14) = MyRec.Fields(14)
                .Fields(15) = MyRec.Fields(15)
                .Fields(16) = MyRec.Fields(16)
                .Fields(17) = MyRec.Fields(17)
                .Update
            End With
        End If
 
        MyRecV.MoveNext
        MyRec.MoveNext
    Wend
    MyRec.Close
    MyRecV.Close
 
 
    Exit Sub
CmdChk_Err:
    Select Case Err.Number
 
        Case Else
            MsgBox Err.Number & " : " & Err.Description
    End Select

Explications :
1) J'ai deux tables doublons : EXEMPLAIRE et EXEMPLAIRE2.
Au départ je me place sur la deuxième ligne de EXEMPLAIRE et la première de EXEMPLAIRE2
je fais une recherce pour chaque ligne de EXEMPLAIRE par rapport à la ligne précédente (donc celle de EXEMPLAIRE2) selon les critères défini lors de la clause 'if'.
Seulement, si je veux changer ces critères je dois à chaque fois modifier directement le code.

Avec un formulaire contenu des cases à cocher représentant les colones de ma table EXEMPLAIRE je peut stocher dans une variable (En l'ocurrence 'Test') les critères de ma conditionnelle; du genre :

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
 
if me.nomdelacheckbox1.selected then
   test=test & "myrec.fields(1)=myrec2.fields(1)"
end if
 
if me.nomdelachekbox2.selected then
   test=test & "myrec.fields(2)=myrec2.fields(2)
end if
....
....
if me.nomdelachekboxN.selected then
   test=test & " and myrec.fields(N)=myrec2.fields(N)
end if
 
if Test then 'c-a-d  if myrec.fields(2)=myrec2.fields(2) ... and myrec.fields(n)=myrec2.fields(n) then
   ...
   ...
end if