[excel] probleme de résultat de date avec sql en vba

Bonjour

Alors j'ai un fichier.fic qui a pour nom "SALZONLI" et plusieurs colonne dont "valdate" qui est en format date jj/mm/aaaa lorsque qu'il n'y a pas de date le format est vide sinon une date quelconque. Si je vais chercher une ligne de date qui est vide, il n'y a rien dans SZ("Valdate") et l'execution s'arret et me revoye a ma cellule #valeur.

Code:

---

1 2 3 4 5 6 7 8

Liste = " SELECT valdate FROM SALZONLI WHERE Etcode = '" & vNumEtab & "' AND Rucode = '" & vNumZone & "' AND Sacode = '" & vNumSalarDeb & "'" SZ.Open Liste, ConnWinpaie, adOpenStatic, adLockReadOnly If Not SZ.EOF Then vResult = SZ("Valdate") Else vResult = Null End If

---

J'aimerai qu'il revoye null et qu'il continu la suite du code?
Comment je peux faire???

Cordialement Law56100

salut,
regarde la fonction Nz() qui gère cet aspect null des variables ;)

Mon problème est que ma colonne n'est null mais vide. par exemple si je consulte une case vide, cela plante ma fonction au niveau de ZS("datevale").

Bonjour

Il serait intéressant que tu détailles ce que tu comptes faire après (montre le code qui suit), car j'ai l'impression que tu ne dis pas tout et que tu t'y prends mal.

voici mon code

Code:

---

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

If Defaut = False Then Set SZ = New ADODB.Recordset If vNumSalarDeb = vNumSalarFin Then Liste = " SELECT Etcode,Sacode,Rucode,Valtexte,valmonet,valdate FROM SALZONLI WHERE Etcode = '" & vNumEtab & "' AND Rucode = '" & vNumZone & "' AND Sacode = '" & vNumSalarDeb & "'" SZ.Open Liste, ConnWinpaie, adOpenStatic, adLockReadOnly If Not SZ.EOF Then Select Case vTypeZone Case 1, 51, 4, 54 ' Texte & dico vResult = Trim(SZ("Valtexte")) Case 2, 52 ' Monétaire vResult = SZ("Valmonet") 'MonetWindevVB(SZ("Valmonet")) Case 3, 53 ' Date vResult = SZ("Valdate") 'ConvDateWindevVBA2(SZ("Valdate")) End Select Else vResult = CVErr(xlErrValue) End If SZ.Close Set SZ = Nothing Else Select Case vTypeZone Case 2, 52 Liste = " SELECT SUM(Valmonet) AS ValeurTotal FROM SALZONLI WHERE Etcode = '" & vNumEtab & "' AND Rucode = '" & vNumZone & "' AND Sacode BETWEEN '" + vNumSalarDeb + "' AND '" & vNumSalarFin & "'" SZ.Open Liste, ConnWinpaie, adOpenStatic, adLockReadOnly If Not SZ.EOF Then vResult = SZ("ValeurTotal") Else vResult = CVErr(xlErrValue) End If SZ.Close Set SZ = Nothing Case Else vResult = CVErr(xlErrValue) End Select End If End If 'Application.Cursor = xlDefault 'Application.ScreenUpdating = True PZoneLibreSalarie = vResult End Function

---

la partie Case 1, 51, 4, 54 renvoye une chaine de carractère.
la partie Case 2, 52 renvoyer un nombre.
la partie Case 3, 53 renvoye une date.

mon fichier .fic a ete créé à l'aide de windev sauf que sur ce proget la colonne date est vide et renvoye rien a SZ("Valdate") lorsque la souris survole SZ("Valdate") car dans un autre projet windev le fichier .fic colonne date renvoye null a SZ("Valdate") lorsque la souris survole SZ("Valdate"), elle affiche SZ("Valdate") = Null

je ne sais pas si je suis plus claire ou pas.

1. Si ton champ ValDate est un champ de type date, il ne peut pas être vide. Il ne peut être que null ou contenir une valeur de date. Si ton champ ValDate est un champ texte, il peut éventuellement contenir une chaine vide ("").

2. Ton code ne montre pas comment tu as dimensionné ta variable VResult. Elle ne pourra "contenir" NULL que si elle est de type VARIANT.

3. As-tu compilé ton code? (menu Débogage/Compiler). Si la souris ne donne rien comme infobulle, c'est peut-être que tu as une erreur de compilation quelque par.

4. As-tu fait fonctionner ton code? Si oui, quel est le résultat? As-tu un message d'erreur? Lequel?

1) Le fichier .fic a été créé par windev grâce a l’analyse de windev suaf qu’a l’époque c’étais sous windev5.5 et maintenant windev11 il y a une option null supporté c'est-à-dire que la colonne vide a pour valeur null. J’ai essayé sur un autre fichier identique mais avec cette option et la fonction SQl me renvoye null.
2) Alors Vresult est un variant et je retourne un varaint

Code:

---

1 2 3 4

Public Function PZoneLibreSalarie(CodeZone As String, Optional CodeEtablissement As String = "", Optional CodeSalarieDebut As String = "", Optional CodeSalarieFin As String = "") As Variant ' Application.Volatile vRaff Dim vResult As Variant

---

3) J’ai compilé, il n’y a pas d’erreur de programmation, le code fonctionne.
4) il me renvoie un #valeur
5) explication
Voici ma table :
Etcode|Sacode|Rucode|Valtexte|valmonet|valdate |
01 |001 | CARO | abc | 100 |01/01/2009|
02 |001 | CARO | abc | 100 | |

Selon etcode, sacode et rucode et si autrevaraible =1 alors Vresult= Valtexte
Selon etcode, sacode et rucode et si autrevaraible =2 alors Vresult= valmonet
Selon etcode, sacode et rucode et si autrevaraible =3 alors Vresult= valdate
Dans pour la première ligne j’ai bien vResult=01/01/2009
Et pour la première ligne j’ai un #valeur car il n’y a pas de valeur. Et dans l’autre fichier j’ai null

Je suppose que la valeur renvoyée par la fonction est utilisée dans un contrôle. Ce contrôle est-il lié à un champ d'une table? Si oui, ce champ est-il de type date? Si oui, tu ne peux y renvoyer une chaine vide.

Il faudrait donc, en pas à pas, aller jusqu'à la ligne

Code:

---

vResult = SZ("Valdate")

---

l'exécuter, puis regarder le type de la variable vResult (via les valeurs espions). S'il est de type string, il faut en tirer les conclusions et adapter la valeur de cette variable pour qu'elle soit du type souhaité.

j'ai testé plusieurs foi en pas à pas et voici le résultat

expression---------valeur-----------type

vResult-------------vide-------Variant/empty
ZS("Valdate")-------------------objet/field

et sur mon autre projet

vResult-------------vide-------Variant/empty
ZS("Valdate")-------Null---------objet/field