Titre d'une base de données en fonction d'un champ de formulaire [Résolu]

[Mobydisk21]

Bonjour, ma question est la suivante :

J'ai créé une base de donnée avec un formulaire appelé "Références Unité".
Dans ce formulaire se trouve un champ appelé "Nom Unité". Je voudrais pouvoir distribuer cette base à plusieurs Unités. Après la saisie du nom de ces dernières dans le champ idoine, et le redémarrage de l'application je voudrais que le titre de l'application prenne le nom saisi dans le champ "Nom Unité".

Si quelqu'un à une une solution je suis preneur. Merci d'avance.

[nico84]

Bonjour,

Il y a une propriété pour ça :

Code :

CurrentDb.Properties("AppTitle") = "CeQueJeVeux"

[Mobydisk21]

Bonjour,

Merci pour cette réponse rapide mais, ayant un niveau assez faible sur ACCESS, je ne sais pas à quel endroit je dois écrire ces lignes de code.

Merci d'avance.

[nico84]

Dans du vba qui s'exécute à l'ouverture de l'appli.

Le plus simple je pense est de le mettre dans le form_open du formulaire de démarrage.

[Mobydisk21]

Merci pour ton conseil. Par contre comment faire référence à un champ "Nom Unité" dans une table "Référence Unité" à la place de : "Cequejeveux".

Merci d'avance

[marsouin_89]

Bonjour,

Code :

CurrentDb.Properties("AppTitle") = DFirst("Nom Unité","Référence Unité")

Là encore, je me permets de te donner un conseil pour débutant.
Evite la ponctuation et les espaces dans tes noms de champs, tables, formulaires, etc.
Il y a des tutoriels qui expliquent la normalisation de ces protocoles.
Cela t'éviteras de nombreux problèmes.

Cordialement

Christophe

[Mobydisk21]

Bonjour,
Effectivement je suis arrivé à afficher en partie le nom de la société désirée. Ce que j'ai oublié de préciser, je m'en excuse, c'est que ce nom fait appel à deux et non pas un seul champ dans ma table. Le premier champ est un nom unique quant au second, c'est un nom composé avec un espace ("Nom Société"). Ma base étant dèjà bien remplie, je ne peux pas modifier ce nom. As tu une solution aussi pertiente que la première.

Merci d'avance
Mobydisk21

[marsouin_89]

Bonjour,

Voici la correction

Code :

1
2
3
4
5
Dim oField1 as String, oField as String
oField1= DFirst("NomChamp1","NomTable")
oField2= DFirst("NomChamp2","NomTable")
 
CurrentDb.Properties("AppTitle") =oFiled1 & " " & oFiled2

A savoir que la valeur des champs peut avoir la ponctuation ou des espaces.
C'est le nom des champs ou des différents objets(formulaires, états, etc.) qui ne doivents as en avoir. Tout comme les noms de macros ou fonctions codées dans des modules.

En espérant t'avoir aidé.

Cordialement

Christophe

[Mobydisk21]

Bonjour,

Ca y est ça fonctionne. Le problème tenait dans le nom du champ que j'utilisais pour le nom de l'unité. Je me suis décidé à la changé en un nom simple et non plus composé et, Oh miracle, du premier "BINGO".

Merci encore pour tes lumières, Cordialement

Mobydisk21