Bonsoir,
Le 24 septembre 2008 07:57, somphone chanthasensack
<[EMAIL PROTECTED]>a écrit :
>
> Bonjour et merci pour ta réponse,
> Dans cette il n'y a pas de requete ecrit sous SQL pour récupérer la zone
> texte de l 'écran.
???
Je comprends pas bien là ?
Et ça dans le code, c'est bien la récupération d'une zone à l'écran non ?
'==== debut code ============
dim PysLstMarque as Object , PysLstVoiture AS Object
'************************************************************************************************
sub PysMajListe
'************************************************************************************************
'Lancée sur modification de la liste des marques pour mettre à jour la liste
des modèles
'************************************************************************************************
DIM var_id_marque as integer
'Recupere les composants liste
'====ici recuperation de la zone "lbox_marque" =======
PysLstMarque =
ThisComponent.DrawPage.Forms.getByName("Standard").getByName("lbox_marque")
PysLstVoiture =
ThisComponent.DrawPage.Forms.getByName("Standard").getByName("lbox_voiture")
'Recupere l'id de la marque selectionnée
'Syntaxe si le champ n'est pas lié à un champ de la base
'var_id_marque = PysLstMarque.SelectedItems(0)
'Syntaxe si le champ est lié à un champ de la base
var_id_marque = PysLstMarque.valueItemList(PysLstMarque.SelectedItems(0))
'Modifie la requete SQL de la liste des voitures :
'===== modification de la requete SQL ===============
PysLstVoiture.ListSource() = array("SELECT nom_voiture, id_voiture FROM
T_Voiture WHERE id_marque =" & var_id_marque)
PysLstVoiture.refresh
end sub
'============ fin code ===========
ou alors, je comprend pas bien ce que tu entends par zone de texte à
l'écran. Peux-tu préciser ou mieux, m'envoyer à mon adresse perso un
'exemple' de zone de texte ?
Merci.
Yves
>
>
> Bonne journée
>
>
>
> Date: Tue, 23 Sep 2008 19:03:21 +0200From: [EMAIL PROTECTED]:
> [EMAIL PROTECTED]: Re: [users-fr] Comment récupérer une zone
> texte d'entree d'une boite de dialogue pour mettre dans un ordre SQL sous
> Macro
> Bonjour,un exemple dans une base (pas de moi).Yves-- web site :
> http://www.molenbaix.com
> _________________________________________________________________
> Installez gratuitement les 20 émôticones Windows Live Messenger les plus
> fous ! Cliquez ici !
> http://www.emoticones-messenger.fr/
>
--
web site : http://www.molenbaix.com
