Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Parametrage de champs pour recherche

Parametrage de champs pour recherche

23 réponses
Avatar
djeaty
Hello...

J'ai crée un formulaire avec un champ texte qui me permet de rechercher un
enregistrement d'un table qui sera afficheé sous sa forme de formulaire.
Pour ce faire j'ai simplement ajouter un bouton "ouvrir un formulaire" et
j'y ai indiquer les champs qui doivent etre similaire.

Afin d'obliger l'utilisateur a inscrire une valeur dans le champ text, j'ai
inscrit dans la propriété du champ text, sous "valide si" "Est Pas Null"
Cela fonctionne mais si l'utilisateur veut fermer le formulaire sans y avoir
écrit qqch, il ne peut pas !!! Comment faire ?

Deuxième question: Comment faire pour que l'utilisateur ne puisse pas
modifierl'enregistrement ouvert après la recherche ?

Et dernière question: est-il possible de mettre 2 ou 3 zone de text à
remplir afin d'affiner la recherche ?

C'est des problème tout bete mais j'ai commencer a utiliser Access il y
seulement 4 jours alors... :-/

Voici la copie du code que j'ai jusque a présent si jamais:

Option Compare Database

Private Sub Bouton_Search_Click()
On Error GoTo Err_Bouton_Search_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "PO"

stLinkCriteria = "[Aircraft]=" & "'" & Me![Texte0] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Bouton_Search_Click:
Exit Sub

Err_Bouton_Search_Click:
MsgBox Err.Description
Resume Exit_Bouton_Search_Click

End Sub
Signaler un problème avec ce contenu

10 réponses

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
1 2 3
Avatar
djeaty
Salut J-Pierre.... Oui ma nuit a été courte... mais je suis du genre tetu
alors tant que ca marche pas comme je veux je trouve pas le sommeil...

Non le champ date de ma table est de type texte...

J'ai essayé avec les * et les %, sans succés... :-(

Kesako OE6 ? J'ai Access 2003 et je tape mes code dans Visual Basis....

Je vais poster un message pour l'histoire du nouvek enregistrement et peut
etre aussi pour l'histoire du mémo...






Bonjour,

Je vois que tu as passé une bonne nuit :-)

D'abord une remarque pour la date. Est-ce que ton champ dans ta table est bien défini comme une date ? Si oui, je mettrais la
main de Pierre à couper qu'il faut utiliser des # comme délimiteurs.

Pour tes deux problèmes:

1-Le critère de recherche "Title": normalement, le code suivant, qui revient à encadrer l'argument de recherche par des
étoiles devrait marcher:
Si ça ne marche pas, essaie avec % à la place de * (% est le caractère générique avec SQL Server, on ne sait jamais)
Pour faire d'autres essais, crée une requête avec l'éditeur, ce sera plus facile.
Enfin, vérifie dans l'aide en ligne, je crois, mais ne suis pas certain, que c'est possible sur un champ mémo.
Et d'autres vont peut-être aussi te répondre.....

If Not IsNull(Me.Search_by_title) And Me.Search_by_title <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Title] = '*" & Me![Search by Title] & "*'"
End If

2-Lorsque j'ouvre un formulaire, cela soit directement un nouvel enregistrement qui apparaisse....
Désolé, je ne me souviens plus, j'ai en-tête quelque chose comme
DoCmd??????? GoTo AcNewRec, mais je n'ai pas trouvé dans l'aide en ligne.
Le mieux serait d'ouvrir un nouveau fil avec cette question spécifique.

J-Pierre

Tu utilises OE6 ? Pendant que tu y es, va dans menu->outils->options->onglet envois, et change les paramètres de texte brut
(mets 126), tes lignes de code ne seront plus coupées intempestivement.

"djeaty" a écrit dans le message de news:

Salut J-Pierre,

Voila, après des heures de combat acharné, d'essais, et surtout grace à ton
aide, j'ai réussi à créer le formulaire de recherche que je désirais. Enfin
presque...

Comme tu peux dans le voir dans mon code plus bas, j'ai du modifier le code
que tu m'avais donné pour un champ non-obligatoire et j'ai du enlever les "#"
dans le code concernant les dates...

J'ai réussi à contourner le fait de devoir laisser dans ma "stLinkCriteria"
un champ non controlé par un "If Not IsNull" en ajoutant a mon formulaire de
recherche un champ non visible à valeur constante identique a un champ a
valeur constante de mon enregistrement a rechercher :-)

Il me reste juste 2 soucis:

Le premier c'est que le critère de recherche "Title" ne permet pas de
marquer un mot contenu dans le champ de type "mémo" de l'enregistrement
recherché. Il doit etre identique... Comment faire ? J'ai essayé de mettre
des "*" mais sans succès.

Et le deuxième (qui me sera très utile aussi pour d'autre formulaires de ma
base) c'est que lorsque j'ouvre un formulaire, cela soit directement un
nouvel enregistrement qui apparaisse, et non pas le dernier
enregistrement......

As-tu un idée pour ces 2 cas ?

Merci

Djeaty



Bonsoir,

Je ne m'attendais pas à ça :-) Tant pis pour moi, je m'y colle. Je considère que tous les champs de recherche doivent être
renseignés. Pour le champ de type memo, je ne souviens pas si on peut faire une sélection, je crois que oui.
Les champs tels [Aircraft] sont les noms des champs dans ta table.
Les champs tels Me![Texte0] sont les noms des champs dans ton formulaire.

stLinkCriteria = "[Aircraft] = '" & Me![Texte0] & "'" & _
" AND [Search by PO Number] = '" & Me![Texte1] & "'" & _
" AND [Search by Date] >= #" & Me![Texte2] & "#" & _
" AND [Search by Date] <= #" & Me![Texte3] & "#" & _
" AND [Search by Title] = '" & Me![Texte4] & "'"

Pour bien contrôler la valeur de stLinkCriteria, avant d'ouvrir ton formulaire, tu fais
MsgBox stLinkCriteria
et tu contrôles les erreurs de syntaxe :-) en particulier les espaces ou les ' manquants.

