A voir également:
- Automatiser un champ texte
- Dans le texte, un seul mot a réellement été écrit en lettres capitales (majuscules). quel est ce mot ? ✓ - Forum Word
- Dans cette présentation, sarah avait encadré directement le titre de certaines diapositives avant d'automatiser cette mise en forme pour tout le document. sur quelles diapositives avait-elle encadré directement le titre ? ✓ - Forum Bureautique
- Formule excel si contient texte alors texte ✓ - Forum Excel
- Présentation d'une diapositive - Forum Bureautique
- Mettre un texte en majuscule - Guide
5 réponses
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
23 janv. 2009 à 10:19
excuse moi tu utilise quoi déjà là je ne comprend pas tu programmes ou bien?
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
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 :
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 !!!
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
23 janv. 2009 à 10:43
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
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
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
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