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
A voir également:
- Automatiser un champ texte
- Texte de chanson gratuit pdf - Télécharger - Vie quotidienne
- Mettre un texte en majuscule - Guide
- Transcription audio en texte word gratuit - Guide
- Excel cellule couleur si condition texte - Guide
- Texte barré whatsapp - Guide
5 réponses
Déja comme dit william, tu programme en quoi ?? quel langage ??
Si c du PHP, tu fais une requete comme ca :
ET pour que l'indetifiant de l'agence soit dans une zone de texte tu fais :
voila.. Jpense que ça ira !!!
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
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!!!
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
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
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
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