Si un champ, par exemple [Search by PO Number] n'est pas obligatoire, ton code devient (ce qui implique que Aircraft, lui,
est
obligatoire):

stLinkCriteria = "[Aircraft] = '" & Me![Texte0] & "'"

If Not IsNull Me.[Texte1] And Me.[Texte1] <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Search by PO Number] = '" & Me![Texte1] & "'"
End If
.........
MsgBox stLinkCriteria
DoCmd.OpenForm

J-Pierre

"djeaty" a écrit dans le message de news:

Merci J-Pierre, Merci pgz,

J'ai intégré vos code ca marche super.

Pour la question 3 voici les données:

Dans mon formulaire de recherche, qui s'appelle "PO search" j'ai plusieurs
champs de texte correspondant chacun à 1 critère de recherche qui me sert à
ouvrir le ou les enregistrementle(s) concerné du formulaire "PO".

Ces champs sont: "Search by Aircraft" (Celui-ci fonctionne déjà, c'est celui
que j'ai crée moi), "Search by PO Number", "Search by PO issuer", "Search by
Maintenance Center", "Search by Date" (pour celui ci, j'aimerai que
l'utilisateur ai une plage de date à entrer, genre entre 00.00.0000 et
00.00.0000) et finalement "Search by Title" (pour celui ci je sais pas si il
est possible de rentrer un mot à rechercher dans une zone mémo du formulaire
"PO". Les données à rechercher sont toutes dans le formulaire "PO" donc dans
le table "PO". Et les noms des champs de la table correspondent aux noms des
champs dans le formulaire "PO search" sans le "Search by"

Ils sont tous de type "texte" sauf le champ "Title" qui est de type "Mémo"

Ce que je cherche à faire c'est que si l'on remplit plus que 1 critère de
recherche, cela ouvre le ou les enregistrements qui contiennent TOUT les
citères. Donc une recherche de type "et". Et si possible qu'un message genre
"Merci de modifier les citère de recherche" apparaissent si aucun
enregistrement sont trouvé....

Merci bOcoup bOcoup.....

Mon code actuel:

Option Compare Database

Private Sub Bouton_Search_Click()
On Error GoTo Err_Bouton_Search_Click

If IsNull(Me.Search_by_Aircraft) Or Me.Search_by_Aircraft = "" Then
MsgBox "Please indicate Aircraft Registration", , "Error"
Exit Sub
End If





Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "PO"

stLinkCriteria = "[Aircraft]=" & "'" & Me![Search by Aircraft] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormReadOnly


Exit_Bouton_Search_Click:
Exit Sub

Err_Bouton_Search_Click:
MsgBox Err.Description
Resume Exit_Bouton_Search_Click

End Sub







Bonjour,

1-N'utilise pas les propriétés de ton champ texte, mais contrôle si ce champ texte a bien été renseigné par
l'utilisateur
quand il clique sur ton bouton

If IsNull(Me.monChamp) Or Me.monChamp ="" Then
MsgBox "Vous n'avez pas renseigné le champ Toto",,"ERREUR"
Exit Sub
End If

2-Pour la MAJ, propriétés du formulaire, onglet Données, autoriser ou interdire....

3- Oui, c'est possible, il suffit de mettre les critères appropriés dans la requête sourcedu formulaire qui présente les
résultats de ta recherche, syntaxe:
[Forms]![monForm]![monChamp]
ou bien de compléter ton champ stLinkCriteria, si tu débutes, donne-nous les noms des contrôles dans ton formulaire, le
nom
des champs dans ta table, précise s'ils sont alpha ou numériques, on te rédigera ça.

J-Pierre

"djeaty" a écrit dans le message de news:

Hello...

J'ai crée un formulaire avec un champ texte qui me permet de rechercher un
enregistrement d'un table qui sera afficheé sous sa forme de formulaire.
Pour ce faire j'ai simplement ajouter un bouton "ouvrir un formulaire" et
j'y ai indiquer les champs qui doivent etre similaire.

Afin d'obliger l'utilisateur a inscrire une valeur dans le champ text, j'ai
inscrit dans la propriété du champ text, sous "valide si" "Est Pas Null"
Cela fonctionne mais si l'utilisateur veut fermer le formulaire sans y avoir
écrit qqch, il ne peut pas !!! Comment faire ?

Deuxième question: Comment faire pour que l'utilisateur ne puisse pas
modifierl'enregistrement ouvert après la recherche ?

Et dernière question: est-il possible de mettre 2 ou 3 zone de text à
remplir afin d'affiner la recherche ?

C'est des problème tout bete mais j'ai commencer a utiliser Access il y
seulement 4 jours alors... :-/

Voici la copie du code que j'ai jusque a présent si jamais:

Option Compare Database

Private Sub Bouton_Search_Click()
On Error GoTo Err_Bouton_Search_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "PO"

stLinkCriteria = "[Aircraft]=" & "'" & Me![Texte0] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Bouton_Search_Click:
Exit Sub

Err_Bouton_Search_Click:
MsgBox Err.Description
Resume Exit_Bouton_Search_Click

End Sub























Avatar
djeaty
Aie Aie AIe comme toujours vous avez raison (sans vouloir vous passez la
pommade ;-)

J'ai du modifier le type de champ pour mes champs date car j'ai remarqué que
en faisant ma recherche, si je mettais "date < 23.12.2006 ben un
enregistrement avec une date "10.100.20010" apparaissait. Mais maintenant que
j'ai changé le type, ma recherche fonctionne plus. J'ai donc essayé de
remettre les # mais ca marche po....

Voici la copie du code a nouveau, que dois-je modifier ?

Private Sub Bouton_Search_Click()
On Error GoTo Err_Bouton_Search_Click




Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "PO"


stLinkCriteria = "[Controle my reference]=" & "'" & Me![Control my
Reference] & "'"


If Not IsNull(Me.Search_by_PO_Number) And Me.Search_by_PO_Number <> ""
Then
stLinkCriteria = stLinkCriteria & " AND [PO Number] = '" & Me![Search by PO
Number] & "'"
End If

If Not IsNull(Me.Search_by_title) And Me.Search_by_title <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Title] = '" & Me![Search by Title]
& "'"
End If

