Erreur de codeRésolu

Question

Bonjour

je developpe sous access et vba. J'ai un code, mais il doit y avoir une erreur.
Quand je clique sur le bouton rechercher, le code suivant s'execute : 

    Dim sql As String
    Dim cWhere As Boolean
   
    cWhere = False
    sql = "select * from ACTION"
    MsgBox Me!cDateDeb
    MsgBox Me!cDateFin
        If Me!cDateDeb And cWhere Then            sql sql & " and ACTION.Act_Date_Deb " & Me!tDateDeb
        Else
            If Me!cDateDeb Then                   sql sql & " where ACTION.Act_Date_Deb " & Me!tDateDeb
                   cWhere = True
            End If
        End If
        If Me!cDateFin And cWhere Then            sql sql & " and ACTION.Act_Date_Fin " & Me!tDateFin
        Else
        MsgBox "bou"
            If Me!cDateFin Then
            MsgBox "re-bou"                sql sql & " where ACTION.Act_Date_Fin " & Me!tDateFin
                cWhere = True
            End If
        End If
           
    MsgBox lEtat
    MsgBox sql

Lors de l'execution, j'ai le probl&#232;me suivant : une fenetre s'ouvre ayant pour titre "Microsoft office access" et pour message : "Utilisation incorrect de Null".

Comme vous le voyer j'ai "pister" mon programme. Le message "bou", s'affiche, puis c'est l'erreur (pas de re-bou !).

Petite precisison : j'essaye de faire un moteur de recherche pour ma base de donn&#233;es, qui cr&#233;&#233; une requete dynamiquement.
 Toute les zone de saisie des crit&#232;res sont d&#233;sactiv&#233;. Si je coche la case, j'active la zone de saisie, puis je saisie mon crit&#232;re. Enfin je clique sur rechercher. Toute les variables commencant par c sont des case &#224; cocher (sauf cWhere qui me sert a savoir si c'est le premier crit&#232;re), les variable commencant par l sont des liste de choix et enfin celle par t sont des zone de texte. 

Voil&#224; si quelqu'un peut m'aider, ca serait cool
Merci d'avance .

cs_tenthor · Accepted Answer

J'ai trouver l'erreu. D&#233;sol&#233; pour le d&#233;rrangement. 

Pour info, il faut mettre pour les case &#224; cocher : 
    If Me!cDateDeb= True And cWhere Then ....

il faut obligatoirement mettre "= true"
je suppose que c'est pas consid&#233;r&#233; tout &#224; fait comme un booleen

Erreur de code

1 réponse

Discussions similaires