Discussion :

[PASCALITA]

Aie aie aie Michel !
j'ai créé le formulaire avec la requête clients/contacts, puis la boite combinée.
Ca fonctionnait ... avec des bug mais ça fonctionnait.
SAUF QUE C'EST INUTILISABLE : parce que si un client a 2 contacts , ce formulaire ne me donne pas la possibilité de consulter le 2e contact.
Le sous-formulaire est utile si, à une valeur du formulaire, correspond plusieurs valeurs tu me l'as écrit et je ne l'ai pas lu avec l'attention qu'il fallait.
Alors je suis revenue à mon formulaire et son sous formulaire.
Retour à la case départ.
Je décide de suivre la méthodologie access que j'ai pratiqué sur PC :
Je crée donc une requête que j'appelle "liste clients" comprenant 3 champs : ID clients, nom et prénom, qui me servira de source.
J'ajoute une combo box à mon formulaire.
dans l'onglet données , type de contenu : requête , puis contenu de liste : liste Clients
dans l'onglet évènement : il faudrait créer un code après mise à jour rechercher l'enregistrement correspondant au contrôle, genre "AfterUpdate() Dim rs As Object Set rs = Me.Recordset.Clone
je ne connais pas le language SQL et je ne sais pas où on doit le rentrer .... dans access il y a après MAJ, mais je ne peux pas les créer.
Peux tu m'aider ?

[Michel]

Effectivement, il faudra un sous-formulaire dans ce cas.
Ce sous-formulaire doit avoir des propriétés et il faudra effectuer la même démarche que pour le formulaire.
Je vais essayer de faire une petite simulation sur l'exemple fourni mais cela risque de prendre un peu de temps vu le weekend et le lundi de Pentecôte.
Patience !!!

[Michel]

Je viens de regarder l'exemple envoyé apres avoir ajouté quelques contacts pour un même client

Si j'ouvre le formulaire, en bas, j'ai bien 2 enregistrements pour le client 1 et je peux passer de l'un à l'autre avec les flèches

et donc, si comme il était proposé je n'affiche qu'un contact à la fois, cela fonctionne sinon, il faudra un sous-formulaire

[Michel]