If Not IsNull(Me.Search_by_Aircraft) And Me.Search_by_Aircraft <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Aircraft] = '" & Me![Search by
Aircraft] & "'"
End If

If Not IsNull(Me.Search_by_date) And Me.Search_by_date <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Date] >= #" & Me![Search by Date] &
"#"
End If

If Not IsNull(Me.Search_by_Date_2) And Me.Search_by_Date_2 <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Date] <= #" & Me![Search by date 2]
& "#"
End If

If Not IsNull(Me.Search_by_Albinati_Aeronautics_Contact) And
Me.Search_by_Albinati_Aeronautics_Contact <> "" Then
stLinkCriteria = stLinkCriteria & " AND [My Reference] = '" & Me![Search by
Albinati Aeronautics Contact] & "'"
End If

MsgBox stLinkCriteria
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormReadOnly


Exit_Bouton_Search_Click:
Exit Sub

Err_Bouton_Search_Click:
MsgBox Err.Description
Resume Exit_Bouton_Search_Click

End Sub




en passant, dès qu'on fait un travail quelconque sur les dates, passer en format US

"#" & Format(Me.champDate,"mm/dd/yyyy") & "#"

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"J-Pierre" a écrit dans le message de news: u$NNx%
Bonjour,

Je vois que tu as passé une bonne nuit :-)

D'abord une remarque pour la date. Est-ce que ton champ dans ta table est bien défini comme une date ? Si oui, je mettrais la main
de Pierre à couper qu'il faut utiliser des # comme délimiteurs.

Pour tes deux problèmes:

1-Le critère de recherche "Title": normalement, le code suivant, qui revient à encadrer l'argument de recherche par des étoiles
devrait marcher:
Si ça ne marche pas, essaie avec % à la place de * (% est le caractère générique avec SQL Server, on ne sait jamais)
Pour faire d'autres essais, crée une requête avec l'éditeur, ce sera plus facile.
Enfin, vérifie dans l'aide en ligne, je crois, mais ne suis pas certain, que c'est possible sur un champ mémo.
Et d'autres vont peut-être aussi te répondre.....

If Not IsNull(Me.Search_by_title) And Me.Search_by_title <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Title] = '*" & Me![Search by Title] & "*'"
End If

2-Lorsque j'ouvre un formulaire, cela soit directement un nouvel enregistrement qui apparaisse....
Désolé, je ne me souviens plus, j'ai en-tête quelque chose comme
DoCmd??????? GoTo AcNewRec, mais je n'ai pas trouvé dans l'aide en ligne.
Le mieux serait d'ouvrir un nouveau fil avec cette question spécifique.

J-Pierre

Tu utilises OE6 ? Pendant que tu y es, va dans menu->outils->options->onglet envois, et change les paramètres de texte brut (mets
126), tes lignes de code ne seront plus coupées intempestivement.

"djeaty" a écrit dans le message de news:
Salut J-Pierre,

Voila, après des heures de combat acharné, d'essais, et surtout grace à ton
aide, j'ai réussi à créer le formulaire de recherche que je désirais. Enfin
presque...

Comme tu peux dans le voir dans mon code plus bas, j'ai du modifier le code
que tu m'avais donné pour un champ non-obligatoire et j'ai du enlever les "#"
dans le code concernant les dates...

J'ai réussi à contourner le fait de devoir laisser dans ma "stLinkCriteria"
un champ non controlé par un "If Not IsNull" en ajoutant a mon formulaire de
recherche un champ non visible à valeur constante identique a un champ a
valeur constante de mon enregistrement a rechercher :-)

Il me reste juste 2 soucis:

Le premier c'est que le critère de recherche "Title" ne permet pas de
marquer un mot contenu dans le champ de type "mémo" de l'enregistrement
recherché. Il doit etre identique... Comment faire ? J'ai essayé de mettre
des "*" mais sans succès.

Et le deuxième (qui me sera très utile aussi pour d'autre formulaires de ma
base) c'est que lorsque j'ouvre un formulaire, cela soit directement un
nouvel enregistrement qui apparaisse, et non pas le dernier
enregistrement......

As-tu un idée pour ces 2 cas ?

Merci

Djeaty



Bonsoir,

Je ne m'attendais pas à ça :-) Tant pis pour moi, je m'y colle. Je considère que tous les champs de recherche doivent être
renseignés. Pour le champ de type memo, je ne souviens pas si on peut faire une sélection, je crois que oui.
Les champs tels [Aircraft] sont les noms des champs dans ta table.
Les champs tels Me![Texte0] sont les noms des champs dans ton formulaire.

stLinkCriteria = "[Aircraft] = '" & Me![Texte0] & "'" & _
" AND [Search by PO Number] = '" & Me![Texte1] & "'" & _
" AND [Search by Date] >= #" & Me![Texte2] & "#" & _
" AND [Search by Date] <= #" & Me![Texte3] & "#" & _
" AND [Search by Title] = '" & Me![Texte4] & "'"

Pour bien contrôler la valeur de stLinkCriteria, avant d'ouvrir ton formulaire, tu fais
MsgBox stLinkCriteria
et tu contrôles les erreurs de syntaxe :-) en particulier les espaces ou les ' manquants.

Si un champ, par exemple [Search by PO Number] n'est pas obligatoire, ton code devient (ce qui implique que Aircraft, lui, est
obligatoire):

stLinkCriteria = "[Aircraft] = '" & Me![Texte0] & "'"

If Not IsNull Me.[Texte1] And Me.[Texte1] <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Search by PO Number] = '" & Me![Texte1] & "'"
End If
.........
MsgBox stLinkCriteria
DoCmd.OpenForm

J-Pierre

"djeaty" a écrit dans le message de news:

Merci J-Pierre, Merci pgz,

J'ai intégré vos code ca marche super.

