Gérer des paramètres d’application

Ces articles pourraient également vous intéresser...

10 réponses

  1. Hervé Inisan dit :

    mel > Il faudrait que la fermeture du 1er formulaire déclenche quelque chose comme :

  2. mel dit :

    Merci, le premier formulaire se lance au demarrage pour la saisie des infos de la societe et apres un formulaire (menu general) se lance et desormais ce menu se lance au demarrage ?

  3. Hervé Inisan dit :

    mel > Euh.. Est-ce que tu peux préciser ? La partie “formulaire qui se lancera au lancement” n’est pas claire ;)

  4. mel dit :

    Merci, j’ai creer un formulaire sur cette table, je voudrais que se lance au demarrage de la base et apres saisie une autre formulaire qui se lancera desormais au lancement. Comment faire? Merci

  5. Hervé Inisan dit :

    david > De rien ! :)

  6. david dit :

    Merci Hervé !

  7. Hervé Inisan dit :

    david > Il s’agit de la fonction StringFormat() mais pas StingFormat() (le “r” manque). Attention : il ne s’agit pas d’une fonction “native” Access, il faut que tu la reprennes sur cette page du site.

  8. david dit :

    Bonjour Hervé,
    Merci pour la réponse ! Désolé du retard :=) j’ai complétement oublié que j’avais posé une question!
    Mais j’avais entré un paramètre différent dans la table (faute de frappe).
    Donc, résolu !
    Par contre la compilation provoque une erreur au niveau de StingFormat. Le message est “Sub or function not defined”.
    Je suis sur Access2010 et W7 PRO 64BIT.
    Si tu as une explication je suis preneur. Merci beaucoup.
    david

  9. Hervé Inisan dit :

    david > S’il s’agit de modifier la légende des boutons à l’aide de paramètres, ça devrait marcher (testé sur Access 2013 notamment).

    • Est-ce que le bug pourrait provenir du If ?
    • staff_ctrl est de quel type ?
  10. david dit :

    bonjour,
    c’est une bonne idée que cette table de paramètres.
    par contre la fonction GetParam()ne fonctionne pas sur les boutons.

    voici mon code:

    Private Sub bt_ctrl_Click()
    On Error GoTo Err_bt_ctrl_Click

    If Me.[staff_ctrl] = “non” Then
    Me.staff_ctrl = ctl_no
    Me.bt_ctrl.Caption = GetParam(“nom_btn_a”, “aaa”)
    Me.lbl_ctrl_n.Visible = True
    Me.lbl_ctrl_y.Visible = False
    Else
    Me.[staff_ctrl] = “oui”
    Me.bt_ctrl.Caption = GetParam(“nom_btn_b”, “bbb”)
    Me.lbl_ctrl_n.Visible = False
    Me.lbl_ctrl_y.Visible = True
    End If

    Exit_bt_ctrl_Click:
    Exit Sub

    Err_bt_ctrl_Click:
    MsgBox Err.Description
    Resume Exit_bt_ctrl_Click

    End Sub

    le code est bien enregisté dans un module et les noms de paramètres (nom_btn_a et b)sont bien créés dans la table parametres.

    merci pour vos lumières.

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *

Vous pouvez utiliser ces balises et attributs HTML : <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code class="" title="" data-url=""> <del datetime=""> <em> <i> <q cite=""> <strike> <strong> <pre class="" title="" data-url=""> <span class="" title="" data-url="">