Discussion :

[magictom42]

Bonjour, j'ai un problème avec les structures si. J'aimerai lors de l'enregistrement du formulaire dans ma table, mettre des champs obligatoires (içi sur la date). Si ces champs sont rempli les données s'enregistrent dans ma table Saisie. Or j'ai un bug, cela ne fonctionne pas. Merci de m'aider.

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
 
 
If dateText = "" Then MsgBox ("erreur")
 
ElseIf Not Me.newcause = "" Then
'ajout de la cause dans la table Causes
Set f = db.OpenRecordset("Causes")
f.AddNew
f.Fields("nomcause") = Me.newcause
f.Update
'enregistrement de toute la saisie dans la table Saisie
Set t = db.OpenRecordset("Saisie")
't.Edit
t.AddNew
t.Fields("date") = Me.date
t.Fields("date2") = Me.date2
t.Fields("ligne") = Me.ligne
t.Fields("machine") = Me.nummachine
t.Fields("heuredebut") = Me.hdebut
t.Fields("heurefin") = Me.hfin
t.Fields("dureearret") = Me.duree
t.Fields("technicien n°1") = Me.technicien1
t.Fields("technicien n°2") = Me.technicien2
t.Fields("etat") = Me.etat
t.Fields("arret") = Me.arret
t.Fields("objet") = Me.objet
t.Fields("causes") = Me.newcause
t.Fields("description1") = Me.description1
t.Fields("description2") = Me.description2
t.Fields("commentaires") = Me.commentaires
t.Fields("piecedetachee1") = Me.piece_utilisee1
t.Fields("qtepiece1") = Me.qtepiece1
t.Fields("piecedetachee2") = Me.piece_utilisee2
t.Fields("qtepiece2") = Me.qtepiece2
t.Update
End If
ElseIf Me.newcause = "" Then
 
Set t = db.OpenRecordset("Saisie")
't.Edit
t.AddNew
t.Fields("date") = Me.date
t.Fields("date2") = Me.date2
t.Fields("ligne") = Me.ligne
t.Fields("machine") = Me.nummachine
t.Fields("heuredebut") = Me.hdebut
t.Fields("heurefin") = Me.hfin
t.Fields("dureearret") = Me.duree
t.Fields("technicien n°1") = Me.technicien1
t.Fields("technicien n°2") = Me.technicien2
t.Fields("etat") = Me.etat
t.Fields("objet") = Me.objet
t.Fields("causes") = Me.cause
t.Fields("description1") = Me.description1
t.Fields("description2") = Me.description2
t.Fields("commentaires") = Me.commentaires
t.Fields("piecedetachee1") = Me.piece_utilisee1
t.Fields("qtepiece1") = Me.qtepiece1
t.Fields("piecedetachee2") = Me.piece_utilisee2
t.Fields("qtepiece2") = Me.qtepiece2
t.Update
End If
End If

[Dolphy35]

Salut,

If s'utilise de cette façon :

Code :

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

If [test] Then [Code à éxécuter]

ou de cette façon :

Code :

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

1
2
3
If [test] Then
[Code à éxécuter]
End If

autre façon :

Code :

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

1
2
3
4
5
If [test] Then
    [Code à éxécuter si test est vrai]
Else
    [Code à éxécuter si test est faux]
End If

autre façon :

Code :

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

1
2
3
4
5
If [test] Then
    [Code à éxécuter si test est vrai]
ElseIf [test2] Then
    [Code à éxécuter si test est faux mais test2 est vrai]
End If

autre :

Code :

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

1
2
3
4
5
6
7
If [test] Then
    [Code à éxécuter si test est vrai]
ElseIf [test2] Then
    [Code à éxécuter si test est faux mais test2 est vrai]
Else
    [Code à éxécuter si test et test2 est faux]
End If

[Maxence HUBICHE]

et puis, tu fais des tests sur des champs d'une base de données.
Dans une base de données, un champ non défini est mis à NULL et non à ""

NULL et "" n'ont pas le même sens !
NULL = Je ne sais pas
"" = Je sais qu'il n'y a pas (au même titre qu'un 0 pour les nombres d'ailleurs)

Donc (ne sachant pas comment est configuré ta base) tes champs peuvent avoir, au pire, trois valeurs :

une valeur quelconque
""
NULL (mêm si NULL n'est pas à proprement parler une valeur :s)

Tu peux réduire les possibilités en utilisant la fonction Access NZ
syntaxe :

Code :

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

NZ(NullPossible, Remplacerpar)

Donc, pour replacer un NULL par un "", ca donnerait tout simplement

Code :

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

NZ(NULL,"")

Mais bon, l'intérêt n'est de remplacer le NULL que lorsqu'il y en a un.
Et il est possible qu'il y en ait un dans tes champs.

Donc,

Code :

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

NZ(TonChamp, "")

remplacera un NULL dans un champ par un ""

Ce qui fait que ce test :

Code :

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

1
2
3
4
5
 
 
If NZ(TonChamp, "") ="" Then
    ...
    ...

attrapera les cas NULL
Alors que ton test actuel

Code :

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

1
2
3
4
5
 
 
If Tonchamp ="" Then
    ...
    ...

ne les attrape pas !