Variable Facultative vb6

Version imprimable

slt a tous
quel qu’un peut me dire pourquoi ce code n'enregistre rien ? il marche parfaitement sans les conditions if ismissing.
je doit faire une enregistrement de 2 tables avec une seul fonction mais 2 forme différente

Code:

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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
'Class Module
Option Explicit
 
Private db As Database
 
Private v_champ1 As Variant
Private v_champ2 As Variant
Private v_champ3 As Variant
Private v_champ4 As Variant
Private v_champ5 As Variant
Private v_champ6 As Variant
Private v_table As Variant
 
Public Property Get champ1() As Variant
champ1 = v_champ1
End Property
Public Property Let champ1(a As Variant)
v_champ1 = a
End Property
 
Public Property Get champ2() As Variant
champ2 = v_champ2
End Property
Public Property Let champ2(b As Variant)
v_champ2 = b
End Property
 
Public Property Get champ3() As Variant
champ3 = v_champ3
End Property
Public Property Let champ3(c As Variant)
v_champ3 = c
End Property
 
Public Property Get champ4() As Variant
champ4 = v_champ1
End Property
Public Property Let champ4(d As Variant)
v_champ4 = d
End Property
 
Public Property Get champ5() As Variant
champ5 = v_champ5
End Property
Public Property Let champ5(e As Variant)
v_champ5 = e
End Property
 
Public Property Get champ6() As Variant
champ6 = v_champ6
End Property
Public Property Let champ6(F As Variant)
v_champ6 = F
End Property
 
Public Property Get table() As Variant
table = v_table
End Property
Public Property Let table(g As Variant)
v_table = g
End Property
 
Public Sub insertion(champ1 As Variant, Optional champ2 As Variant, Optional champ3 As Variant, Optional champ4 As Variant, Optional champ5 As Variant, Optional champ6 As Variant)
Dim m As String
m = MsgBox("voulez-vous enregistrer?", vbYesNo + vbQuestion, "Enregistrer")
    If m = vbYes Then
        If IsMissing(champ5) And IsMissing(champ6) Then
            db.Execute "INSERT INTO " & v_table & " VALUES ('" & champ1 & "','" & champ2 & "','" & champ3 & "','" & champ4 & "')"
        Else
        If IsMissing(champ3) And IsMissing(champ4) And IsMissing(champ5) And IsMissing(champ6) Then
            db.Execute "INSERT INTO " & v_table & " VALUES ('" & champ1 & "','" & champ2 & "')"
        End If
    End If
End If
End Sub
 
 
Private Sub Class_Initialize()
Set db = OpenDatabase("E:\Logiciel\DTS\VB6\Access\Bon de commande.mdb")
End Sub
 
Private Sub Class_Terminate()
db.Close
End Sub

Code:

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
'Form
Option Explicit
 
Private Sub cmdEnregistrer_Click()
'On Error Resume Next
Dim x As ProjectDLL.insertion
Set x = New ProjectDLL.insertion
x.Table = "Fournisseur"
 
x.champ1 = "Code FRNS"
x.champ2 = "Nom FRNS"
x.champ3 = "Adresse FRNS"
x.champ4 = "Telephone"
 
x.champ1 = Text1.Text
x.champ2 = Text2.Text
x.champ3 = Text3.Text
x.champ4 = Text4.Text
 
x.insertion(text1.text & text2.text & text3.text & text4.text)
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

12/05/2015, 18h28
ProgElecT

Salut

La condition ismissing ne doit pas être le problème.
Ligne 20, il me semble que x.insertion(text1.text & text2.text & text3.text & text4.text) devrait être x.insertion text1.text, text2.text, text3.text, text4.textTous tes champs sont déclarés Variant, le fait de passer des Text.text tes variants récepteur de la Sub insertion vont être forcement de type String.
Si tu veux passer un type précis, il faut passer à ta sub en typant le contenu de tes textbox.
Exemple de passage d'un chiffre integer dans le Champs1, d'un Boolean dans Champs2, d'un chiffre double dans Champs3 et d'un chiffre long dans Champs4.

Code:

x.insertion Cint(text1.text), CBool(text2.text), CDbl(text3.text), CLng(text4.text)
12/05/2015, 18h32
carterjr

