Discussion :

[Lighteux26]

Bonjour la communauté

Suite de ce projet de gestion de comosant et de materiel.

La partie ajout fonctionne bien, j'ai deux point a gérer mais je verai plustard.

Un grand merci a User et Eri GND, qui m'ont apportés leur aide.

Vient la partie recherche et sa mise en oeuvre.

A la base j'étais partie sur un tuto d'un contributeur de ce forum, mais je crains qu'il soit trop élaboré pour mon besoin.

Afin de partir n'importe comment, j'aimerai un avis.

La base de donnée contient :

1) 3 tables composants :

T_Contacts
T_Connecteurs
T_Connecteurs Cartes

2) 3 Tables materiel :

T_Desenficheurs
T_Pinces
T_Matrices

3) Les tables qui alimente les tables :

T_Fabricants
T_Serie
T_Finitions
T_Genre
T_JaugesEtSections
T_TypeDeMateriel
T_Categories

4) Table Datasheet
T_Datasheet

Et toutes les tables qui servent aux liaisons entre les composants entre eux et les composants et matériel, et toutes les tables et datasheet.

Voici ce que j'appellerai l'arbre des tables.



Pour cette fonction "Recherche"

La base serait que lorsque que l'on recherche un composant par sa référence Client ou fabricant, que cela recherche dans les 3 tables composants et que cela donne toutes les autres infos liées.

Les composants , pinces, matrice, Désenficheurs, datasheet etc., qui y sont liés

Et pouvoir faire une recherche par type de matériel et voir qui est lié avec qui.

Pour le moment je n'ai pas créer de formulaire, car je ne sais pas trop comment partir et je ne voudrai pas faire une usine a gaz.

Auriez-vous une idée pour réaliser cela? Et si besoin me dire s'il manque des infos.

Je vous remercie par avance de toute aide ou suggestion.

Cordialement, Le Lighteux

[EricDgn]

Bonjour,

Il serait sans doute plus simple de vous répondre si vous déposiez votre db actuelle (sous format .zip).

Cordialement.

[Lighteux26]

Bonjour EricDgn, le forum

Merci pour la réponse.

Je ne voulais pas mettre directement le fichier pour respecter les règles du forum.

Ok, je pose cela en rentrant fin d’après-midi, après avoir supprimé tous les liens vers les photos, car sinon cela va être une purge.

Merci, bonne journée.

[EricDgn]

Oui, uniquement le fichier .accdb compressé.
Cdt.

[Lighteux26]

EricDgn, le forum bonsoir.

Voili j'ai supprimé les liens qui pointaient vers les photos (J'ai appris comment supprimer tous les enregistrements d'un champ dans une table, lol).

Voici la BDD et sa dorsale (Car je pense qu'il l'a fallait)

BDD.zip

Merci beaucoup.

Bonne soirée, Lighteux26

[EricDgn]

Bonjour,

Une façon de faire: créer des requêtes qui listent les composants "contact", "connecteur" et "connecteur carte" (R_CompContacts, R_CompConnecteurs, R_CompConnecteursCarte) pour ensuite les rassembler à l'aide d'une requête UNION (R_Comp).

Ensuite avoir un sous-formulaire créé sur cette requête (SF_Comp), sous-formulaire inséré dans un formulaire où l'on peut entrer les références à chercher (références complètes ou partielles) qui "après MAJ" filtrent le sous-formulaire.

Bon amusement,
Cordialement.

[Lighteux26]

EricDgn, Le forum

EricDgn, cool, merci.

Simple et efficace.

Je présente la solution a mes collègues qui utiliseront aussi cette base de données.

Dans le cas ou je dois modifier, ajout de possibilité dans la recherche (Matériel, datasheet etc).

Si j'ai un peu compris, il faut rajouter une requête avec sa table de ce que je veux rechercher et modifier la requête union.

Merci beaucoup.

Lighteux26

[Lighteux26]

Hello Eric Dgn, Le fofo

Les collègues ont étés séduis.

De petites choses en sont sorties, pour l'avenir, mais a voir.

Pour le moment j'ai rajouté la recherche avec le fabricant et la série (A leur demande).