Pour la question 3 voici les données:

Dans mon formulaire de recherche, qui s'appelle "PO search" j'ai plusieurs
champs de texte correspondant chacun à 1 critère de recherche qui me sert à
ouvrir le ou les enregistrementle(s) concerné du formulaire "PO".

Ces champs sont: "Search by Aircraft" (Celui-ci fonctionne déjà, c'est celui
que j'ai crée moi), "Search by PO Number", "Search by PO issuer", "Search by
Maintenance Center", "Search by Date" (pour celui ci, j'aimerai que
l'utilisateur ai une plage de date à entrer, genre entre 00.00.0000 et
00.00.0000) et finalement "Search by Title" (pour celui ci je sais pas si il
est possible de rentrer un mot à rechercher dans une zone mémo du formulaire
"PO". Les données à rechercher sont toutes dans le formulaire "PO" donc dans
le table "PO". Et les noms des champs de la table correspondent aux noms des
champs dans le formulaire "PO search" sans le "Search by"

Ils sont tous de type "texte" sauf le champ "Title" qui est de type "Mémo"

Ce que je cherche à faire c'est que si l'on remplit plus que 1 critère de
recherche, cela ouvre le ou les enregistrements qui contiennent TOUT les
citères. Donc une recherche de type "et". Et si possible qu'un message genre
"Merci de modifier les citère de recherche" apparaissent si aucun
enregistrement sont trouvé....

Merci bOcoup bOcoup.....

Mon code actuel:

Option Compare Database

Private Sub Bouton_Search_Click()
On Error GoTo Err_Bouton_Search_Click

If IsNull(Me.Search_by_Aircraft) Or Me.Search_by_Aircraft = "" Then
MsgBox "Please indicate Aircraft Registration", , "Error"
Exit Sub
End If





Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "PO"

stLinkCriteria = "[Aircraft]=" & "'" & Me![Search by Aircraft] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormReadOnly


Exit_Bouton_Search_Click:
Exit Sub

Err_Bouton_Search_Click:
MsgBox Err.Description
Resume Exit_Bouton_Search_Click

End Sub







Bonjour,

1-N'utilise pas les propriétés de ton champ texte, mais contrôle si ce champ texte a bien été renseigné par l'utilisateur
quand il clique sur ton bouton

If IsNull(Me.monChamp) Or Me.monChamp ="" Then
MsgBox "Vous n'avez pas renseigné le champ Toto",,"ERREUR"
Exit Sub
End If

2-Pour la MAJ, propriétés du formulaire, onglet Données, autoriser ou interdire....

3- Oui, c'est possible, il suffit de mettre les critères appropriés dans la requête sourcedu formulaire qui présente les
résultats de ta recherche, syntaxe:
[Forms]![monForm]![monChamp]
ou bien de compléter ton champ stLinkCriteria, si tu débutes, donne-nous les noms des contrôles dans ton formulaire, le nom
des champs dans ta table, précise s'ils sont alpha ou numériques, on te rédigera ça.

J-Pierre

"djeaty" a écrit dans le message de news:

Hello...

J'ai crée un formulaire avec un champ texte qui me permet de rechercher un
enregistrement d'un table qui sera afficheé sous sa forme de formulaire.
Pour ce faire j'ai simplement ajouter un bouton "ouvrir un formulaire" et
j'y ai indiquer les champs qui doivent etre similaire.

Afin d'obliger l'utilisateur a inscrire une valeur dans le champ text, j'ai
inscrit dans la propriété du champ text, sous "valide si" "Est Pas Null"
Cela fonctionne mais si l'utilisateur veut fermer le formulaire sans y avoir
écrit qqch, il ne peut pas !!! Comment faire ?

Deuxième question: Comment faire pour que l'utilisateur ne puisse pas
modifierl'enregistrement ouvert après la recherche ?

Et dernière question: est-il possible de mettre 2 ou 3 zone de text à
remplir afin d'affiner la recherche ?

C'est des problème tout bete mais j'ai commencer a utiliser Access il y
seulement 4 jours alors... :-/

Voici la copie du code que j'ai jusque a présent si jamais:

Option Compare Database

Private Sub Bouton_Search_Click()
On Error GoTo Err_Bouton_Search_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "PO"

stLinkCriteria = "[Aircraft]=" & "'" & Me![Texte0] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Bouton_Search_Click:
Exit Sub

Err_Bouton_Search_Click:
MsgBox Err.Description
Resume Exit_Bouton_Search_Click

End Sub



























Avatar
J-Pierre
Pas le temps de regarder en détail maintenant, mais j'ai dit une connerie. Pour ton champ memo il faut coder:
stLinkCriteria = stLinkCriteria & " AND [My Reference] LIKE '*" & Me![Search by Albinati Aeronautics Contact] & "*'"

Bonne après-midi :-)

J-Pierre
Avatar
djeaty
Salut J-Pierre...

Yes ca marche comme ca merci...

Et pour l'histoire des dates pas de soucis, ca presse pas.Si tu peux y jeter
un coup d'oeil a l'occas ca serait cool. C'est le dernier probleme sur mon
formulaire

Bonne fin de dimanche


Pas le temps de regarder en détail maintenant, mais j'ai dit une connerie. Pour ton champ memo il faut coder:
stLinkCriteria = stLinkCriteria & " AND [My Reference] LIKE '*" & Me![Search by Albinati Aeronautics Contact] & "*'"

Bonne après-midi :-)

J-Pierre





Avatar
J-Pierre
Bonsoir,

OE6, c'est Outlook Express 6, le client de messagerie, le logiciel installé sur ton PC qui te permet de lire et de répondre
aux messages de news. A moins que tu ne travailles différemment.

Pour la date, y'en a un peu dans tous les coins, je te propose de reprendre à zéro.

Ton code devrait être:

If Not IsNull(Me.Search_by_date) And Me.Search_by_date <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Date] >= #" & Format(Me.[Search by Date],"yyyy/mm/dd") & "#"
End If

