gerer le null dans une boucle while/wend

Version imprimable

24/03/2011, 22h40
@rkane

gerer le null dans une boucle while/wend

bonsoir à tous
j'ai une boucle while/wend placée dans un module dans laquelle j'aurais besoin de coder la gestion du null, mais je ne sais comment l'ecrire.
En attendant pour pallier cela j'ai utilisé dans le code du formulaire un comptage d'enregistrements assorti d'une requete en cas de DCount < 1.
Je mets en PJ un fichier de test, car pas aussi simple que ça d'expliquer le fonctionnement.
Ill s'agit d'enregistrer les arrets de travail du jour d'une part dans une table dediee d'autre part dans une autre table, concaténés par journee.
Je pense qu'on doit pouvoir simplifier le systeme mais ça je voudrais auparavant solutionner le probleme ci dessus.
25/03/2011, 06h13
Invité

Bonjour

Tu parles de valeurs Nulles ou égales à 0 ?

Pour les valeurs nulles, regardes du coté de la fonction Nz.

Philippe

Sinon, il y a un truc amusant à faire ...
C'est une boucle infinie, à l'intérieure de laquelle tu fais tous les tests nécessaires à la sortie.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Do
    If premièreCondition then
        'actions à faire dans ce cas
        'et sortie de la boucle
        Exit Do
    ElseIf deuxièmeCondition Then
        'actions à faire dans ce cas
        'et sortie de la boucle
        Exit Do
    '[... etc.]
    Else
        'actions à faire si aucune raison de sortir de la boucle
    End If
Loop

voilà j'ai trouvé la combine, je gere le null dans le module au lieu de le gerer dans le code du formulaire ce qui donne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Compare Database
Public Function RegroupMalades(Vacation As Date) As String
Dim res As DAO.Recordset
Dim Sql As String
Sql = "SELECT Malade FROM Malades where vacation = #" & Format(Vacation, "mm/dd/yyyy") & "#;"
Set res = CurrentDb.OpenRecordset(Sql)
If DCount("nom", "Malades", "Vacation = forms!FormSaisie!Vacation") < 1 Then
RegroupMalades = ""
Else
While Not res.EOF
RegroupMalades = RegroupMalades & res.Fields(0).Value & " "
res.MoveNext
Wend
RegroupMalades = Left(RegroupMalades, Len(RegroupMalades) - 1)
End If
'libere la mémoire
Set res = Nothing
End Function

et pour le formulaire :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub AjoutMalade_Click()
Dim Sql As String
If Not IsNull(AdArret) Then
Sql = "INSERT INTO Malades ( Vacation, Malade ) SELECT  forms!FormSaisie!Vacation as expr1, forms!FormSaisie!AdArret as expr2;"
DoCmd.RunSQL Sql
End If
Sql = "UPDATE Rotation SET Rotation.Arrets = RegroupMalades([Vacation]);"
DoCmd.RunSQL Sql
Arrets.Requery
AdArret = ""
End Sub
 
Private Sub SupprimeMalade_Click()
Dim Sql As String
If Not IsNull(AdArret) Then
Sql = "Delete * from Malades where Malade = forms!FormSaisie!AdArret and Vacation = forms!FormSaisie!Vacation;"
DoCmd.RunSQL Sql
End If
Sql = "UPDATE Rotation SET Rotation.Arrets = RegroupMalades([Vacation]) ;"
DoCmd.RunSQL Sql
Arrets.Requery
AdArret = ""
End Sub