J'ai aussi voulu rajouter la photo dans le sous formulaire, mais cela coince, rien ne s'affiche.

Ce que j'ai fais.

1) Ajout d'un objet pour la photo et dans celui-ci dans les données : =Emplacement_Image()

2) Ajout d'un champ Photo dans les 3 requêtes :

Cela s'affiche bien dans la requete union R_Comp


3) La Fonction "Emplacement_Image"qui est pour le moment mise dans le formulaire :

Code :

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

1
2
3
Function Emplacement_Image()
    Emplacement_Image = CurrentProject.Path & Mid(Forms![F_001_Menu]![SF_Comp].Photo, InStr(Forms![F_001_Menu]![SF_Comp].Photo, "\images\"))
End Function

Au départ je l'avait mis dans le Sous formulaire avec ce code, mais j'avais une erreur

Code :

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

1
2
3
Function Emplacement_Image()
    Emplacement_Image = CurrentProject.Path & Mid(Me.SF_Comp.Photo, InStr(Me.SF_Comp.Photo, "\images\"))
End Function

Je pense que c'est le fait que je souhaite la photo dans le sous-formulaire et que je ne gère pas comme il faut cela.

Une idée?

Merci, beaucoup.

Le Ligtheux.

[EricDgn]

Bonjour,

A mon avis pour toutes les contrôles de type Image, il suffira de mettre pour la propriété Source contrôle: [Photo] et pour la propriété Image: blank.png (ce qui permet aussi de supprimer les instructions relatives à la longueur du champ Photo)

Cordialement.

P.S. La compilation détecte des erreurs (que je n'ai pas corrigées).

[Lighteux26]

EricDgn, Le forum

Merci beaucoup.

Mise a jour faite, c'est OK.

je me sens très beaucoup bête, car cela a déjà était fait de mettre dans les données le champ Photo, Grrrr.

P.S. La compilation détecte des erreurs (que je n'ai pas corrigées).

Je ne les ai pas chez moi, cela doit être due au suppression pour les liens des images, ne pas en tenir compte, lol.

Pour la recherche avec des nombres (Ref client, Nb De Postition), une question.

Comment faire pour que cette recherche prenne en compte certains critères.

Exemple pour :

1) Ref Client :

si je tape 25, cela va me ressortir en résultat toutes les références qui contiennent 25, (2602520081), alors qu'en fait on fait cette recherche en partant de la gauche et le résultat serait tout se qui commence par la recherche 2500220081, 2530045281

2) Pour Nb De Positions :

Le Nombre positions et le nombre de contacts contiennent les composants (Pour les contacts, j'ai rajouté un champs qui sera forcément 1 qui sera mis en dur automatiquement dans la table, mais obligatoire sinon j'avais une erreur)

Donc pour le nombre de position, il varie de 2 a XXX.

Si je tape 2, cela va me ressortir tout ce qui contient 2, donc 2, 12, 22, 32, 122, 232, Etc

Y'a t'il un moyen de pouvoir tenir compte que si je recherche un 2 position, que cela me sélectionne que les 2 positions? En faite je pense qu'il faut exclure les 2 ou 3 chiffre tenir compte dans la recherche.

Si je cherche un 11 positiosn que cela ne me sélectionne pas les 111 positions.


Merci beaucoup.

Bon week-end ensoleillé.

Le Ligteux26

[Lighteux26]

Re

Pour la recherche des Nb de Position.

TROUVE, je pense; hihihi

J'ai remplacé ca

Code :

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

1
2
3
4
 
        If Nz(Me.Txt_NbDePosition, "") <> "" Then
            sfiltre = sfiltre & " AND [NombreDeContacts] LIKE ""*" & Me.Txt_NbDePosition & "*"""
        End If

Par

Code :

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

1
2
3
4
 
        If Nz(Me.Txt_NbDePosition, "") <> "" Then
            sfiltre = sfiltre & " AND [NombreDeContacts] LIKE """ & Me.Txt_NbDePosition & """"
        End If

Pour la référence Client cela doit être de la même acabit

Merci.

[Lighteux26]

Hello

Pour faire une recherche par Fabricant j'ai voulu remplacer le control textbox par une liste déroulante (Pour des raison de faciliter utilisateur).

Le renseignement de la list est ok, mais le trie ne se fait pas, cela me recherche tout le contenue

Le controle

Code :

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

1
2
3
4
 
Private Sub LBx_Fabricant_AfterUpdate()
    FiltrerComposants
End Sub

Dans cette procédure de trie

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Private Sub FiltrerComposants()
    Dim sfiltre As String
    sfiltre = ""
    With Me.SF_ListeComp
 
        If Nz(Me.Txt_RefClient, "") <> "" Then
            sfiltre = sfiltre & " AND [Reference_Client] LIKE ""*" & Me.Txt_RefClient & "*"""
        End If
 
        If Nz(Me.Txt_RefFabricant, "") <> "" Then
            sfiltre = sfiltre & " AND [Reference_Fabricant] LIKE ""*" & Me.Txt_RefFabricant & "*"""
        End If
 
        If Nz(Me.txt_NomFabricant.Value, 1) <> 0 Then
            sfiltre = sfiltre & " AND [Fabricant] LIKE ""*" & Me.txt_NomFabricant & "*"""
        End If
 
'         If Nz(Me.LBx_Fabricant.Value, 0) <> 0 Then
'            sfiltre = sfiltre & " AND [Fabricant] LIKE ""*" & Me.LBx_Fabricant & "*"""
'        End If
 
 
        If Nz(Me.LBx_Fabricant.Value, 1) <> 0 Then
            sfiltre = sfiltre & " AND Fabricant=" & Me.LBx_Fabricant.Value
        End If
 
 
 
 
        If Nz(Me.Txt_Serie, "") <> "" Then
            sfiltre = sfiltre & " AND [Serie] LIKE ""*" & Me.Txt_Serie & "*"""
        End If
 
        If Nz(Me.Txt_NbDePosition, "") <> "" Then
            sfiltre = sfiltre & " AND [NombreDeContacts] LIKE """ & Me.Txt_NbDePosition & """"
        End If
 
        If sfiltre = "" Then
            .Form.Filter = "[IDComp]=0"     '--- vide la liste (aucun enregistrement)
        Else
            .Form.Filter = Mid(sfiltre, 6)
        End If
        .Form.FilterOn = True
    End With
End Sub

Le code pour trier sur la liste déroulante (Je changerai son nom pour qu'il soit plus parlant et en rapport avec le control)

Code :

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

1
2
3
4
 
If Nz(Me.LBx_Fabricant.Value, 1) <> 0 Then
            sfiltre = sfiltre & " AND Fabricant=" & Me.LBx_Fabricant.Value
End If

L'erreur



Ou ca plante :

Code :

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

1
2
 
            .Form.Filter = Mid(sfiltre, 6)

Je pense que cela ne se gère pas de la même manière avec une liste déroulante.

Merci

Le Ligteux26

[EricDgn]

Bonjour,

Pour ne filtrer en considérant qu'il faut obligatoirement commencer par la gauche, il suffit de supprimer le joker * qui se trouve en début de clause, ce qui donne:

Code :

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

1
2
3
4
        If Nz(Me.txtRefClient, "") <> "" Then
            'sfiltre = sfiltre & " AND [Reference_Client] LIKE ""*" & Me.txtRefClient & "*"""  '--- txt n'importe où
            sfiltre = sfiltre & " AND [Reference_Client] LIKE """ & Me.txtRefClient & "*"""   '--- txt à gauche
        End If

et l'utilisateur peut aussi taper *25 s'il ne sait pas où se trouve le 25 dans la référence.

Cordialement.

[Lighteux26]

Hello

Bonjour,
Et l'utilisateur peut aussi taper *25 s'il ne sait pas où se trouve le 25 dans la référence.

Super merci

Il me semblait avoir essayé sur le nombre de contacts j'avais essayé sur ce champs aussi cela, mais le fait d'avoir supprimé aussi l'autre a droite cela ne fonctionnait pas.

Merci beaucoup.

Bon samedi, Le Lighteux26

[EricDgn]

Pour ce qui est de la liste déroulante des fabricants, que je nommerais Num_Fabricant, sa source devrait être:

Code :

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

SELECT ID_Fabricant, Fabricant FROM T_Fabricants ORDER BY Fabricant;

Le résultat en est ce qui se trouve en colonne 1: ID_Fabricant (qui est de type entier long)

Cet ID_Fabricant doit aussi être présent dans la requête UNION (et donc nécessairement dans chacune des requêtes qui y entre).

Le filtre pour cette partie est ensuite de cette forme:

Code :

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

1
2
3
        If Nz(Me.Num_Fabricant, 0) <> 0 Then
            sfiltre = sfiltre & " AND ID_Fabricant=" & Me.Num_Fabricant
        End If

Pour ce qui du "Nb de position", je ne saisis pas de quoi il s'agit.

Cordialement.

[Lighteux26]

Donc dans les 3 requêtes j'ai rajouté le nécessaire (Je pense) a chaque fois







Requètes R_Comp :

Code SQL :

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

1
2
3
4
SELECT * From R_CompConnecteurs
UNION
SELECT * From R_CompConnecteursCarte
UNION SELECT * From R_CompContacts;

J'ai toujours le même plantage.

Je regarde le type si OK.

Pour ceci.

Pour ce qui du "Nb de position", je ne saisis pas de quoi il s'agit.

c'est ok, c'était à peu de chose près la même chose que pour la référence client, mais sur le nombre de position de connecteurs, connecteur de carte et aussi même si c'est 1, un contact (Mais il fallait le champ, sinon Access était en colère, lol)


Merci beaucoup.

Le Lighteux26

[Lighteux26]

CC

je viens peut être de comprendre mon erreur en rajoutant la recherche avec les Jauges et sections.

Il ne fallait pas rajouter les tables, mais juste les champs du composants dans la requête.

Comme ici :



Je teste

Merci

[EricDgn]

A mon avis, les requêtes "composants" (R_Comp...) devraient être construites comme celle-ci (R_CompConnecteurs):

Code SQL :

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

1
2
SELECT T_Connecteurs.ID_Connecteur AS IDComp, "Connecteur" AS Composant, T_Connecteurs.Fabricant_ID, T_Fabricants.Fabricant, T_Connecteurs.ID_Serie, T_Series.Serie, T_Connecteurs.Reference_Fabricant, T_Connecteurs.Reference_Client, T_Connecteurs.Photo, T_Connecteurs.NombreDeContacts, T_Connecteurs.ID_JaugeSection, T_JaugesSections.JaugeSection
FROM T_JaugesSections RIGHT JOIN (T_Series RIGHT JOIN (T_Fabricants RIGHT JOIN T_Connecteurs ON T_Fabricants.ID_Fabricant = T_Connecteurs.Fabricant_ID) ON T_Series.ID_Serie = T_Connecteurs.ID_Serie) ON T_JaugesSections.ID_JaugeSection = T_Connecteurs.ID_JaugeSection;

Les champs _ID n'étant ensuite pas affichés (Visible: Non) dans le sous-formulaire, mais utilisés pour effectuer les filtrages à partir des listes déroulantes correspondantes.

A noter que les relations ont un sens (double-cliquer sur le trait qui relie les champs et sélectionner ce qui convient selon ce que l'on cherche à présenter).

Cordialement.

[Lighteux26]

Cc

Je regarde dès que je rentre de mon taff, vers 4-5h, lol

Merci.

[Lighteux26]

Hello EricDgn, le forum

Après quelques déboire, frayeur, on efface et recommence, lol.

Cela se passe plutôt pas mal, merci EricDgn.

Une amélioration je pense sera a faire, pour avoir ce mode de recherche, mais sans pouvoir modifier les données, car la je crains des mauvaises manipulations, mais cette approche sera bien, car comme les données ne sont pas fini d'être renseignées, cela permettra de le faire plus rapidement.

Je vais laisser le post un moment ouvert, car je fais pas mal de test.

Merci.

Le Lighteux.