Date = null !!!

Question

Bonsoir 


Je souhaite ins&#233;rer dans un champ date de type date (AUTRE_DATE) d'une table Access (TB2) le r&#233;sultat d'un recordset qui s&#233;lectionne des dates (MA_DATE) dans une autre table (TB1)...
Probl&#232;me quand le recordSet rst.Fields("MA_DATE") renvoie Null, je me prend l'erreur suivante sur la ligne db.Execute strSQL :
"Type de donn&#233;es incompatible dans l'expression du crit&#232;re"


Voici mon code :
__________________________________________________________________
Set rst = db.Execute("SELECT MA_DATE FROM TB1")


Do While Not rst.EOF
    
    strSQL = "INSERT INTO TB2(AUTRE_DATE) VALUES("
    strSQL = strSQL & "'#" & rst.Fields("MA_DATE") & "#')"
        
    db.Execute strSQL
        
    rst.MoveNext
            
Loop
__________________________________________________________________


J'ai bien essay&#233; en mettant Nz mais rien n'y fait. Avez vous une id&#233;e ?


Merci

cs_Jack · Answer

Salut
Ton champ TB2 accepte les valeurs nulles (il faut que).
Pour ins&#233;rer une valeur nulle dans un champ, je pense qu'il ne faut pas d'encadrement ' ou #
Donc, il faut que tu testes en VB si le champ est nul :
   If IsNull(rst.Fields("MA_DATE")) Then
      strSQL = strSQL & rst.Fields("MA_DATE")
   Else
      strSQL = strSQL & "'#" & rst.Fields("MA_DATE") & "#')"
   End If

Essaye voir

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)
(je

fg10 · Answer

Do While Not rst.EOF
    
    strSQL = "INSERT INTO TB2(AUTRE_DATE) VALUES("
    strSQL = strSQL & "'#" & rst.Fields("MA_DATE") & "#')"
    if not isnull rst.fields("Ma_date") then       
     db.Execute strSQL
    endif    
    rst.MoveNext
            
Loop

Date = null !!!

2 réponses

Discussions similaires