Automatiser un champ texte

Fermé
SB - 23 janv. 2009 à 09:13
 SB - 23 févr. 2009 à 16:41
Bonjour,
J'ai fait un formulaire de saisie et dans ce formulaire je dois choisir dans une liste déroulante le nom de l'agence ou travail le salariés et quand j'ai choisie dans la liste le nom de l'agence, le code de l'agence doit apparaitre automatiquement dans un champ texte a coté!
Mais je ne sais pas comment automatiser sa parce que pour l'instant je peux choisir le nom de l'agence dans la liste déroulante mais je suis obliger de saisir a la main le code de l'agence!
Voila si quelqu'un a une idée je suis preneur!
Merci d'avance

5 réponses

Tjs d'actualité...
0
william7007 Messages postés 335 Date d'inscription dimanche 28 décembre 2008 Statut Membre Dernière intervention 23 mars 2010 46
23 janv. 2009 à 10:19
excuse moi tu utilise quoi déjà là je ne comprend pas tu programmes ou bien?
0
Excuse moi je suis sous access!
0
974_Vin's_974 Messages postés 547 Date d'inscription vendredi 23 janvier 2009 Statut Membre Dernière intervention 19 février 2009 102
23 janv. 2009 à 10:29
Déja comme dit william, tu programme en quoi ?? quel langage ??

Si c du PHP, tu fais une requete comme ca :


$resultat=mysql_query("SELECT * FROM AGENCE");
if (! $resultat) { echo "Erreur requete"; exit;}
$rep=mysql_fetch_array($resultat)


ET pour que l'indetifiant de l'agence soit dans une zone de texte tu fais :


<input type="text" name="id_agence" maxlength="10" size="49"  value="<?php echo $rep['Id_agence']; ?>">


voila.. Jpense que ça ira !!!


0
Nn c sous access donc si j'ai du code a écrire cest du VBA!
Mais je n'est pas mi de code!
En mode création, j'ai rajouté une liste déroulante avec le nom des agences et a cotes j'ai un champ texte ou je veux afficher le code de l'agence choisit!
0
974_Vin's_974 Messages postés 547 Date d'inscription vendredi 23 janvier 2009 Statut Membre Dernière intervention 19 février 2009 102
23 janv. 2009 à 10:43
Dsl j'peux pas t'aider, ça fait lonten que je n'ai plus touché à VBA.. DSL

Cordialement
0
Mais pas le sujet en résolu alors!
0
Dans l'event afterupdate de ta listbox (perso je préfère les combobox):

dim db as database
dim rst as querydef

set db = currentdb
set rst= db.openrecordset("SELECT M.[code agence] " & _
"FROM [Ma Table] AS M " & _
"WHERE M.[Lieu de travail] = "" & Me!listbox.returnvalue & "" ;")
if not rst.eof then
rst.movefirst
Me!TextBox.value = rst![code agence]
endif

set rst = nothing
set db = nothing

A adapter et tester!!!
0
Bonjour bnb,
Je ne trouve pas l'evenement afterupdate dans les propriété de ma liste déroulante?
Et que veux dire "M.[Lieu de travail]"?
Mes champs sont "Nom Bureau" et "Code Bureau"
Merci d'avance bnb
0
1. Tu remplaces mes noms de champs par les tiens...
2. Si tu lis le query tu comprendras ce que veut dire M.[...]
3. Recherche dans les propriétés de ta listbox l'évenement correspondant à "after update" pour y insérer ce code!
0
ok je vais voir merci bnb.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
boss-na Messages postés 5 Date d'inscription jeudi 27 septembre 2007 Statut Membre Dernière intervention 1 février 2009 5
26 janv. 2009 à 12:11
bonjour,
il faut créer une table agence dans lequelle vous saisisse tous les agence et leurs codes
vous choisisser mise en forme conditionnel --> condition 1 --> Champ active dans le champ code agence
bonne chance
0
Bonjour boss-na mais je ne trouve pas "mise en forme"??es ce que tu pourrais etre plus complet stp?
Merci bcp boss-na
0
Tjs d'actu...
0
J'ai mon code derriere la liste déroulante sur l'événement "sur changement" mais il me met une erreur "erreur de compilation : membre de méthode ou de données introuvable"!
Je ne sais pas ce que sa veut dire du tt vu que je suis novice en VBA!

Voici mon code :

Private Sub Modifiable165_Change()
Dim db As Database
Dim rst As QueryDef

Set db = CurrentDb
Set rst = db.OpenRecordset("SELECT M.[Code secteur] " & _
"FROM [Liste des Secteurs] AS M " & _
"WHERE M.[Lieu de travail] = "" & Me!listbox.returnvalue & "" ;")
If Not rst.EOF Then <-- erreur est ici au niveau du "EOF" mais je ne sais pas quoi faire??!!
rst.MoveFirst
Me![Code service/secteur].Value = rst![Code secteur]
End If

Set rst = Nothing
Set db = Nothing

End Sub

Merci d'avance pr la correction
0