Discussion :

[Ernabella2]

Bonjour,

j'ai besoin d'aide.

lorsque j'exécute le code suivant, ca me donne une erreur 3464 , type de donnée incompatible.

Code :

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

1
2
3
4
5
6
7
8
 
Dim Xmois As Date
Dim XKoppeling As String
 
Xmois = XMois1.Value                -- Données venant d'une liste déroulante basée sur la table Source
XKoppeling = Koppeling1.Value   -- Données venant d'une liste déroulante basée sur la table Source
 
Set rsS = CurrentDb.OpenRecordset("Select * from Source where Mois = """ & Xmois & """ And Koppeling = '" & XKoppeling & "';")

La table Source a plein de champs, ce qui nous interesse içi :

Mois a un format Date.
Koppeling a un format Texte.

Avez-vous une piste pour moi? J'avoue que je cale.

Bien à vous,

Olivier

[Invité]

bonjour,

Mois a un format Date.

Code :

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

1
2
3
4
et rsS = CurrentDb.OpenRecordset("Select * from Source where format([Mois],'mm') = '" & format(Xmois,"mm") & "'" And Koppeling = '" & XKoppeling & "';")


 'en admettant que Xmois soit également une date!