Aide pour debuter sur une base de données

M

Moa

XLDnaute Occasionnel

• 7 Octobre 2006

• #2

Re : Aide pour debuter sur une base de données

Salut Paul87 !

Regarde ton fichier j'y ai mis le début


Bonne continuation

@ +++

ChrisOne

 

Pièces jointes

• base.zip

  38.2 KB · Affichages: 51
• base.zip

  38.2 KB · Affichages: 55
• base.zip

  38.2 KB · Affichages: 51

Vote positif 0 Vote négatif

A

allegro50

XLDnaute Occasionnel

• 7 Octobre 2006

• #3

Re : Aide pour debuter sur une base de données

Bonsoir Paul

Ci-joint une approche a finaliser

 

Vote positif 0 Vote négatif

A

allegro50

XLDnaute Occasionnel

• 8 Octobre 2006

• #4

Re : Aide pour debuter sur une base de données

Oups ! j'ai oublie de le zipper !

 

Pièces jointes

• base2.zip

  36 KB · Affichages: 51
• base2.zip

  36 KB · Affichages: 49
• base2.zip

  36 KB · Affichages: 49

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 8 Octobre 2006

• #5

Re : Aide pour debuter sur une base de données

Bonsoir,
Merci !! à vous Moa et allegro50.
les deux versions fonctionnent..!!
j'ai encore besoin d'aide ....j'aurais besoin de faire apparaitre dans la ListBox1 (à l'ouverture du UF)..la valeur du TextBox2 pour les lignes ou enregistrements pour les quels la CheckBox1 n'est pas cochée...
et de pouvoir selectionner dans cette liste afin ré-afficher les valeurs correspondantes (ceci dans le but de pouvoir faire des mises à jour sur des lignes non cloturées....)
Je ne sais pas si je suis tres clair...
Merci beaucoup

 

Pièces jointes

• base2.zip

  37.5 KB · Affichages: 31
• base2.zip

  37.5 KB · Affichages: 32
• base2.zip

  37.5 KB · Affichages: 33

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 8 Octobre 2006

• #6

Re : Aide pour debuter sur une base de données

Bonsoir Cher Moa, Bonsoir Allegro50, Bonsoir Paul87; Bonsoir ami du soir et de la nuit...

J'ai regardé vos démos, les bases de départs sont correctes, par contre au regard de la dernière demande de Paul, il y a encore du boulot.

Voici une démo un peu plus poussée pour les besoins de notre ami Paul...

Je pense qu'il sera plus que satisfait...

Pour bien comprendre, regarder dans la fenêtre Propriété de chaque Contrôle afin de bien surveiller la Propriété "Tag" (merci encore à magic _Ti) qui contient en fait la Lettre Correspondante à la Colonne de la Feuille Database, car toute la structure de ce programme est basée la dessus...

Pour le reste surtout pour la partie Modification des SAE non cloturés, il faut aussi une Clef Unique d'Enregistrement (primordiale) j'ai donc misé sur le SAE numéro...

Enfin je vous/te laisse découvrir...

Bonne Nuit

@+Thierry
​

 

Pièces jointes

• USF_Input_DataBase.zip

  46.2 KB · Affichages: 74

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 8 Octobre 2006

• #7

Re : Aide pour debuter sur une base de données

