Automatiser un champ texte
SB
-
SB -
SB -
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
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
Configuration: Windows XP Internet Explorer 6.0
5 réponses
-
-
excuse moi tu utilise quoi déjà là je ne comprend pas tu programmes ou bien?
-
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 !!!
-
Dsl j'peux pas t'aider, ça fait lonten que je n'ai plus touché à VBA.. DSL
Cordialement-
-
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!!! -
-
-
-
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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-
Bonjour boss-na mais je ne trouve pas "mise en forme"??es ce que tu pourrais etre plus complet stp?
Merci bcp boss-na- 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
-
