VBA Requête SQL sur les dates à partir d'un evenement sur formulaire

barto107 -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention - 24 mars 2021 à 18:15

Bonjour,

Sur un formulaire j'ai créé un évenement sur double clic pour ouvrir une table sur le bon enregistrement répondant à deux critères cela fonctionne très bien (je vous donne l'exemple ci-dessous). J'aimerai ajouter un troisième critère correspondant à un champ date et là ça ne fonctionne plus, quelqu'un pourrait t'il me donner un exemple svp ?

Voici le code VBA sur l'evenement double clic qui fonctionne bien avec deux critères.

Mon formulaire s'appelle F_inscriptions et mes trois champs 'identifiant', 'intitulé formation' et 'date de début'.

DoCmd.OpenForm "F_inscriptions", , , "[Identifiant]='" & Me.Identifiant & "'" & " And [Intitulé formation]='" & Me.Intitulé_formation & "'"

et ci-dessous mon code qui ne fonctionne pas quand j'ajoute un troisième critère date
(j'ai essayé plein de syntaxe mais rien à faire, ça ne fonctionne pas) :(

DoCmd.OpenForm "F_inscriptions", , , "[Identifiant]='" & Me.Identifiant & "'" & " And [Intitulé formation]='" & Me.Intitulé_formation & "'" & " And [Date de début]='" & Me.Date_de_début & "'"

Merci pour votre aide

Configuration: Windows / Firefox 78.0

Afficher la suite

A voir également:

VBA Requête SQL sur les dates à partir d'un evenement sur formulaire
Whatsapp formulaire opposition - Guide
Creer un groupe whatsapp a partir d'un autre groupe - Guide
Formulaire de réclamation facebook - Guide
Nombre de jours entre deux dates excel - Guide
Comment faire une recherche à partir d'une photo - Guide

1 réponse

Réponse 1 / 1

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

bonjour,
peut-être:

DoCmd.OpenForm "F_inscriptions", , , _
     "[Identifiant]='" & Me.Identifiant & "'" _
      & " And [Intitulé formation]='"  & Me.Intitulé_formation & "'" _
      & " And [Date de début] = " & cstr(clng(int(Me.Date_de_début)))

sinon

DoCmd.OpenForm "F_inscriptions", , , _
     "[Identifiant]='" & Me.Identifiant & "'" _
      & " And [Intitulé formation]='"  & Me.Intitulé_formation & "'" _
      & " And format([Date de début],'yyyymmdd') = " _
            & format(Me.Date_de_début, "yyyymmdd")

Discussions similaires

Annuaire portable gratuit à partir d'un nom

Chemin Logo du site de la Cité de l'espace

Trouver un numero de portable a partir d'un nom svp

Comment trouver un numéro à partir du nom et prénom

Certification Pix - Python et SQL

Votre réponse

Discussions similaires