Discussion :

[Alias_2003]

Bonjour Claude !
MERCI !!
C'est un support indispensable à ma formation ! Il va me falloir plusieurs jours pour comprendre tout ça, faire les tests... Mais je ne serai pas loin et je reviens !
Merci encore,
Bonne journée !

[ClaudeLELOUP]

À quand tu veux (peux) !

[Alias_2003]

Oui, avec grand plaisir !!

[Alias_2003]

Bonjour Claude, le Forum,
Je commence peu à peu à m'approprier la bdd et en comprendre le fonctionnement. En l'utilisant, j'ai constaté qu'en cas d’entrée conséquente (>15 saisies), la liste ne pouvait s’étendre que jusqu’à un certain niveau, avant de ne plus être visible. Qu'en penses-tu ?
Merci beaucoup,
Bonne journée

[ClaudeLELOUP]

Bonjour Alias,

Qu'en penses-tu ?

Eh bien, que c'est une lacune qu'il faut pallier !

Je te reviens quand j'ai une solution.

À +.

[Alias_2003]

Bonjour Claude,
Merci beaucoup de ta patience...
Bonne journée !

[ClaudeLELOUP]

Bonjour Alias,

Il est probable qu’en utilisant des API, on puisse contrôler si un formulaire déborde de la fenêtre de l’application. J’ignore comment, mais sait-on jamais, si un virtuose de la chose passait par ici…

J’ai choisi une méthode plus artisanale et plus abordable pour le vulgum pecus que je suis.

J’ai défini une constante :

Code :

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

1
2
3
4
5
6
Option Compare Database
Option Explicit
 
Public Const iLimite As Integer = 10 'Nbre d'enregistrements que l'on peut afficher
                              'dans fEncoEntree et fRealiquot.
                              'Au-delà, on n'agrandit plus le formulaire

J’ai fixé 10, il suffit d’adapter en fonction de la taille de votre écran.


Le code de Private Sub BtSuivant_Click() a été légèrement modifié :





N.B. La BdD est adaptée sur le site. Pour la note, je laisse un peu décanter avant de la mettre à jour.

[Alias_2003]

Bonjour Claude, le Forum,
Je suis toujours là !! J'ai bien avancé et je pense avoir compris l'essentiel !
Merci beaucoup !!

[ClaudeLELOUP]

Bonjour Alias,

Content de te recroiser !

[Alias_2003]

Merci !!

[Alias_2003]

Bonjour Claude, le Forum,
je reviens vers toi pour une question : est-il possible d'ajouter au formulaire fManip, un bouton permettant d'ajouter une nouvelle manipulation à la liste de manipulation déjà disponible ??



Merci beaucoup pour tout !
Bonne journée,
Nadège

[ClaudeLELOUP]

Bonjour,


Mais il te suffit d'ajouter une ligne dans la table !

[Alias_2003]

Bonsoir Claude !
Merci de ta réponse si rapide ! Je n'ai pas été clair dans ma demande... En fait, mon souhait était de ne pas faire l'ajout directement dans la table : je souhaite que la liste pré-définie ne soit pas modifiée par les utilisateurs.
Par contre, si la manipulation faite par un laborantin n'est présente dans la liste (cas exceptionnels), il faudrait qu'il lui soit possible pour lui d'ajouter une manipulation non présente dans la liste.
Avec Excel, j'aurais créé dans ma liste un champ "Autre" et lorsque l'utilisateur aurait cliqué sur "Autre", une inputbox se serait affichée permettant la saisie d'un texte. Par contre, avec Access...
Bonne soirée !

[ClaudeLELOUP]

Avec Excel, j'aurais créé dans ma liste un champ "Autre" et lorsque l'utilisateur aurait cliqué sur "Autre", une inputbox se serait affichée permettant la saisie d'un texte.

Et ensuite, qu'aurais-tu fait du texte entré dans l'inputbox ?

[Alias_2003]

Code :

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

Et ensuite, qu'aurais-tu fait du texte entré dans l'inputbox ?

je l'aurais afficher comme choix sélectionné dans la combobox... Mais pas sûr que ce soit possible...

[ClaudeLELOUP]

je l'aurais affiché comme choix sélectionné dans la combobox...

Oui, mais alors, pourquoi ne pas l'ajouter dans la table ? Ce que je ne comprends pas, c'est la raison pour laquelle tu ne choisis pas cette voie.

Comme en l'occurrence, il s'agit d'une table très simple, on pourrait adopter la procédure décrite ici dans la FAQ : http://access.developpez.com/faq/?page=zdl#AbsDsListe

[Alias_2003]

Bonjour Claude,
Merci de ta réponse, je pense que tu as raison ! En effet, je me complique inutilement la vie !!
Ta solution est la bonne !

[ClaudeLELOUP]

Bonjour Alias,

J’ai donc ajouté au contrôle « cboCause » de fManip ce code copié dans la FAQ :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub cboCause_NotInList(NewData As String, Response As Integer)
  If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des manipulations ?", _
                       vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
        DoCmd.RunSQL "INSERT INTO tCausesPrelev ( CausePrelev ) SELECT """ & NewData & """;"
        Response = acDataErrAdded
    Else
        Response = acDataErrContinue
        Me.cboCause.Undo
    End If
End Sub

P.-S. BdD mise à jour http://claudeleloup.developpez.com/t...taireTubes.mdb

[Alias_2003]

Bonsoir Claude, le Forum,
MERCI !! C'est juste parfait !!!
Merci beaucoup,
Bonne soirée