Si ça ne marche pas:
1-Controle la syntaxe avec MsgBox.
2-Ce qui me surprend un peu, c'est que le contrôle de ton formulaire s'appelle un coup Search_by_date et un coup [Search by
Date].
3-Dans ta table, le champ s'appelle [Date]. C'est un mot réservé qu'il ne faut JAMAIS utiliser. Change le.
4-Quand tu as modifié ton champ texte en champ date, Access a converti les données. Vérifie que les dates sont bien toujours
des dates.
Pour contrôler ça, tu peux le faire visuellement ou avec une requête avec comme critère de sélection:
Not IsDate

Tu essaies et tu réponds avec le résultat et/ou les messages d'erreur et le nouveau code :-)

J-Pierre
Avatar
djeaty
Bonsoir J-Pierre...

Non j'ai Outlook normal....

Alors j'ai modifié mon champ "Date" en champ "Date of Issue"

Alors si je renseigne le champ "Search by Date 1" (Ou "Search by Date 2"),
j'ai le message d'erreur:
"erreur de syntaxe dans la date dans l'expression AND [Date] >= #2006.12.28#'.



Si je renseigne n'importe quel autre champs du formulaire, cela fonctionne

Quand à la difference Search_by_Date_1 et Search by Date 2 c'est car si
j'enleve les _ , VB me met le code en rouge en me disant qu'il a une erreur
de complilation et qu'il attend une ) ou un separateur de liste. J'imagine
que c'est car j'emploi le mot "by". Mais c'est comme ca pour tout les
critpres et cela fonctionne pour les autres....

Voila le code:

Private Sub Bouton_Search_Click()
On Error GoTo Err_Bouton_Search_Click




Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "PO"


stLinkCriteria = "[Controle my reference]=" & "'" & Me![Control my
Reference] & "'"


If Not IsNull(Me.Search_by_PO_Number) And Me.Search_by_PO_Number <> ""
Then
stLinkCriteria = stLinkCriteria & " AND [PO Number] = '" & Me![Search by PO
Number] & "'"
End If

If Not IsNull(Me.Search_by_title) And Me.Search_by_title <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Title] LIKE '*" & Me![Search by
Title] & "*'"
End If

If Not IsNull(Me.Search_by_Aircraft) And Me.Search_by_Aircraft <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Aircraft] = '" & Me![Search by
Aircraft] & "'"
End If

If Not IsNull(Me.Search_by_Date_1) And Me.Search_by_Date_1 <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Date of Issue] >= #" &
Format(Me.[Search by Date 1], "yyyy/mm/dd") & "#"
End If

If Not IsNull(Me.Search_by_Date_2) And Me.Search_by_Date_2 <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Date of Issue] <= #" &
Format(Me.[Search by date 2], "yyyy/mm/dd") & "#"
End If

If Not IsNull(Me.Search_by_Albinati_Aeronautics_Contact) And
Me.Search_by_Albinati_Aeronautics_Contact <> "" Then
stLinkCriteria = stLinkCriteria & " AND [My Reference] = '" & Me![Search by
Albinati Aeronautics Contact] & "'"
End If

MsgBox stLinkCriteria
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormReadOnly


Exit_Bouton_Search_Click:
Exit Sub

Err_Bouton_Search_Click:
MsgBox Err.Description
Resume Exit_Bouton_Search_Click

End Sub






Bonsoir,

OE6, c'est Outlook Express 6, le client de messagerie, le logiciel installé sur ton PC qui te permet de lire et de répondre
aux messages de news. A moins que tu ne travailles différemment.

Pour la date, y'en a un peu dans tous les coins, je te propose de reprendre à zéro.

Ton code devrait être:

If Not IsNull(Me.Search_by_date) And Me.Search_by_date <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Date] >= #" & Format(Me.[Search by Date],"yyyy/mm/dd") & "#"
End If

Si ça ne marche pas:
1-Controle la syntaxe avec MsgBox.
2-Ce qui me surprend un peu, c'est que le contrôle de ton formulaire s'appelle un coup Search_by_date et un coup [Search by
Date].
3-Dans ta table, le champ s'appelle [Date]. C'est un mot réservé qu'il ne faut JAMAIS utiliser. Change le.
4-Quand tu as modifié ton champ texte en champ date, Access a converti les données. Vérifie que les dates sont bien toujours
des dates.
Pour contrôler ça, tu peux le faire visuellement ou avec une requête avec comme critère de sélection:
Not IsDate

Tu essaies et tu réponds avec le résultat et/ou les messages d'erreur et le nouveau code :-)

J-Pierre





Avatar
J-Pierre
Bonsoir,

La différence entre le code qui marche et celui qui ne marche pas est dans le !
Essaie Me![Search by Date 1] au lieu de Me.[Search by Date 1]

Mais si c'est ça, je ne comprends pas, il me semble qu'un même contrôle de formulaire ne peut pas s'appeler "Search_by_Date_1"
et "Search by Date 1", les crochets permettant de délimiter le nom d'un contrôle contenant des espaces. Peut-être quelqu'un
pourra nous éclairer.

Le séparateur dans la date doit être / donc 2006.12.28 devrait être 2006/12/28

Si c'est bien le résultat du Format(Me![Search by Date 1], "yyyy/mm/dd") là non plus, je ne comprends pas. Comment entres-tu
tes données dans le champ du formulaire ?


Pour être vraiment sûr, je te propose de modifier le code de la manière suivante:
If IsDate(Me.Search_by_Date_1) Then
stLinkCriteria = stLinkCriteria & " AND [Date of Issue] >= #" &
Format(Me![Search by Date 1], "yyyy/mm/dd") & "#" l'un ou
Format(Me.Search_by_Date_1, "yyyy/mm/dd") & "#" l'autre
End If

Si ça ne marche pas, contrôle bien le nom du contrôle du formulaire et essaie différentes combinaisons. D'une manière
générale, évite les espaces dans les noms, ça fait très joli, mais c'est source d'erreur, préfère le caractère souligné
"Search_by_Date_1", ou bien la majuscule "SearchByDate1".

