Discussion :

[somalien10]

Bonjour je suis actuellement en satge dans une mairie et je dois leur faire une base de donnée. j ai creer un formulaire de recherche multi-critères (comme pour le tutoriel) qui ne marche pas en effet a chaque fois que je coche une case pour effectuer ma recherche access m'affiche "erreur 3464 type de donnée incompatible dans l'expression du critère" et jaimerai savoir comment faire pour resoudre cette erreur : ????????????

[jeck]

Peux-tu insérer ton code, parce que sinon personne ne pourra t'aider

[Tofalu]

Les critères sur les champs de type text sont à encadrés avec '

Exemple

"NomClient='" & ZoneTexteNom & "'"

[somalien10]

Option Compare Database

Private Sub ChkCatégorie_Click()

If Me.ChkCatégorie Then
Me.CmbRechCatégorie.Visible = False
Else
Me.CmbRechCatégorie.Visible = True
End If

RefreshQuery

End Sub

Private Sub ChkDate_Click()

If Me.ChkDate Then
Me.CmbRechDate.Visible = False
Else
Me.CmbRechDate.Visible = True
End If

RefreshQuery


End Sub

Private Sub ChkSujet_Click()

If Me.ChkSujet Then
Me.TxtRechSujet.Visible = False
Else
Me.TxtRechSujet.Visible = True
End If

RefreshQuery

End Sub

Private Sub CmbRechCatégorie_BeforeUpdate(Cancel As Integer)

RefreshQuery

End Sub

Private Sub CmbRechDate_BeforeUpdate(Cancel As Integer)

RefreshQuery

End Sub


Private Sub Form_Load()
Dim ctl As Control

For Each ctl In Me.Controls
Select Case Left(ctl.Name, 3)
Case "Chk"
ctl.Value = -1

Case "lbl"
ctl.Caption = "- * - * -"

Case "Txt"
ctl.Visible = False
ctl.Value = ""

Case "Cmb"
ctl.Visible = False

End Select
Next ctl


Me.lstResults.RowSource = "SELECT [Date-déliberation],[Code-Délibération], Sujet, [Nom Catégorie] FROM DELIBCAT;"

Me.lstResults.Requery

End Sub

Private Sub lblStats_Click()

End Sub

Private Sub lstResults_DblClick(Cancel As Integer)

DoCmd.OpenForm "DELIB1", acNormal, , "[Code-Délibération] = '" & Me.lstResults & "'"

End Sub

Private Sub TxtRechSujet_BeforeUpdate(Cancel As Integer)

RefreshQuery

End Sub



Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWHERE As String

SQL = "SELECT [Date-déliberation], [Code-Délibération], Sujet, [Nom-Catégorie] FROM DELIBCAT WHERE [Code-Délibération] <> '' "

If Me.ChkSujet Then
SQL = SQL & "AND DELIBCAT!Sujet like '" & Me.TxtRechSujet & "' "
End If

If Me.ChkDate Then
SQL = SQL & "AND DELIBCAT![Date-déliberation] = '" & Me.CmbRechDate & "' "
End If

If Me.ChkCatégorie Then
SQL = SQL & "AND DELIBCAT![Nom-Catégorie] = '" & Me.CmbRechCatégorie & "' "
End If

SQLWHERE = Trim(Right(SQL, Len(SQL) - InStr(SQL, "WHERE ") - Len("WHERE ") + 1))
SQL = SQL & ";"

Debug.Print SQL

Me.lblStats.Caption = DCount("*", "DELIBCAT", SQLWHERE) & " / " & DCount("*", "DELIBCAT")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery

[Tofalu]

Merci d'utiliser les balises Code pour mettre en forme tes messages.

Ensuite, les dates sont à passer aux format US mm/dd/yyyy et encadrés avec des #

[somalien10]

pourkoi tu me parle de date Tofalu parce que en faite dans mon code j ai rien o format date. enfin ca se trouve c moi qui comprend rien

mai merci d avoir repondu

[Tofalu]

Et ça : AND DELIBCAT![Date-déliberation]

[alex.a]

Slt,
quel est la partie du code renvoyé par ton erreur?

[Tofalu]

Moi j'ai pas d'erreur, c'est toi qui en a une (ou plusieurs)

Je te donne juste une piste quant au champ date que tu utilises, pour pouvoir effectuer une recherche dessus, il faut que la date qui serve de condition soit au format US et encadrée de #.

De plus tous tes autres champs sont bien de type texte ?

[somalien10]

heu ben ouai mes autre champs sont de type texte et pour alex.a l erreur me revoie
Code :
Me.lblStats.Caption = DCount("*", "DELIBCAT", SQLWHERE) & " / " & DCount("*", "DELIBCAT").

[somalien10]

et o faite dsl de repondre si tard mai je quitte le travail à 17h.