Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access creation de control dynamique

creation de control dynamique

14 réponses
Avatar
yann
bonjour
jais une requette avec plusieure enregistrement.
Base sur celci comment faire un formulaire avec autant de controle que
d'enregistrement et qu'il soin tous present sur le mem formulaire
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
3stone
Salut,


Lorsque je lis :

"yann"
[...] mais quand jais 250 enregistrement ceu n'est pas pratique de fair
defiler les enregistrement pour aller vraiment sur celui q'ont veut


j'ai bien peur que c'est ailleurs qu'il faudrait attaquer le problème
au lieu de se lancer dans une méthode que tu ne finalisera *jamais*

(mème avec l'aide de Raymond ;-))))))


usine à gaz, quand tu nous tient !!!


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
Avatar
Christophe CAMPAIN
Bonjour à tous,

Il y a quelques jours, j'avais une problèmatique similaire.
Le code suivant permet d'aligner tout tes ctrls image .
--------------------------------
Private Sub CmdBtn_AfficherVignettes_Click()
Dim NombreImages, I As Integer
Dim ctl As Control
Dim Images() As Control

NombreImages = 1
' Stockage des noms des contrôles image dans une variable tableau
For Each ctl In Me
If ctl.ControlType = acImage Then 'cadre image
ReDim Preserve Images(NombreImages)
Set Images(NombreImages) = ctl '.Name
' Images(NombreImages).Picture = ""
NombreImages = NombreImages + 1
End If
Next ctl
' Alignement des contrôles image les un par rapport aux autres
For I = 2 To UBound(Images)
With Images(I)
On Error GoTo GerrerErreur
' Cas normal
If Images(I - 1).Left + Images(I - 1).Width + 50 <= WindowWidth Then
Me.Détail.Height = Images(I - 1).Top + Images(I - 1).Height + 50
.Top = Images(I - 1).Top
.Left = Images(I - 1).Left + Images(I - 1).Width + 50
Else
' Retour à la ligne
Me.Détail.Height = Images(I - 1).Top + Images(I - 1).Height + 50 +
Images(I).Height + 50
.Top = Images(I - 1).Top + Images(I - 1).Height + 50
.Left = 0
End If
End With
Next I
Me.Détail.Height = Images(UBound(Images)).Top +
Images(UBound(Images)).Height + 50

DoEvents
Exit Sub
GerrerErreur:
MsgBox "Agrandissement Maxi "


End Sub
-------------------------

@+
Kristof

"Raymond [mvp]" a écrit dans le message de
news:
Le design n'est pas disponible en runtime ni en base mde.
pour le positionnement, il faut décaler les images à chaque lecture dans
ton

createcontrol.il faut faire selon que tu es tout en vertical ou sur des
miniatures en horizontal et vertical.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"yann" a écrit dans le message de
news:40ab2d0d$0$22122$
jarrive a faire la creation des controle avec la procedure suivant

Private Sub Commande25_Click()
DoCmd.OpenForm "formulaire1", acDesign
Dim CtlImg As Control
Dim intX As Integer, intZ As Integer
Dim VAL As String
VAL = DCount("nomimage1", "||||||||||||||||||||")
For intX = 1 To VAL
For intZ = 1 To VAL
DoEvents
Next intZ
Set CtlImg = CreateControl("Formulaire1", acImage, , , , 200, 50, 1000,
1000)
Next intX
DoCmd.Close acForm, "formulaire1", acSaveYes
End Sub

autan de controle que de recordset mais il son superposer alors qu'il ne
fau

pas
et apres il fau extraire le chemin de chaque photo puis fair le
loadimage


sur les control recement cree. esque ??? ca va pour l'instant.
petit quetion sup : le mode acDesign et il disponible depuis le runtime.







Avatar
yann
alors ce que je vien de fair ne sert a rein si je ne peut l'utiliser en mode
runtime
comment faire
sniff,sniff...
merci pour ton aide
"Raymond [mvp]" a écrit dans le message de
news:
Le design n'est pas disponible en runtime ni en base mde.
pour le positionnement, il faut décaler les images à chaque lecture dans
ton

createcontrol.il faut faire selon que tu es tout en vertical ou sur des
miniatures en horizontal et vertical.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"yann" a écrit dans le message de
news:40ab2d0d$0$22122$
jarrive a faire la creation des controle avec la procedure suivant

Private Sub Commande25_Click()
DoCmd.OpenForm "formulaire1", acDesign
Dim CtlImg As Control
Dim intX As Integer, intZ As Integer
Dim VAL As String
VAL = DCount("nomimage1", "||||||||||||||||||||")
For intX = 1 To VAL
For intZ = 1 To VAL
DoEvents
Next intZ
Set CtlImg = CreateControl("Formulaire1", acImage, , , , 200, 50, 1000,
1000)
Next intX
DoCmd.Close acForm, "formulaire1", acSaveYes
End Sub

autan de controle que de recordset mais il son superposer alors qu'il ne
fau

pas
et apres il fau extraire le chemin de chaque photo puis fair le
loadimage


sur les control recement cree. esque ??? ca va pour l'instant.
petit quetion sup : le mode acDesign et il disponible depuis le runtime.







Avatar
yann
la maniere la plus simple serais de transposer le enregistrement de la table
en 1 seul enregistrement avec X champ je sais pas transposer le vertical a
l'orisontale (transformer les rocordsets de cette table en 1 seul recordset
avec X champ).
"3stone" a écrit dans le message de
news:
Salut,


Lorsque je lis :

"yann"
[...] mais quand jais 250 enregistrement ceu n'est pas pratique de fair
defiler les enregistrement pour aller vraiment sur celui q'ont veut


j'ai bien peur que c'est ailleurs qu'il faudrait attaquer le problème
au lieu de se lancer dans une méthode que tu ne finalisera *jamais*

(mème avec l'aide de Raymond ;-))))))


usine à gaz, quand tu nous tient !!!


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------






1 2