Discussion :

[maxeur]

Bojour à tous

j'aurais juste besoin d'une confirmation

Est ce que dans une table si le champs date est nul cela correspond au format 00/00/0000 (enfin au format définit)

ou bien alors je teste NULL

car j'ai lu un tuto mais je ne sai pas trop si c'est un champ d'une table ou d'un formulaire dont il est question

[Lou Pitchoun]

Salut,

Le champs date est vide simplement. Il ne peut pas être égal à 00/00/0000 : la date n'existe pas.
Tu testes donc la valeur null.

[maxeur]

je te remercie juste une petite précision si ca ne te dérange pas

il faut donc que je teste date<>"NULL"

[argyronet]

Bonjour,

Code :

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

1
2
3
4
5
If Not IsNull(Me!DateAVerifier) Then
    If IsDate(Me!DateAVerifier) Then
    '....
    End If
End If

sera plus efficace et sans erreur Access

Argy

[maxeur]

je suis désolé mais j'ai du mal à comprendre ton code
car en fait le test que je fait est par rapport à ma base de données et non pas à un formulaire
je ne comprend pas à quoi sert la deuxieme ligne surtout

je te remercie tout de meme pour cette information

[loufab]

Bonjour,

Pour tester des données il faut le faire suivant un point d'entrée.

- formulaire (VBA ou interface)
- état (VBA ou interface)
- requête

Pour le formulaire et l'état la solution a été donnée par Argyronet (bien le bonjour argy et tous mes voeux).

Pour la requête tu peux toujours créer un nouvelle colonne pour la vérification.

Code :

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

maverif:iif(isnull([monchampdate]);"c'est la valeur Null";[Monchampdate])

ou monchampdate est le nom du champ date présent dans la requête.

Edit : ce cas ne prend pas en compte les valeurs d'un autre type de DATE. Normalement un champ date est forcement une date ou null.

[maxeur]

En fait la requête est déja faite est je viens de m'apercevoir qu'une autre vérification est déjà faite finalement
Je suis désolé mais je viens juste d'arriver sur un projet déjà commencé je dois faire de la modif de code et j'ai un peu de mal avec access
La vérification est que je compare ma valeur de ma table que j'ai déjà sélectionnée avec une requete avec la valeur que je dois insérerer et si elle est différente je l'insère normalement.
C'est du code qui était déjà écrit et en fait du coup je pense que je n'ai pas besoin de refaire un test
Je sais que la requete de sélection de ma valeur dans ma table fonctionne mais le code qui est déjà présent ne me fait aucune erreur mais ne met pas à jour la table

je vous montre le code ce sera plus explicite

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
If StrComp(a(5), Milestone_rs("Original Estimate Start Date"), 1) <> 0 Then
                    Print #2, "WARNING : Pour le Milestone: '" & a(0) & "-" & a(1) & "-"; a(2) & "' la 'Original Estimate Start Date' est passé de la date " & Milestone_rs("Original Estimate Start Date") & " à " & a(5) & "."
                    Milestone_rs("Original Estimate Start Date") = a(5)
                    If test2 <> 6 Then
                        test1 = MsgBox("La date d'origine de '" & a(2) & "' a changé. Voulez-vous appliquer le changement à la date Excepted ?", vbYesNo)
                        '  si test1 renvoit 6 : OUI
                        If test1 = 6 Then
                            test2 = MsgBox("Voulez-vous appliquer cette règle à toutes les tâches modifiées ?", vbYesNo)
                            Milestone_rs("Expected or Actual Start date") = a(5)
                            Print #2, "WARNING : Pour ce milestone la date Excepted a également été mise à jour."
                        Else
                            Print #2, "WARNING : Pour ce milestone la date Excepted n'a pas été mise à jour (choix utilisateur)."
                        End If
                    ElseIf test2 = 6 Then
                        Milestone_rs("Expected or Actual Start date") = a(5)
                        Print #2, "WARNING : Pour ce milestone la date Excepted a également été mise à jour."
                    End If
 
                End If

Si vous pourriez regarder le code vite fait car je vois pas où ça plante la valeur a(5) est correcte aussi vu que je l'utilise autre part

je vous remercie grandement

PS je sui désolé mais en raison de coupure interne du réseau de l'entreprise je n'ai pu vous répondre avant

Je viens de rajouter la ligne

Code :

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

1
2
3
if not isnull Madate then
...
else

et cela me renvoit comme erreur imcompatibilté de type

et en fait je sais que ca vient de cette ligne à l'aide des message box
en fait tous mes test avec les date ne fonctionnent pas

J'arrive petit à petit par progresser mais la j'ai un peu de mal

en fait je crois avoir compris

Code :

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

Milestone_rs("Expected or Actual Start date")

est une requete sur ma table mais en fait ma valeur est nulle et je ne peux pas faire une requete sur une valeur nulle

comment puis je faire je sais qu'il faut utiliser nz mais je ne sais trop comment