Discussion :

[Florentin]

Un problème avec Access.

En fait j'ai une table dans laquelle se trouve un champ nommé EXECUTION.
Au cours des traitements, ce champ est renseigné de la manière suivantes:

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
Private Sub ETAT_EXEC_AfterUpdate()
  [EXECUTION] = [ETAT_EXEC].Column(1)
 
        If [ETAT_EXEC].Value = "ANNULE" Then                        'Si le champ est égal à Annule, alors un message s'affiche avec oui ou non
            titre = "Travaux Annulés"                               'Titre du message
            Style = vbOKCancel + vbInformation + vbDefaultButton2   'Type de message
            Msg = "Vouslez-vous Annuler ce travail?"                'Contenu du message
            Reponse = MsgBox(Msg, Style, titre)
            If Reponse = vbOK Then                                  'Si la réponse est oui, alors exécute la fonction Annule sinon efface le contenu
                Annule
            ElseIf Reponse = vbCancel Then
                Me.ETAT_EXEC = ""                                    'Le contenu du champ ETAT_EXEC;
            End If
 
        ElseIf [ETAT_EXEC].Value = "REPORTE" Then
            titre = "Travaux Reportés"
            Style = vbOKCancel + vbInformation + vbDefaultButton2
            Msg = "Vouslez-vous Reporter ce travail?"
            Reponse = MsgBox(Msg, Style, titre)
            If Reponse = vbOK Then
                REPORTE
             ElseIf Reponse = vbCancel Then
                Me.ETAT_EXEC = ""
            End If
 
        ElseIf [ETAT_EXEC].Value = "REALISE" Then
            titre = "Travaux Réalisés"
            Style = vbOKCancel + vbInformation + vbDefaultButton2
            Msg = "Vouslez-vous Confirmer la réalisation de ce travail?"
            Reponse = MsgBox(Msg, Style, titre)
 
            If Reponse = vbOK Then
                MsgBox "Saisir la date et heure début réalisation", vbInformation
                [HEURE_DEBUT].Enabled = True
                [HEURE_FIN].Enabled = True
                Me.HEURE_DEBUT.SetFocus
            ElseIf Reponse = vbCancel Then
                Me.ETAT_EXEC = ""
            End If
 
        End If
 
 
End Sub

Ce champ est renseigné par ANNULE ou REPORTE ou REALISE.

Mais lorsque le champ est renseigné par REPORTE, l'enregistrement est transféré dans une autre table, ensuite le champ est effacé et une autre date est donnée dans les champs: DATE_HEURE_DEBUT et DATE_HEURE_FIN.
de Même losrque c'est ANNULE l'enregistrement est simple transféré dans la même table que REPORTE et supprimé dans la table principale.

Problème:
Lorsque qu'on fait une requête en mettant dans le champ EXECUTION la fonction
Est Null
pour extraire toutes les lignes vides, il envoie les lignes qui n'ont jamais subi de modification.

Ainsi, les lignes où il y a eu REPORTE ensuite effacé par la commande "", il les considère comme non vide.
Alors quelle commande utilisée pour effacer le champ totalement?

[mcfly37]

Bonjour

Si tu remplace tes valeurs par "" alors ton champs n'est pas null mais contient la valeur "" (qui est nulle on est d'accord mais malheureuseument access ne fontionne pas comme ca^^ pour access un champ à la valeur Null s'il n'a pas été initialisé ce qui n'est pas ton cas ici)

La solution est donc de remplacer ton test IsNull(Valeur) par Valeur = "" (ou encore mieux : Nz(Valeur,"") = "" qui te permettra de prendre à la fois les Null et les "")

Cordialement

Mcfly

[Florentin]

En fait je ne remplace pas le champ par la valeur "".

Le champ est renseigné d'abord par les valeurs suivantes:
- REPORTE ou
- ANNULE ou REALISE
- ou rien du tout

Ces deux valeurs selon les cas sont effacées selon les conditions par "".

Le problème est lequel!

lorsque le champ est effacé par "", et que je fait une requête dans ce champ pour extraire tout ce qui est null (IsNull ou Est Null), il considère les champs effacés par "" comme n'étant par null. Il m'extrait seulement dans ce champ les enregistrements qui n'ont pas subi de modifications.

Alors problème.

Moi je veux pouvoir effacer les valeurs qui se trouvent dans ce champ et pourvoir extraire à partir de ce champ toutes les valeurs null y compris ceux qui ont été modifiés et effacés par "" ou une autre formule pour faire un autre traitement .

C'est donc là ma proccupation.

[Pierre Fauconnier]

Bonsoir

As-tu essayé la solution de mcfly37?

Ce serait déjà un bon départ de tester ce qui est proposé...

[Florentin]

J'ai fait le test en remplaçant Est Null par "". En exécutant la requête le résultat n'est pas bon.