J-Pierre

"djeaty" a écrit dans le message de news:

Bonsoir J-Pierre...

Non j'ai Outlook normal....

Alors j'ai modifié mon champ "Date" en champ "Date of Issue"

Ca roule


Alors si je renseigne le champ "Search by Date 1" (Ou "Search by Date 2"),
j'ai le message d'erreur:
"erreur de syntaxe dans la date dans l'expression AND [Date] >= #2006.12.28#'.



Si je renseigne n'importe quel autre champs du formulaire, cela fonctionne

Quand à la difference Search_by_Date_1 et Search by Date 2 c'est car si
j'enleve les _ , VB me met le code en rouge en me disant qu'il a une erreur
de complilation et qu'il attend une ) ou un separateur de liste. J'imagine
que c'est car j'emploi le mot "by". Mais c'est comme ca pour tout les
critpres et cela fonctionne pour les autres....

Voila le code:

Private Sub Bouton_Search_Click()
On Error GoTo Err_Bouton_Search_Click




Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "PO"


stLinkCriteria = "[Controle my reference]=" & "'" & Me![Control my
Reference] & "'"


If Not IsNull(Me.Search_by_PO_Number) And Me.Search_by_PO_Number <> ""
Then
stLinkCriteria = stLinkCriteria & " AND [PO Number] = '" & Me![Search by PO
Number] & "'"
End If

If Not IsNull(Me.Search_by_title) And Me.Search_by_title <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Title] LIKE '*" & Me![Search by
Title] & "*'"
End If

If Not IsNull(Me.Search_by_Aircraft) And Me.Search_by_Aircraft <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Aircraft] = '" & Me![Search by
Aircraft] & "'"
End If

If Not IsNull(Me.Search_by_Date_1) And Me.Search_by_Date_1 <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Date of Issue] >= #" &
Format(Me.[Search by Date 1], "yyyy/mm/dd") & "#"
End If

If Not IsNull(Me.Search_by_Date_2) And Me.Search_by_Date_2 <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Date of Issue] <= #" &
Format(Me.[Search by date 2], "yyyy/mm/dd") & "#"
End If

If Not IsNull(Me.Search_by_Albinati_Aeronautics_Contact) And
Me.Search_by_Albinati_Aeronautics_Contact <> "" Then
stLinkCriteria = stLinkCriteria & " AND [My Reference] = '" & Me![Search by
Albinati Aeronautics Contact] & "'"
End If

MsgBox stLinkCriteria
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormReadOnly


Exit_Bouton_Search_Click:
Exit Sub

Err_Bouton_Search_Click:
MsgBox Err.Description
Resume Exit_Bouton_Search_Click

End Sub






Bonsoir,

OE6, c'est Outlook Express 6, le client de messagerie, le logiciel installé sur ton PC qui te permet de lire et de répondre
aux messages de news. A moins que tu ne travailles différemment.

Pour la date, y'en a un peu dans tous les coins, je te propose de reprendre à zéro.

Ton code devrait être:

If Not IsNull(Me.Search_by_date) And Me.Search_by_date <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Date] >= #" & Format(Me.[Search by Date],"yyyy/mm/dd") & "#"
End If

Si ça ne marche pas:
1-Controle la syntaxe avec MsgBox.
2-Ce qui me surprend un peu, c'est que le contrôle de ton formulaire s'appelle un coup Search_by_date et un coup [Search by
Date].
3-Dans ta table, le champ s'appelle [Date]. C'est un mot réservé qu'il ne faut JAMAIS utiliser. Change le.
4-Quand tu as modifié ton champ texte en champ date, Access a converti les données. Vérifie que les dates sont bien
toujours
des dates.
Pour contrôler ça, tu peux le faire visuellement ou avec une requête avec comme critère de sélection:
Not IsDate

Tu essaies et tu réponds avec le résultat et/ou les messages d'erreur et le nouveau code :-)

J-Pierre







Avatar
djeaty
Salut J-Pierre....

ALors j'ai essayé tes 2 nouveau code, le résultat est identique pour les
deux, c'est à dire le meme que avec le code original. J'ai fais 2 print
screen si ca t'interesse. 1 du message box stLinkCriteria et 1 du message
d'erreur.

J'ai renommé mon champs Search_by_Date_1 afin que le nom soit les 2 fois le
meme, sans résultat. Et j'ai renommé mon champ "Date of Issue" en
"Date_of_Issue".

Si je remplace le "." par "!" après Me, j'ai un message qui dit "Impossible
de trouver le champ 'Search_by_Date_1' auquel il est fait référence dans
votre expression"

Pour rentrer ma date dans le champ, je tape par exemple 25.08.2006. Si
j'essais de taper 25/08/2006, cela transforme automatiquement la date en
25.08.2006. Certainement car j'ai definis le type "date abrégé" pour ce
champ, et le format de la date pour ce type est 25.08.2006. Si je tape
2006/08/25, cela transforme en 25.08.2006 aussi....

Quelle M***

If Not IsNull(Me.Search_by_Date_1) And Me.Search_by_Date_1 <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Date_of_Issue] >= #" &
Format(Me.[Search_by_Date_1], "yyyy.mm.dd") & "#"
End If


Bonsoir,

La différence entre le code qui marche et celui qui ne marche pas est dans le !
Essaie Me![Search by Date 1] au lieu de Me.[Search by Date 1]

Mais si c'est ça, je ne comprends pas, il me semble qu'un même contrôle de formulaire ne peut pas s'appeler "Search_by_Date_1"
et "Search by Date 1", les crochets permettant de délimiter le nom d'un contrôle contenant des espaces. Peut-être quelqu'un
pourra nous éclairer.

Le séparateur dans la date doit être / donc 2006.12.28 devrait être 2006/12/28

Si c'est bien le résultat du Format(Me![Search by Date 1], "yyyy/mm/dd") là non plus, je ne comprends pas. Comment entres-tu
tes données dans le champ du formulaire ?


