Discussion :

[grisan29]

bonjour Jeannot45, Jimbolion et le forum

jeannot45 merci de ta réponse que vais essayer de voir un peu plus cet après midi, mais ai je réellement besoin d'un groupe d"optionbutton, peut être comme tu le suggère ce sera suffisant

4. A propos de l'option de recherche. Dans ton formulaire, pour ton option "Effectuer dans la recherche courante", tu as utilisé un groupe d'option. Dans le code, l'élément à tester n'est donc pas opt_RechCourante mais Cadre17. Il te serait plus simple de supprimer ce groupe d'options et de créer un autre contrôle indépendant de type bouton radio qui pourrait prendre la valeur 0 (faux) ou -1 (Vrai).

je reviens tout a l'heure

Pascal

[Jeannot45]

Trop top Jean-Marie

[jimbolion]

Jeannot ,

J'ai indépendamment traité le problème de Damkre de celui de Grisan29 dont j'ai peu suivi le problème (ayant vu que tu t'y étais intéressé ).
Mais peut être qu'au moment de l'exploitation des résultats, cette fonction intéressera tout le monde.

@++

Jim

[grisan29]

bonjour Jeannot45,Jimbolion

jimbolion je suis comme jeannot admiratif de ce que tu as fait pour Damkre et je vais te noter, mais je crois que lui comme moi désirons que le contenu de chaque table apparaissent dans le cbo_champs une fois le choix de la table fait dans le cbo_table

Pascal

[jimbolion]

grisan29,

je n'avais pas noté un problème de ce côté là !

je regarde

jim

[jimbolion]

grisan29,

je viens dans l'exemple suivant de créer une table T_livres et en sélectionnant la table et le contrôle se met bien à jour

l'exemple ici : dbrec.zip

jim

[grisan29]

bonjour Jimbolion

merci de ton dernier fichier mais la cbo champs reste a aficcher le contenu des champs de la table T_DVD

je pense que c'est parce que son contenu est figé a T_DVD, mais si je choisi livres dans le contenu c'est bon, mais le mieux serai en cascade comme sur excel

pascal

[Jeannot45]

@ Grisan29

Je ne comprends pas bien, je t'ai envoyé une base qui fait ce que tu demandes
Y a t il un problème qui subsiste ?

mais je crois que lui comme moi désirons que le contenu de chaque table apparaissent dans le cbo_champs une fois le choix de la table fait dans le cbo_table

C'est ce qui se passe dans la base que je t'ai jointe

[grisan29]

bonjour Jeannot45, Jimbolion, damkre et le forum

pour ma part mon souci a été grace a teamviewer ou jimbolion a remarqué que cela venais de l'activation de mes macros
il est vrai que je débute avec access, car sur excel c'est l'une des 1ère choses que je regarde

merci a vous de votre disponibilité et connaissance qui me font progresser dans l'apprentissage et je ne manquerai pas de poster mon avancement plus tard ou alors les points les point noirs
pour ma part

jeannot45 je vais rouvrir ton fichier pour voir comment c'est maintenant que mes macros sont actives

au plaisir

Pascal

[grisan29]

A propos de la nouvelle version que tu as postée :
1. j'ai décelé une erreur sur le type de donnée du champ "nom" de la table tbl_tempLstTbl. Celui-ci doit être de type texte et nom de type NumAuto
2. il y a toujours la même erreur au niveau de la procédure Après_MAJ de la liste cbo_Table

Code :

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

1
2
3
4
5
Private Sub cbo_table_AfterUpdate()
    Me.cbo_champ.RowSourceType = "Field List"
    Me.cbo_champ.RowSource = Me.cbo_Table
    Me.cbo_champ.Requery
End Sub

Il te faut ajouter le type de la source de ta liste déroulante (Liste de champs) et modifier la RowSource de ta liste déroulante comme je te l'avais déjà indiqué le 04/09.
3. Le nom du champ critère est toujours différent dans le formulaire(txt critère) et dans le code (txt_critere)
4. A propos de l'option de recherche. Dans ton formulaire, pour ton option "Effectuer dans la recherche courante", tu as utilisé un groupe d'option. Dans le code, l'élément à tester n'est donc pas opt_RechCourante mais Cadre17. Il te serait plus simple de supprimer ce groupe d'options et de créer un autre contrôle indépendant de type bouton radio qui pourrait prendre la valeur 0 (faux) ou -1 (Vrai). Il te faudra ajouter également une ligne sur la procédure Form_Open

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Open(Cancel As Integer)
Me.Opt_RechCourante = 0
' crée la liste des tables
If lf_GetTableList() = 0 Then
   MsgBox "Pas de tables dans cette application .", vbInformation + vbOKOnly, "Erreur"
   Cancel = True
End If

End Sub

Je te joins ta base modifiée.

bonjour Jeannot45
je viens te dire que ta version fonctionne correctement, il y juste un problème avec la largeur des colonnes de listes des résultats, mais je pense y arriver

Pascal

[jimbolion]

grisan29,

Et bien un membre heureux me rends également heureux

pour la largeur des colonnes, il faut t’inspirer de mon code (le fameux ou tu m'as mis +1). Il n'est pas implémenté d'origine

Jim

[grisan29]

re jimbiloion

c'est ce que je viens de faire et pour les points j'en ai mis a toi et jeannot45 pour tous vos intervention de ce post et si j'avais pu j'aurais mis 10/10
je vais voir ausi pour enlever les optionsbutons qui ne servent pas a grand chose
Pascal

[jimbolion]

bravo

[grisan29]

re jimbolion
j'ai enlever le groupe d'optionbutton et la listrésultat ne se charge plus


Pascal

[jimbolion]

Pascal,

ton code était t'il branché derrière ce groupe d'options ?

jim

[grisan29]

Jean Marie

c'est dans le classeur que Jeannot a mis dans le post http://www.developpez.net/forums/d14...e/#post7954944 que j'ai essayer de le faire et je prépare mon repas de ce soir et après je m'y remets, car la finalité est de l'intégrer a un classeur de devis/facturation

Pascal

[jimbolion]

ok !

de toute façon tu as toutes les billes pour finaliser ton projet...


bon courage et n'hésites pas

[grisan29]

bonsoir Jimbolion

merci de ton soutien , mais je ne crois pas avoir toutes les billes nécessaires pour mon classeur en projet, je crois que le forum dvp access en a aussi en stock au cas où

je vais laisser la place pour Damkre car je l'ai prise d'assaut

bonne soirée et bon dimanche

Pascal

[grisan29]

re jimbolion

je n'arrive pas a coordonné les largeurs de colonnes même en changeant les données dans le code

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
Function Recupere_Champ(matable)
Dim DB As DAO.Database
Dim tb As TableDef
Set DB = CurrentDb
Dim lng_chaine As String
lng_chaine = ""
'
Set tb = DB.TableDefs(matable)
 'spécifie le nombre de colonnes en fonction des champs retournés
 Me.lst_Resultat.ColumnCount = tb.Fields.Count
 '
 For Each chp In tb.Fields
        'Debug.Print chp.Name, chp.Type, chp.Size
        Select Case chp.Type
        Case 1, 2 ' booleen + byte
            lng_chaine = lng_chaine & "567;" 'numéro
        Case 4, 6 ' entier long + reel simple
            lng_chaine = lng_chaine & "534;" '1134
        Case 10 ' texte court
            lng_chaine = lng_chaine & Trim(chp.Size * 0.02 * 567) & ";"
        Case 12 ' texte long = memo
            lng_chaine = lng_chaine & "535;"
        Case 5 ' monnaie
            lng_chaine = lng_chaine & "517;"
        Case 8, 7 ' Date + reeldouble
            lng_chaine = lng_chaine & "534;"
        Case Else ' le reste à 0
            lng_chaine = lng_chaine & "0;"
        End Select
 
 Next chp
 '
 ' applique le calcul de colonne
 Me.lst_Resultat.ColumnWidths = lng_chaine
DB.Close
Set tb = Nothing
Set DB = Nothing
End Function

je te joints un apercu pour mieux visualiser Pièce jointe 155582

en fait la 1ere est bien, la 2ème peut être réduite, la 3ème doublée voir triplée, les suivantes diminuées
les "case" sont mises par 2 donc si je touche une cela influe sur l'autre et j'hésite a mettre une "case" pour chaque
Pascal

[jimbolion]

Grisan29,

tout se joue sur cette valeur

Code :

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

1
2
Case 10 ' texte court
            lng_chaine = lng_chaine & Trim(chp.Size * 0.02 * 567) & ";"

567 est une valeur exprimée en twips => 567 twips = 1 cm
en mettant 0.03 en lieu et place de 0.02 cela va élargir ta colonne. J'ai effectivement placé des valeurs de référence arbitraires, à chacun d'adapter.
En réduisant la taille de ton champ pour la valeur taille, cela devrait réduire la largeur de la colonne également.

Jim