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 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

3 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
EUREKA !!!!!!!!!!!!!!!!

Tous nos problèmes venaient du format de la date de Windows !!!
J'ai mis les / comme séparateurs à la place des . et tout fonctionne !!!!!

Avec le masque de saisi et également si mes deux appelations du champ Search
by Date sont differentes (avec ou sans les "_")

Quelle belle M****.... Faudra que je modifie le format de la date Windows
sur tous les PC exploitant cette base....

Merci mille fois J-Pierre !!!! On aura appris qqch en tout cas.

J'ai Access 2003 et XP



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
Pour les appelations différentes du champ Search, ce n'est pas de la bonne programmation. Dans un monde parfait, un champ a un
nom et un seul.
PierreCFI a une théorie très élaborée sur la manière de nommer les champs des formulaires et des tables, et surtout la manière
d'y faire référence.

S'il passe par là, il aura sans doute la bonté de nous rafraîchir la mémoire car je dois avouer que j'ai oublié.

J-Pierre
Avatar
djeaty
Oui je suis d'accord. Mais a la base j'avais nommé le champ sans les _ mais
j'avais du les rajouter dans le debut du code car VB m'y obligeait en disant
"Erreur de Compilation. Attendu: Separateur de liste ou )"

Bref je te remercie vraiment pour ton aide et je te souhaite une bonne soirée.

Et surement a bientot ;o)

Yannick


Pour les appelations différentes du champ Search, ce n'est pas de la bonne programmation. Dans un monde parfait, un champ a un
nom et un seul.
PierreCFI a une théorie très élaborée sur la manière de nommer les champs des formulaires et des tables, et surtout la manière
d'y faire référence.

S'il passe par là, il aura sans doute la bonté de nous rafraîchir la mémoire car je dois avouer que j'ai oublié.

J-Pierre





1 2 3