Pour être vraiment sûr, je te propose de modifier le code de la manière suivante:
If IsDate(Me.Search_by_Date_1) Then
stLinkCriteria = stLinkCriteria & " AND [Date of Issue] >= #" &
Format(Me![Search by Date 1], "yyyy/mm/dd") & "#" l'un ou
Format(Me.Search_by_Date_1, "yyyy/mm/dd") & "#" l'autre
End If

Si ça ne marche pas, contrôle bien le nom du contrôle du formulaire et essaie différentes combinaisons. D'une manière
générale, évite les espaces dans les noms, ça fait très joli, mais c'est source d'erreur, préfère le caractère souligné
"Search_by_Date_1", ou bien la majuscule "SearchByDate1".

J-Pierre

"djeaty" a écrit dans le message de news:

Bonsoir J-Pierre...

Non j'ai Outlook normal....

Alors j'ai modifié mon champ "Date" en champ "Date of Issue"

Ca roule


Alors si je renseigne le champ "Search by Date 1" (Ou "Search by Date 2"),
j'ai le message d'erreur:
"erreur de syntaxe dans la date dans l'expression AND [Date] >= #2006.12.28#'.



Si je renseigne n'importe quel autre champs du formulaire, cela fonctionne

Quand à la difference Search_by_Date_1 et Search by Date 2 c'est car si
j'enleve les _ , VB me met le code en rouge en me disant qu'il a une erreur
de complilation et qu'il attend une ) ou un separateur de liste. J'imagine
que c'est car j'emploi le mot "by". Mais c'est comme ca pour tout les
critpres et cela fonctionne pour les autres....

Voila le code:

Private Sub Bouton_Search_Click()
On Error GoTo Err_Bouton_Search_Click




Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "PO"


stLinkCriteria = "[Controle my reference]=" & "'" & Me![Control my
Reference] & "'"


If Not IsNull(Me.Search_by_PO_Number) And Me.Search_by_PO_Number <> ""
Then
stLinkCriteria = stLinkCriteria & " AND [PO Number] = '" & Me![Search by PO
Number] & "'"
End If

If Not IsNull(Me.Search_by_title) And Me.Search_by_title <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Title] LIKE '*" & Me![Search by
Title] & "*'"
End If

If Not IsNull(Me.Search_by_Aircraft) And Me.Search_by_Aircraft <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Aircraft] = '" & Me![Search by
Aircraft] & "'"
End If

If Not IsNull(Me.Search_by_Date_1) And Me.Search_by_Date_1 <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Date of Issue] >= #" &
Format(Me.[Search by Date 1], "yyyy/mm/dd") & "#"
End If

If Not IsNull(Me.Search_by_Date_2) And Me.Search_by_Date_2 <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Date of Issue] <= #" &
Format(Me.[Search by date 2], "yyyy/mm/dd") & "#"
End If

If Not IsNull(Me.Search_by_Albinati_Aeronautics_Contact) And
Me.Search_by_Albinati_Aeronautics_Contact <> "" Then
stLinkCriteria = stLinkCriteria & " AND [My Reference] = '" & Me![Search by
Albinati Aeronautics Contact] & "'"
End If

MsgBox stLinkCriteria
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormReadOnly


Exit_Bouton_Search_Click:
Exit Sub

Err_Bouton_Search_Click:
MsgBox Err.Description
Resume Exit_Bouton_Search_Click

End Sub






Bonsoir,

OE6, c'est Outlook Express 6, le client de messagerie, le logiciel installé sur ton PC qui te permet de lire et de répondre
aux messages de news. A moins que tu ne travailles différemment.

Pour la date, y'en a un peu dans tous les coins, je te propose de reprendre à zéro.

Ton code devrait être:

If Not IsNull(Me.Search_by_date) And Me.Search_by_date <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Date] >= #" & Format(Me.[Search by Date],"yyyy/mm/dd") & "#"
End If

Si ça ne marche pas:
1-Controle la syntaxe avec MsgBox.
2-Ce qui me surprend un peu, c'est que le contrôle de ton formulaire s'appelle un coup Search_by_date et un coup [Search by
Date].
3-Dans ta table, le champ s'appelle [Date]. C'est un mot réservé qu'il ne faut JAMAIS utiliser. Change le.
4-Quand tu as modifié ton champ texte en champ date, Access a converti les données. Vérifie que les dates sont bien
toujours
des dates.
Pour contrôler ça, tu peux le faire visuellement ou avec une requête avec comme critère de sélection:
Not IsDate

Tu essaies et tu réponds avec le résultat et/ou les messages d'erreur et le nouveau code :-)

J-Pierre












Avatar
J-Pierre
Bonsoir,

Pour ton champ date, modifie le masque de saisie. Essaie aussi de modifier tes paramètres généraux, utilise / à la place du
point comme séparateur.

En désespoir de cause, envoie-moi ta base, si je comprends bien, tu n'as besoin de ne laisser dedans que la table et le
formulaire incriminé, tu la compactes, tu la zippes (les anti-virus n'aiment pas trop les fichiers .mdb) et je verrai ça
demain.

Quelle version d'Access utilises-tu ? J'ai la version 2000 et XP.

Quand j'aurai trouvé, je publierai la réponse ici.

J-Pierre



"djeaty" a écrit dans le message de news:

Salut J-Pierre....

ALors j'ai essayé tes 2 nouveau code, le résultat est identique pour les
deux, c'est à dire le meme que avec le code original. J'ai fais 2 print
screen si ca t'interesse. 1 du message box stLinkCriteria et 1 du message
d'erreur.

J'ai renommé mon champs Search_by_Date_1 afin que le nom soit les 2 fois le
meme, sans résultat. Et j'ai renommé mon champ "Date of Issue" en
"Date_of_Issue".

Si je remplace le "." par "!" après Me, j'ai un message qui dit "Impossible
de trouver le champ 'Search_by_Date_1' auquel il est fait référence dans
votre expression"

Pour rentrer ma date dans le champ, je tape par exemple 25.08.2006. Si
j'essais de taper 25/08/2006, cela transforme automatiquement la date en
25.08.2006. Certainement car j'ai definis le type "date abrégé" pour ce
champ, et le format de la date pour ce type est 25.08.2006. Si je tape
2006/08/25, cela transforme en 25.08.2006 aussi....

Quelle M***

If Not IsNull(Me.Search_by_Date_1) And Me.Search_by_Date_1 <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Date_of_Issue] >= #" &
Format(Me.[Search_by_Date_1], "yyyy.mm.dd") & "#"
End If


