Discussion :

[Kimaos]

Bonjour le forum,

Voulant obliger le remplissage de tous les champs d’un USF, je n’arrive pas à insérer dans un premier code (code de l’USF) un second code (code d’obligation de saisie des champs), j’ai essayé plusieurs écritures, mais en vain, ça m’avancerait beaucoup si quelqu’un pouvait m’aider à associer ces deux codes :

Premier code (code de l’USF) :

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
Private Sub CMD_OK_Click()
    With USF_Nouvel_Article
        Nom = .TBX_Nom.Text
        Famille = .CBX_Famille.Text
        Code_Fourn = .TBX_CodeF.Text
        Code_Inter = .TBX_CodeI.Text
        Prix_HT = .TBX_PrixHT.Value
        If .OPB_Tva1 = True Then
            Tva = Tva1
        Else
            Tva = Tva2
        End If
        Stock_Mini = .SCB_Stock_Mi.Value
        Stock_Réel = .SCB_Stock_Ini.Value
    End With
    Unload USF_Nouvel_Article
    Remplir_Base_Article
    Retour
End Sub

Deuxième code (code d’obligation de saisie des champs) :

Code :

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

1
2
3
4
5
6
7
If CBX_Famille = "" Then Exit Sub
If CBX_Article = "" Then Exit Sub
If TBX_CodeF = "" Then Exit Sub
If TBX_CodeI = "" Then Exit Sub
If TBX_PrixHT = "" Then Exit Sub
If LBL_Init = 0 Then Exit Sub
If LBL_Mini = 0 Then Exit Sub

Merci, Kim.

[jfontaine]

Bonjour,

Pourquoi ne pas insérer directement le code2 comme cela

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
Private Sub CMD_OK_Click()
 
If CBX_Famille = "" Then Exit Sub
If CBX_Article = "" Then Exit Sub
If TBX_CodeF = "" Then Exit Sub
If TBX_CodeI = "" Then Exit Sub
If TBX_PrixHT = "" Then Exit Sub
If LBL_Init = 0 Then Exit Sub
If LBL_Mini = 0 Then Exit Sub
 
 
    With USF_Nouvel_Article
        Nom = .TBX_Nom.Text
        Famille = .CBX_Famille.Text
        Code_Fourn = .TBX_CodeF.Text
        Code_Inter = .TBX_CodeI.Text
        Prix_HT = .TBX_PrixHT.Value
        If .OPB_Tva1 = True Then
            Tva = Tva1
        Else
            Tva = Tva2
        End If
        Stock_Mini = .SCB_Stock_Mi.Value
        Stock_Réel = .SCB_Stock_Ini.Value
    End With
    Unload USF_Nouvel_Article
    Remplir_Base_Article
    Retour
End Sub

[Kimaos]

Bonjour jfontaine,

J'ai suivi ton conseil, et ça marche

Thanks