voila, cela fonctionne avec la même macro (je l'ai reconstruit avec OpenOffice pour éviter les problèmes)
Au départ, le formulaire principal utilise la table client et le sous-formulaire la table contact en liant les champs ref client et id client.
on rempli selon ce qu'on désire et on vérifie.
Ensuite, on modifie le formulaire ;on remplace la requête par une instruction sql

Code :

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

SELECT * FROM "Clients"

qui sera modifiée par la procédure basic.(A ce stade, on a plus besoin de la table contact puisque son usage est défini par le sous-formulaire)
On ajoute la liste combinée avec
dans l'onglet données

• type de contenu liste : sql
• contenu de liste :SELECT DISTINCT "Nom" FROM "Clients"

dans l'onglet événement , le choix est le même que dans le cas précédent :status modifié et on sélectionne la macro ActualiserListe

voila, c'est tout et c'est plus simple

Un petit exemple minimaliste :Nouvelle base de données - copie5.odb.zip
Bon courage

Remarque: sur le fond, il y a un problème : que se passe-il si deux clients ont le même nom ? cela risque d'être la cata mais c'est un autre débat !

[Michel]

J'ai une solution. La liste ne peut contenir qu'un champ par ligne. Donc, il faut modifier la requête de la liste de façon à inclure (concatener) l'ID client. Je suis obligé de le mettre à la fin pour pouvoir garder la possibilité de taper le début d'un nom. J'en profite pour ajouter la macro à un deuxième événement :texte modifié sinon, dans ce cas, cela ne fonctionne pas

Code :

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

SELECT CONCAT( "Nom", CONCAT( '-', "ID client" ) ) AS "nom_ID" FROM "Clients"  order by "Nom"

Ensuite, j'adapte la requête SQL de la macro pour tenir compte de cette nouvelle chaîne.

Code :

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

 RequeteSQL =" SELECT ""Clients"".*, ""Contacts"".* FROM ""Contacts"", ""Clients"" WHERE ""Contacts"".""Ref client"" = ""Clients"".""ID client""  and concat(Nom,concat('-',""Clients"".""ID client"")) = '" + Choix + "'"

C'est un peu long mais cela permet de sélectionner le bon enregistrement.
Voilà, on y est mais on peut certainement faire mieux !
Voilà la dernière version : Nouvelle base de données - copie6.odb.zip

[PASCALITA]

voila, cela fonctionne avec la même macro (je l'ai reconstruit avec OpenOffice pour éviter les problèmes)
Au départ, le formulaire principal utilise la table client et le sous-formulaire la table contact en liant les champs ref client et id client.
on rempli selon ce qu'on désire et on vérifie.
Ensuite, on modifie le formulaire ;on remplace la requête par une instruction sql

Code :

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

SELECT * FROM "Clients"

qui sera modifiée par la procédure basic.(A ce stade, on a plus besoin de la table contact puisque son usage est défini par le sous-formulaire)
On ajoute la liste combinée avec
dans l'onglet données

• type de contenu liste : sql
• contenu de liste :SELECT DISTINCT "Nom" FROM "Clients"

dans l'onglet événement , le choix est le même que dans le cas précédent :status modifié et on sélectionne la macro ActualiserListe

voila, c'est tout et c'est plus simple

Un petit exemple minimaliste :Nouvelle base de données - copie5.odb.zip
Bon courage

Remarque: sur le fond, il y a un problème : que se passe-il si deux clients ont le même nom ? cela risque d'être la cata mais c'est un autre débat !

Bonjour michel,
Week end chargé ... je me remets sur ma base de données ..
Malheureusement à ce stade : dans l'onglet événement , le choix est le même que dans le cas précédent :status modifié et on sélectionne la macro ActualiserListe je ne peux plus avancer , parce que la macro actualiser liste n'existe pas ....

[Michel]

Normal, le faut la créer
marco gerer les macro ->openoffice , sélectionner la beuille correspondant la base pour que la macro soit dans la feuille ensuite "standart et nouveau et encoder la macro

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
 
REM  *****  BASIC  *****
option explicit
 
Sub ActualiserListe(Evt as object)
dim ListClient as object, Formulaire as object
dim RequeteSQL as string, Choix as string
 
 ListClient = Evt.source                    'La liste déroulante
 
Choix =  ListClient.SelectedText            'Choix fait dans la liste
Formulaire =  ListClient.model.Parent            'On "remonte" au parent (le formulaire)
 
'SELECT clients.* FROM clients WHERE client.nom ='FIARDA' 
'Concaténation avec le choix fait dans la liste
' RequeteSQL = "SELECT * FROM Clients  WHERE Nom = '" + Choix + "'"
 RequeteSQL =" SELECT ""Clients"".*, ""Contacts"".* FROM ""Contacts"", ""Clients"" WHERE ""Contacts"".""Ref client"" = ""Clients"".""ID client""  and concat(Nom,concat('-',""Clients"".""ID client"")) = '" + Choix + "'"
Formulaire.command = RequeteSQL                'Redéfinition de la source du formulaire
Formulaire.reload
end sub

[PASCALITA]

Tout cela ne fonctionne pas ...
Voici la macro qui avait été créée sur Access pour ce même contrôle (recherche de clients) dans une zone de liste déroulante.
J'ai modifié zonecombinee1 au lieu de modifiable59 dans access.
Mais ça ne fonctionne pas ... Il y a une erreur sur Me

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub zonecombinee1_Afterupdate()
 
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    ' tester la valeur nulle
    If Not Isnull(Me![zonecombinee1]) Then
    rs.FindFirst "[id_clients] = " & Str(Me![zonecombinee1])
    Me.Bookmark = rs.Bookmark
    End If
End Sub

[Michel]

Access, ce n'est pas libreoffice !
Me.quelquechose n'existe pas en OoBasic, il faut utiliser une autre méthode.
J'ai fourni un exemple basé avec une liste combinée et une macro qui fonctionne en tenant compte les informations fournies et cela sur LO et sur OpenOffice.
Bricoler une procédure access risque de poser plus de problèmes que d'en résoudre.
Je me demande si tout ne vient pas d'une méconnaissance grave du basic d'OpenOffice et je ne peux que conseiller d'aller lire les tutos qui sont sur ce site avant de se lancer tête baissée.
Cela prend un peu de temps, d'accord, mais si j'en juge pas le temps que dure cette discussion, je crois que la solution pourrait être trouvée beaucoup plus rapidement !
Je ne peux pas faire plus que de fournir une solution qui fonctionne pour l'exemple fourni !!!!

[PASCALITA]

Absolument Michel, méconnaissance certaine... bon je vais essayer autrement ...
La base de données n°6 que vous m'avez envoyé ne fonctionne pas ; les noms dans le contrôle de recherche se superposent ...
je vous remercie beaucoup pour votre temps...

[Michel]

quand tu dis les noms se superposent cela veut dire quoi ?
Il arrive qu'en passant d'une version à une autre certains contrôles se déplacent; pour corriger cela, il suffit d'éditer le formulaire et es les déplace.
Remarque: contrairement à access, le formulaire est une simple page de texte avec les champs placés dessus .

[PASCALITA]

il ne s'agit pas d'un déplacement de contrôle .
Ce que je trouve bizarre aussi, c'est qu'en passant en mode ébauche, le client "PIT" est affiché dans le contrôle supérieur ... alors que normalement en mode ébauche, il n'y a aucun élément des tables , seuls les contrôles .....

[Michel]

Effectivement, c'est un bug; normalement, en mode ébauche ou édition,il affiche parfois la dernière fiche sur laquelle on a travaillé mais ici, il y a un raté !
Cependant, cela n'a aucune influence sur le mode de fonctionnement normal. Je reconnais qu'il y a encore quelques problèmes avec Base et pour moi, c'est le module le moins abouti de LibreOffice/OpenOffice.
voila ce que cela donne chez moi
Edition

Utilisation

Si cette erreur est trop gênante, il suffit d'ajouter une nouvelle liste combinée, de comparer et adapter les propriétés et événements des deux, de tester et si la nouvelle fonctionne correctement, de supprimer l'ancienne.
Ne pas supprimer l'ancienne directement permet de comparer facilement les propriétés des deux jusqu'à ce qu'elles soient identique.

[PASCALITA]

D'accord... je comprends mieux.
Pas facile d'essayer de comprendre avec des bugs surprise...
Je vais essayer ça. Et puis si ça ne fonctionne pas, je crois que je vais jeter l'éponge ...
Je n'ai pas encore de plan B ; j'aimais bien développer mes formulaires en fonction de mes besoins.
Je sais qu'il existe des logiciels commerciaux prêt à l'emploi mais ça me plaisait moins ...
Encore Merci Michel.

[PASCALITA]

J'ai trouvé !!!!
Le contrôle de recherche que je voulais créer servait à afficher dans mon formulaire les infos d'un client X : et bien il n'est pas nécessaire de créer un contrôle sous forme de zone de liste ou combo box ou autre !!!!
il suffit de cliquer sur la paire de jumelle en bas à gauche à coté de "enregistrement" - Une fenêtre de recherche s'ouvre : je n'ai ^lus qu'a mettre le nom du client qui m'intéresse !!!!
hiiiiiiihaaaaa !
bonne journée Michel !
et encore merci pour ton temps

[Michel]

Et oui, on cherche parfois bien loin ce qui est sous notre nez !
Mais ce n'est pas perdu car c'est la base de recherches utilant plusieurs critères(nom +date + localié par exemple)
Bonne continuation !