c'est ce que je pense aussi mais il m'affiche cette erreur
Compil error: expected = :(
12/05/2015, 18h46
ProgElecT

J'ai modifié et complété mon premier post.
12/05/2015, 19h03
carterjr

mais ils sont tous de type string. en tout cas merci beaucoup pur tes réponses :D
12/05/2015, 19h08
ProgElecT

Enleve le = après x.insertion

j'ai enlevé les arguments pour ne pas avoir des problème avec les text1,text2,...

si change mon sub par celui là, il marche parfaitement mais pour une table seulement

Code:

1
2
3
4
5
6
7
Public Sub insertion()
Dim m As String
m = MsgBox("voulez-vous enregistrer?", vbYesNo + vbQuestion, "Enregistrer")
If m = vbYes Then
       db.Execute "INSERT INTO " & v_table & " VALUES ('" & champ1 & "','" & champ2 & "','" & champ3 & "','" & champ4 & "')"
End If
End Sub

ou encore celui la mais il ne prend compte que le code après le else

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub insertion()
Dim m As String
m = MsgBox("voulez-vous enregistrer?", vbYesNo + vbQuestion, "Enregistrer")
    If m = vbYes Then
        If IsMissing(champ5) And IsMissing(champ6) Then
            db.Execute "INSERT INTO " & v_table & " VALUES ('" & champ1 & "','" & champ2 & "','" & champ3 & "','" & champ4 & "')"
        Else
            db.Execute "INSERT INTO " & v_table & " VALUES ('" & champ1 & "','" & champ2 & "')"
        End If
    End If
End If
End Sub

12/05/2015, 20h07
ProgElecT

Citation:

Envoyé par MSDN

IsMissing
Renvoie True si un argument optionnel n'a pas été passé

Si tu n'as plus d'argument optionnel dans ta Sub insertion, pourquoi utiliser encore cette condition ?
Ou sont déclarées les variables Champs1 ... 2 .... 3 ..... 4 .... 5 ?
12/05/2015, 20h36
carterjr

tu peut me donner une exemple pour cette argument facultatif stp.

J’espère que l'exemple proposé sera suffisamment claire, 3 CommandButtons sur un Form et ce

Code:

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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
Option Explicit
Dim Msg As String
 
Private Sub Command1_Click()
Msg = "Condition: que le champs1 renseigné" & vbNewLine & vbNewLine
Essais1 "Toujours renseigné"
 
Msg = "Condition: champs1 et champs2 renseignés" & vbNewLine & vbNewLine
Essais1 "Toujours renseigné", "champs2 renseigné"
 
Msg = "Condition: champs1 et champs3 renseignés" & vbNewLine & vbNewLine
Essais1 "Toujours renseigné", , "champs3 renseigné"
 
Msg = "Condition: tous les champs sont renseignés" & vbNewLine & vbNewLine
Essais1 "Toujours renseigné", "champs2 renseigné", "champs3 renseigné"
 
'autre façon d'appeler la sub
Msg = "Condition: tous les champs sont renseignés" & vbNewLine & vbNewLine
Call Essais1("Fin", "de la", "démonstration")
 
End Sub
Private Sub Essais(Champs1 As Variant, Optional Champs2 As Variant, Optional Champs3 As Variant)
If IsMissing(Champs2) And IsMissing(Champs3) Then ' que le champs1 renseigné
    Msg = Msg & "Champs1: " & Champs1
End If
 
If Not IsMissing(Champs2) And IsMissing(Champs3) Then 'champs1 et champs2 renseignés
    Msg = Msg & "Champs1: " & Champs1 & vbNewLine & "Champs2: " & Champs2
End If
 
If IsMissing(Champs2) And Not IsMissing(Champs3) Then 'champs1 et champs3 renseignés
    Msg = Msg & "Champs1: " & Champs1 & vbNewLine & "Champs3: " & Champs3
End If
 
If Not IsMissing(Champs2) And Not IsMissing(Champs3) Then 'tous les champs sont renseignés
    Msg = Msg & "Champs1: " & Champs1 & vbNewLine & "Champs2: " & Champs2 & vbNewLine & "Champs3: " & Champs3
End If
 
MsgBox Msg
End Sub
 
'***********************************************************************************************
 
Private Sub Command2_Click()
Msg = "Condition: que le champs1 renseigné" & vbNewLine & vbNewLine
Essais2 "Toujours renseigné"
 
Msg = "Condition: champs1 et champs2 renseignés" & vbNewLine & vbNewLine
Essais2 "Toujours renseigné", "champs2 renseigné"
 
Msg = "Condition: champs1 et champs3 renseignés" & vbNewLine & vbNewLine
Essais2 "Toujours renseigné", , "champs3 renseigné"
 
Msg = "Condition: tous les champs sont renseignés" & vbNewLine & vbNewLine
Essais2 "Toujours renseigné", "champs2 renseigné", "champs3 renseigné"
 
'autre façon d'appeler la sub
Msg = "Condition: tous les champs sont renseignés" & vbNewLine & vbNewLine
Call Essais2("Fin", "de la", "démonstration")
 
End Sub
Private Sub Essais2(Champs1 As String, Optional Champs2 As String = vbNullString, Optional Champs3 As String = vbNullString)
If Champs2 = vbNullString And Champs3 = vbNullString Then ' que le champs1 renseigné
    Msg = Msg & "Champs1: " & Champs1
End If
 
If Not Champs2 = vbNullString And Champs3 = vbNullString Then 'champs1 et champs2 renseignés
    Msg = Msg & "Champs1: " & Champs1 & vbNewLine & "Champs2: " & Champs2
End If
 
If Champs2 = vbNullString And Not Champs3 = vbNullString Then 'champs1 et champs3 renseignés
    Msg = Msg & "Champs1: " & Champs1 & vbNewLine & "Champs3: " & Champs3
End If
 
If Not Champs2 = vbNullString And Not Champs3 = vbNullString Then 'tous les champs sont renseignés
    Msg = Msg & "Champs1: " & Champs1 & vbNewLine & "Champs2: " & Champs2 & vbNewLine & "Champs3: " & Champs3
End If
 
MsgBox Msg
End Sub
 
'***********************************************************************************************
 
Private Sub Command3_Click()
Msg = "Condition: que le champs1 renseigné" & vbNewLine & vbNewLine
Essais3 "Toujours renseigné"
 
Msg = "Condition: champs1 et champs2 renseignés" & vbNewLine & vbNewLine
Essais3 "Toujours renseigné", "champs2 renseigné"
 
Msg = "Condition: champs1 et champs3 renseignés" & vbNewLine & vbNewLine
Essais3 "Toujours renseigné", , "champs3 renseigné"
 
Msg = "Condition: tous les champs sont renseignés" & vbNewLine & vbNewLine
Essais3 "Toujours renseigné", "champs2 renseigné", "champs3 renseigné"
 
'autre façon d'appeler la sub
Msg = "Condition: tous les champs sont renseignés" & vbNewLine & vbNewLine
Call Essais3("Fin", "de la", "démonstration")
 
End Sub
Private Sub Essais3(Champs1 As String, Optional Champs2 As String = vbNullString, Optional Champs3 As String = vbNullString)
If Champs2 = vbNullString And Champs3 = vbNullString Then ' que le champs1 renseigné
    Msg = Msg & "Champs1: " & Champs1
End If
 
If Champs2 <> vbNullString And Champs3 = vbNullString Then 'champs1 et champs2 renseignés
    Msg = Msg & "Champs1: " & Champs1 & vbNewLine & "Champs2: " & Champs2
End If
 
If Champs2 = vbNullString And Champs3 <> vbNullString Then 'champs1 et champs3 renseignés
    Msg = Msg & "Champs1: " & Champs1 & vbNewLine & "Champs3: " & Champs3
End If
 
If Champs2 <> vbNullString And Champs3 <> vbNullString Then 'tous les champs sont renseignés
    Msg = Msg & "Champs1: " & Champs1 & vbNewLine & "Champs2: " & Champs2 & vbNewLine & "Champs3: " & Champs3
End If
 
MsgBox Msg
End Sub

Comme tu peux le voir il y a déjà au moins 3 façons de faire.
ATTENTION

Citation:

Envoyé par MSDN

IsMissing, fonction

Renvoie une valeur de type Boolean qui indique si un argument facultatif de type Variant a été passé dans une procédure.

Cela s'applique donc que si les arguments optionnels sont déclaré variant dans l’entête de la sub ou fonction.

13/05/2015, 11h42
Bros

Berk des variant partout :?
13/05/2015, 17h43
ProgElecT

Citation:

Envoyé par Bros

Berk des variant partout :?

Citation:

Envoyé par carterjr

mais ils sont tous de type string. en tout cas merci beaucoup pur tes réponses :D

c'est pourquoi les subs Essais2 ou Essais3 sont les plus appropriées.
La sub Essais utilisant des variants n'était proposée que pour démonstration de l'utilisation de la fonction IsMissing.

Bonjour,

Avec VB6i, la fonction IsMissingString a été développée pour palier au fait que IsMissing ne s'adresse qu'à des variant
empêchant un typage fort en String ou l'utilisation de la fonction IsMissing avec un String.

Dans l'exemple initial de ProgElect cela donnerait

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub Essais(Champs1 As String, Optional Champs2 As String, Optional Champs3 As String)
    b1=IsMissingString(Champs1)
    b2=IsMissingString(Champs2)
    b3=IsMissingString(Champs3)
 
    Select case true
        case b1 and b2:           Msg="..."   
        case b1 and not b3:     Msg="..."   
        case b2 and b3 :         Msg="..."   
        case b2:                     Msg="..."   
        case b1 ou b3:            Msg=""    
        case else: ' Aucune occurence trouvée
    end select    
end sub