Bonsoir,

La différence entre le code qui marche et celui qui ne marche pas est dans le !
Essaie Me![Search by Date 1] au lieu de Me.[Search by Date 1]

Mais si c'est ça, je ne comprends pas, il me semble qu'un même contrôle de formulaire ne peut pas s'appeler
"Search_by_Date_1"
et "Search by Date 1", les crochets permettant de délimiter le nom d'un contrôle contenant des espaces. Peut-être quelqu'un
pourra nous éclairer.

Le séparateur dans la date doit être / donc 2006.12.28 devrait être 2006/12/28

Si c'est bien le résultat du Format(Me![Search by Date 1], "yyyy/mm/dd") là non plus, je ne comprends pas. Comment
entres-tu
tes données dans le champ du formulaire ?


Pour être vraiment sûr, je te propose de modifier le code de la manière suivante:
If IsDate(Me.Search_by_Date_1) Then
stLinkCriteria = stLinkCriteria & " AND [Date of Issue] >= #" &
Format(Me![Search by Date 1], "yyyy/mm/dd") & "#" l'un ou
Format(Me.Search_by_Date_1, "yyyy/mm/dd") & "#" l'autre
End If

Si ça ne marche pas, contrôle bien le nom du contrôle du formulaire et essaie différentes combinaisons. D'une manière
générale, évite les espaces dans les noms, ça fait très joli, mais c'est source d'erreur, préfère le caractère souligné
"Search_by_Date_1", ou bien la majuscule "SearchByDate1".

J-Pierre

"djeaty" a écrit dans le message de news:

Bonsoir J-Pierre...

Non j'ai Outlook normal....

Alors j'ai modifié mon champ "Date" en champ "Date of Issue"

Ca roule


Alors si je renseigne le champ "Search by Date 1" (Ou "Search by Date 2"),
j'ai le message d'erreur:
"erreur de syntaxe dans la date dans l'expression AND [Date] >= #2006.12.28#'.



Si je renseigne n'importe quel autre champs du formulaire, cela fonctionne

Quand à la difference Search_by_Date_1 et Search by Date 2 c'est car si
j'enleve les _ , VB me met le code en rouge en me disant qu'il a une erreur
de complilation et qu'il attend une ) ou un separateur de liste. J'imagine
que c'est car j'emploi le mot "by". Mais c'est comme ca pour tout les
critpres et cela fonctionne pour les autres....

Voila le code:

Private Sub Bouton_Search_Click()
On Error GoTo Err_Bouton_Search_Click




Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "PO"


stLinkCriteria = "[Controle my reference]=" & "'" & Me![Control my
Reference] & "'"


If Not IsNull(Me.Search_by_PO_Number) And Me.Search_by_PO_Number <> ""
Then
stLinkCriteria = stLinkCriteria & " AND [PO Number] = '" & Me![Search by PO
Number] & "'"
End If

If Not IsNull(Me.Search_by_title) And Me.Search_by_title <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Title] LIKE '*" & Me![Search by
Title] & "*'"
End If

If Not IsNull(Me.Search_by_Aircraft) And Me.Search_by_Aircraft <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Aircraft] = '" & Me![Search by
Aircraft] & "'"
End If

If Not IsNull(Me.Search_by_Date_1) And Me.Search_by_Date_1 <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Date of Issue] >= #" &
Format(Me.[Search by Date 1], "yyyy/mm/dd") & "#"
End If

If Not IsNull(Me.Search_by_Date_2) And Me.Search_by_Date_2 <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Date of Issue] <= #" &
Format(Me.[Search by date 2], "yyyy/mm/dd") & "#"
End If

If Not IsNull(Me.Search_by_Albinati_Aeronautics_Contact) And
Me.Search_by_Albinati_Aeronautics_Contact <> "" Then
stLinkCriteria = stLinkCriteria & " AND [My Reference] = '" & Me![Search by
Albinati Aeronautics Contact] & "'"
End If

MsgBox stLinkCriteria
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormReadOnly


Exit_Bouton_Search_Click:
Exit Sub

Err_Bouton_Search_Click:
MsgBox Err.Description
Resume Exit_Bouton_Search_Click

End Sub






Bonsoir,

OE6, c'est Outlook Express 6, le client de messagerie, le logiciel installé sur ton PC qui te permet de lire et de
répondre
aux messages de news. A moins que tu ne travailles différemment.

Pour la date, y'en a un peu dans tous les coins, je te propose de reprendre à zéro.

Ton code devrait être:

If Not IsNull(Me.Search_by_date) And Me.Search_by_date <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Date] >= #" & Format(Me.[Search by Date],"yyyy/mm/dd") & "#"
End If

Si ça ne marche pas:
1-Controle la syntaxe avec MsgBox.
2-Ce qui me surprend un peu, c'est que le contrôle de ton formulaire s'appelle un coup Search_by_date et un coup [Search
by
Date].
3-Dans ta table, le champ s'appelle [Date]. C'est un mot réservé qu'il ne faut JAMAIS utiliser. Change le.
4-Quand tu as modifié ton champ texte en champ date, Access a converti les données. Vérifie que les dates sont bien
toujours
des dates.
Pour contrôler ça, tu peux le faire visuellement ou avec une requête avec comme critère de sélection:
Not IsDate

Tu essaies et tu réponds avec le résultat et/ou les messages d'erreur et le nouveau code :-)

J-Pierre














Avatar
J-Pierre
Pardon, le formulaire + le formulaire qui est ouvert :-)
Avec éventuellement les requêtes.
1 2 3