Bonjour à tous,.
C'est vraiment génial....Merci Beaucoup à toi Thierry.
Mais là c'est vraiment un peu trop ardu pour moi (petit niveau/débutant)..
si je comprends bien, c'est le TextBox3(SAEN°) qui sert de clé d'indexage..un peu comme dans une base Access.
Seulement dans mon projet j'avais prévu que plusieurs SAE soient possibles par Idtest..donc le TextBox3(SAEN°) serait rempli "manuellement": 1, 2, 3 etc,,,
donc ne serait-il pas possible que cette clé d'enregistrement soit un nouveau champ pour laisser ce TextBox libre?
De plus...et pour finir, serait-il possible que dans la ListBox1 soient affichées les valeurs de TextBox2..(qui représente les Id de mes sujet Testés, plutôt que les N° d'enregistrement...
Après ça nous aurons atteint l'idéal.
Merci par avance....car là je suis hors course...Pour l'instant..

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 8 Octobre 2006

• #8

Re : Aide pour debuter sur une base de données

Bonjour Paul, Moa, Allegro50, le Forum

OK, donc j'ajoute une colonne en "P" qui s'auto-incrémentera du numéro d'enregistrement en clef Unique...

Et je libère donc tous tes autres champs... sur le champs lol

Bon Aprèm

@+Thierry
​

PS J'ai fait vite fait, j'espère que ça n'engendrera pas un bug imprévu, à toi de tester/recetter...

 

Pièces jointes

• USF_Input_DataBase_V01.zip

  28.5 KB · Affichages: 75

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 8 Octobre 2006

• #9

Re : Aide pour debuter sur une base de données

Re Bonjour....ce que tu m'as fait est vraiment super!!!!
Merci 1000 FOIS....j'en aurais été bien incapable en l'état actuel de mes capacités...😱
Serait-il possible toutefois d'avoir deux ultimes modifications...?
Que le TextBox3 à l'ouverture du UF soit vide...
Que la ListBox1 n'affiche que le contenu de la TextBox2 (l'affichage de la clé d'enregistrement risquant de créer des confusion chez les utilisateurs)
Je crois qu'après cela ce sera + que Parfait

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 8 Octobre 2006

• #10

Re : Aide pour debuter sur une base de données

RE Bonjour Paul, le Forum

Heureux de t'avoir rendu service !

Pour les modifs c'est assez simples, tu vas dans le Private Module du UserForm1 et tu changes comme ceci :

Dans cette Procédure :
Private Sub UserForm_Initialize()

Partie :
With Me.ListBox1
.ColumnCount = 2
.ColumnWidths = "55;55"

Changement :
With Me.ListBox1
.ColumnCount = 2
.ColumnWidths = "110;00"


Partie :
With Me
.CommandButton9.Visible = False
.TextBox3 = "SAE"
End With


Changement :
With Me
.CommandButton9.Visible = False
End With


C'est tout !

Bonne Fin de Journée

@+Thierry
​

 

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 8 Octobre 2006

• #11

Re : Aide pour debuter sur une base de données

c'est super parfait...mais😱 j'aurais du y penser tout à l'heure...😱
Dans un soucis de lisibilité....
toujours dans ce TextBox1 à la place de la clé d'enregistrement (que j'ai pu faire disparaitre) serait-il possible d'avoir la valeur du ComboBox1...
Après ça ...Plus de question...
ce sera opérationnel...
il ne me restera plus qu'a utiliser...!!!

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 8 Octobre 2006

• #12

Re : Aide pour debuter sur une base de données

re Paul, re le Forum

Pas vraiment certain de te suivre sur ce coup là...(La Clef d'enregistrement était dans un Label et pas dans une TextBox)

La TextBox1 dans ton UserForm correspond au Label3 "Rando N°"...

Si c'est bien ceci que tu souhaites obtenir, alors tu ajoutes cette Private Sub, toujours dans le Code du UserForm1 (où tu veux, pourvu qu'elle ne soit pas inserrée dans une autre Sub, mais en dehors !)

Code:

Private Sub ComboBox1_Change()
Me.TextBox1 = Me.ComboBox1
End Sub

@+Thierry
​

 

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 8 Octobre 2006

• #13

Re : Aide pour debuter sur une base de données

RE-
Non non Désolé je me suis mal exprimé..
c'est lors de ce changement là
[CODEPartie :
With Me.ListBox1
.ColumnCount = 2
.ColumnWidths = "55;55"

Changement :
With Me.ListBox1
.ColumnCount = 2
.ColumnWidths = "110;00
[/CODE]

je souhaite maintenant que dans cette ListeBox1, en plus du contenu du TextBox2 il y ait aussi le contenu du ComboBox1
Voilà..!

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 8 Octobre 2006

• #14

Re : Aide pour debuter sur une base de données

Re

Arf, tu mets la charue avant les boeufs sur ce coup là lol !

Comment puis savoir ce que tu vas choisir dans la ComboBox1 (soit Test_Ref (AB1, BB1, AB2, BB2... etc) Avant l'initialisation de la ListBox1....

Non là tu devrais me parler de la Colonne "A" de la Feuille DataBase (et pas de la ComboBox1), pour remonter cette information dans la ListBox1 pour les enregistrements Non_Clos....

Mais hélas, pour ce faire il faut pratiquement tout reprendre, car même si je t'ai fait masquer la Colonne 2 de la ListeBox1 (Largeur 00)...

L'information existe belle et bien et elle est indispensable car c'est cette fameuse Clef d'Enregistrement unique qui s'y trouve !!!

Donc là ça devient trop fastidieux de faire encore une version de ce programme, une petite modif simple sera de concaténer en colonne 1 de la ListBox1 les valeurs de la Colonne "B" et de la colonne "C" de la Feuille "Database"...

Comme Ceci

Code:

With Me.ListBox1
.ColumnCount = 2
.ColumnWidths = "[B]110;00[/B]"
    For L = 1 To UBound(Plage, 1)
        If Plage(L, 15) = False Then
           .AddItem Plage(L, 2) [B][COLOR=seagreen]& "  |  " & Plage(L, 1)
[/COLOR][/B]           .Column(1, X) = Plage(L, 16)
           X = X + 1
        End If
    Next
End With

Là ce devrait passer sans mettre le "why" dans le reste des algos...

Bonne Soirée

@+Thierry
​

 

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 8 Octobre 2006

• #15

Re : Aide pour debuter sur une base de données

BONSOIR....!!!!
Ce coup -ci c'est FOR MI DABLE...
MERCI BEAUCOUP...🙂
Pour ton aide trés sympathique..

 

Vote positif 0 Vote négatif