Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Requete en VBA

Requete en VBA

1 réponse
Avatar
geboulay
Bonjour,
Je souhaite faire une requ=EAte en VBA
J'ai un message d' erreur 'INCOMPATIBILITE DE TYPE' je pense que c'est
=E0 cause des dates.


Voici ma synthaxe. Pouvez-vous m'aider

If Not IsNull(Me.Texte23) And Cadre11 =3D 1 Then
strSQL =3D "SELECT [Tbl Familles].[Code_User], [Tbl Devis].[Date de
cr=E9ation], [Tbl Devis].[N=B0 Devis], [Tbl Familles].[Nom de l'assur=E9],
[Tbl Familles].[Pr=E9nom Assur=E9], [Tbl Familles].[Code postal], [Tbl
Familles].Ville, [Tbl Devis].Module, [Tbl Devis].[Situation devis] FROM
[Tbl Familles] INNER JOIN [Tbl Devis] ON [Tbl Familles].[Num=E9ro
Famille] =3D [Tbl Devis].[Num=E9ro Famille]WHERE Code_User=3D" &
Texte4.Value & " AND [Date de Cr=E9ation]>=3D#" & (Texte23.Value) & " # &
" And " [Date de Cr=E9ation]<=3D#" & (Texte25.Value) & "#;"

Merci pour votre aide
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Eric
Bonjour,

Essaies:

strSQL="SELECT ... WHERE Code_User=" & Texte4.Value & " AND [Date de
Création]>=#" & Format(Texte23.Value,"mm/dd/yyyy") & "# AND [Date de
Création]<=#" & Format(Texte25.Value,"mm/dd/yyyy") & "#;"

ou encore:
strSQL="SELECT ... WHERE Code_User=" & Texte4.Value & " AND [Date de
Création] Between " & format(Texte23.Value,"#mm/dd/yyyy#") & " and " &
format(Texte25.Value,"#mm/dd/yyyy#") & ";"

Si Code_User est de type Texte alors :
strSQL="SELECT ... WHERE Code_User='" & Texte4.Value & "' AND ...
La suite du AND est inchangée.



Bonjour,
Je souhaite faire une requête en VBA
J'ai un message d' erreur 'INCOMPATIBILITE DE TYPE' je pense que c'est
à cause des dates.


Voici ma synthaxe. Pouvez-vous m'aider

If Not IsNull(Me.Texte23) And Cadre11 = 1 Then
strSQL = "SELECT [Tbl Familles].[Code_User], [Tbl Devis].[Date de
création], [Tbl Devis].[N° Devis], [Tbl Familles].[Nom de l'assuré],
[Tbl Familles].[Prénom Assuré], [Tbl Familles].[Code postal], [Tbl
Familles].Ville, [Tbl Devis].Module, [Tbl Devis].[Situation devis] FROM
[Tbl Familles] INNER JOIN [Tbl Devis] ON [Tbl Familles].[Numéro
Famille] = [Tbl Devis].[Numéro Famille]WHERE Code_User=" &
Texte4.Value & " AND [Date de Création]>=#" & (Texte23.Value) & " # &
" And " [Date de Création]<=#" & (Texte25.Value) & "#;"

Merci pour votre aide



--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr