16 réponses
Bonjour,
Il suffit pour cela de stocker la donnée correspondante du recordset dans une variable, et ensuite de récupérer cette variable pour la mettre dans la propriété Caption du label.
Admettons que ta variable (monLabel déclarée en public) qui récupère le nom du label soit sur UserForm1 et le label1 sur UserForm2, ça donne :
UserForm2.Label1.Caption = UserForm1.monLabel
;o)
polux
Il suffit pour cela de stocker la donnée correspondante du recordset dans une variable, et ensuite de récupérer cette variable pour la mettre dans la propriété Caption du label.
Admettons que ta variable (monLabel déclarée en public) qui récupère le nom du label soit sur UserForm1 et le label1 sur UserForm2, ça donne :
UserForm2.Label1.Caption = UserForm1.monLabel
;o)
polux
Ton label est donc la concaténation de 2 champs de ta requête ... Tu as bien déclaré ta variable comme ça :
Public monLabel As String
Mais un point d'arrêt sur monlabel = RSCONSO2!Install & " , cal " & RSCONSO2!Cal et regarde ce que contient la variable.
Dans ton autre userform, label_dyna est créé avec la méthode que je t'ai passé ?
Public monLabel As String
Mais un point d'arrêt sur monlabel = RSCONSO2!Install & " , cal " & RSCONSO2!Cal et regarde ce que contient la variable.
Dans ton autre userform, label_dyna est créé avec la méthode que je t'ai passé ?
oui c'est ca, ma variable est bien la concaténation de 2 champs de ma requête.
j'ai bien déclaré monlabel public
pour label_dyna j'ai utilisé :
Set label_dyna = Controls.Add("forms.label.1", "label" & lig & col, True)
With label_dyna
.Left = (40 + EspaceX) * (col - 1) + BaseX
.Top = (40 + EspaceY) * (lig - 1) + BaseY
. caption = ???
que j'ai insérer dans une boucle de création de boutons
je vais regarder avec un point d'arrêt
j'ai bien déclaré monlabel public
pour label_dyna j'ai utilisé :
Set label_dyna = Controls.Add("forms.label.1", "label" & lig & col, True)
With label_dyna
.Left = (40 + EspaceX) * (col - 1) + BaseX
.Top = (40 + EspaceY) * (lig - 1) + BaseY
. caption = ???
que j'ai insérer dans une boucle de création de boutons
je vais regarder avec un point d'arrêt
C'est étrange ... ton label_dyna se créait-il bien ? fait un test en mettant .caption = "toto" par exemple ...
oui mon label se créer bien pour chaque bouton que je créer j'associe un label différent.
public monlabel as string me donne l'erreur "attribut incorrect dans une procédure sub ou function"
quand je le sort de là , ca me dit que seul les commentaires peuvent etre en dehors d'une fonction ou procédure.
et du coup pour l'instant je ne vois pas si monlabel récupére bien les données de la requête
public monlabel as string me donne l'erreur "attribut incorrect dans une procédure sub ou function"
quand je le sort de là , ca me dit que seul les commentaires peuvent etre en dehors d'une fonction ou procédure.
et du coup pour l'instant je ne vois pas si monlabel récupére bien les données de la requête
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
ok
dans les champs du resordset n'aurais-tu pas une apostrophe ?
dans les champs du resordset n'aurais-tu pas une apostrophe ?
il me semble qu'il n'y a rien d'anormal :
Requete = "SELECT Install,Cal,ID FROM CONSO WHERE ID=" & id_install & " "
Set RSCONSO2 = BDDCONSO.OpenRecordset(Requete)
normalement quand je faisais la même chose pour un seul bouton et un champs caché associé ma requête marchait.
je sais vraiment pas je modifie à dte à gauche mais ca veut pas faire passer la var monlabel.
je suis désolée de t'embéter même le soir ;-( j'espere ne pas trop t'importuner
Requete = "SELECT Install,Cal,ID FROM CONSO WHERE ID=" & id_install & " "
Set RSCONSO2 = BDDCONSO.OpenRecordset(Requete)
normalement quand je faisais la même chose pour un seul bouton et un champs caché associé ma requête marchait.
je sais vraiment pas je modifie à dte à gauche mais ca veut pas faire passer la var monlabel.
je suis désolée de t'embéter même le soir ;-( j'espere ne pas trop t'importuner
Dans quelle partie as-tu déclaré monLabel ??? il faut la déclarer en variable globale ... en tout début de code avant toute procédure ou fonction ....
par curiosité ca fait combien de temps que tu codes le VBA ? parce que pour debugger de loin c'est aps évident!!! surtout quand tu tombes sur des gens comme moi lol !
bon "monlabel" récupére bien les données du recorset mais ne le renvois pas sur l'autre userform. car quand je fais un msgbox pour vérifier le .caption de mon label créé dynamiquement recoit rien.
faut pas re déclarer monlabel vu que cette variable est dans l'autre en public ? c'est ca non ?
bon "monlabel" récupére bien les données du recorset mais ne le renvois pas sur l'autre userform. car quand je fais un msgbox pour vérifier le .caption de mon label créé dynamiquement recoit rien.
faut pas re déclarer monlabel vu que cette variable est dans l'autre en public ? c'est ca non ?
lol je ne code pas en VBA ... je fais du VB de temps en temps ... mais le principe est le même.
Fait juste un msgbox userform1.monLabel dans le load de l'userform2 (userform_initialize je crois sur VBA)...
Fait juste un msgbox userform1.monLabel dans le load de l'userform2 (userform_initialize je crois sur VBA)...
c'est ce que j'ai fait mais du coup ca me montre bien que la var ne transite pas vers l'autre userform.
ca me fait comme si elle était déclarée en locale. c'est bizarre pourtant il me semble que tout y est .
*chapeau pour la prog, j'ai encore du boulot mais pti à pti on apprend
ca me fait comme si elle était déclarée en locale. c'est bizarre pourtant il me semble que tout y est .
*chapeau pour la prog, j'ai encore du boulot mais pti à pti on apprend
en fait ca me marque l'erreur "membre méthode ou donnée introuvable" sur la variable créée qui est censé récupérer le recorset.
peut etre que je fais une erreur dans mon code :
monlabel = RSCONSO2!Install & " , cal " & RSCONSO2!Cal // donc mon label = c'est ma var public
// dans mon autre userform
With label_dyna
.Caption = choix_install2.monlabel
....
c'est bien ca non ?
merci polux