Accueil > > > CREER DYNAMIQUEMENT UN FORMULAIRE
 CREER DYNAMIQUEMENT UN FORMULAIRE
 Information sur la source
 Description
Cette fonction permet de créer un formulaire dynamique et de le mettre en page, d'ajouter aussi des évenements, ... il est conseillé d'utiliser un formulaire existant au lieu de créer un nouveau formulaire parce que Access aura du mal dans le cas de la création d'un nouveau formulaire à voir ce formulaire récemment crée. Dans cet exemple nous utilisons un formulaire existant soit "F_AFFICHAGE" que nous modifions à notre guise.
 Source
- Public Function create_form(sql As String) As Boolean
- Dim frm As Form
- Dim rst As Recordset
- dim ctl as control
- dim i, j as integer
- ' --Ouvrir le formulaire en mode modification et caché
- DoCmd.OpenForm "F_AFFICHAGE", acDesign
- , , , , acHidden
- ' --suppression de tous les contrôles avant de les créer de nouveau
- For Each ctl In Forms!F_AFFICHAGE.Controls
- ctl.DeleteControl "F_AFFICHAGE", ctl.Name
- Next ctl
- ' --Source de données de mon formulaire
- Forms![F_AFFICHAGE].RecordSource = sql
- Set rst = Currentdb.OpenRecordset(sql)
- ' --nous ne pensons pas que vous aurez plus de 100 contrôles
- Dim controle(1 To 100) As Control
- ' --Création des contrôles
- If rst.RecordCount <> 0 Then
- i = 1
- j = 1000
- While i < rst.Fields.Count
- ' -- Créer le contrôle i
- Set controle(i) = CreateControl("F_AFFICHAGE", acTextBox)
- ' --lui affecter un nom
- controle(i).Name = "TXT_" & rst.Fields(i).Name
- ' --le positionner sur le formulaire
- controle(i).Left = 100 + j
- ' --Définir sa largeur
- controle(i).Width = 1150
- ' --Définir sa couleur de fond
- controle(i).BackColor = "14742270"
- ' --Définir son effet visuel
- controle(i).SpecialEffect = 0
- controle(i).BackStyle = 0
- controle(i).BorderStyle = 1
- ' --source de données de ce contrôle
- controle(i).ControlSource = rst.Fields(i).Name
- i = i + 1
- j = j + 1150
- Wend
- End If
- ' --Création des entêtes
- j = 1000
- i = 1
- While i < rst.Fields.Count
- Set controle(i) = CreateControl("F_AFFICHAGE", acTextBox, acHeader)
- controle(i).Name = "HD_" & rst.Fields(i).Name
- controle(i).Left = 100 + j
- controle(i).Width = 1150
- controle(i).Height = 700
- controle(i).BackColor = "10081789"
- controle(i).SpecialEffect = 0
- controle(i).BorderStyle = 1
- controle(i).TextAlign = 2
- controle(i).FontWeight = 700
- controle(i).ControlSource = "='" & rst.Fields(i).Name & "'"
- i = i + 1
- j = j + 1150
- Wend
- rst.close
- set rst = Nothing
- ' --Sauvegarder le formulaire
- DoCmd.Save acForm, "F_AFFICHAGE"
- End Function
Public Function create_form(sql As String) As Boolean
Dim frm As Form
Dim rst As Recordset
dim ctl as control
dim i, j as integer
' --Ouvrir le formulaire en mode modification et caché
DoCmd.OpenForm "F_AFFICHAGE", acDesign
, , , , acHidden
' --suppression de tous les contrôles avant de les créer de nouveau
For Each ctl In Forms!F_AFFICHAGE.Controls
ctl.DeleteControl "F_AFFICHAGE", ctl.Name
Next ctl
' --Source de données de mon formulaire
Forms![F_AFFICHAGE].RecordSource = sql
Set rst = Currentdb.OpenRecordset(sql)
' --nous ne pensons pas que vous aurez plus de 100 contrôles
Dim controle(1 To 100) As Control
' --Création des contrôles
If rst.RecordCount <> 0 Then
i = 1
j = 1000
While i < rst.Fields.Count
' -- Créer le contrôle i
Set controle(i) = CreateControl("F_AFFICHAGE", acTextBox)
' --lui affecter un nom
controle(i).Name = "TXT_" & rst.Fields(i).Name
' --le positionner sur le formulaire
controle(i).Left = 100 + j
' --Définir sa largeur
controle(i).Width = 1150
' --Définir sa couleur de fond
controle(i).BackColor = "14742270"
' --Définir son effet visuel
controle(i).SpecialEffect = 0
controle(i).BackStyle = 0
controle(i).BorderStyle = 1
' --source de données de ce contrôle
controle(i).ControlSource = rst.Fields(i).Name
i = i + 1
j = j + 1150
Wend
End If
' --Création des entêtes
j = 1000
i = 1
While i < rst.Fields.Count
Set controle(i) = CreateControl("F_AFFICHAGE", acTextBox, acHeader)
controle(i).Name = "HD_" & rst.Fields(i).Name
controle(i).Left = 100 + j
controle(i).Width = 1150
controle(i).Height = 700
controle(i).BackColor = "10081789"
controle(i).SpecialEffect = 0
controle(i).BorderStyle = 1
controle(i).TextAlign = 2
controle(i).FontWeight = 700
controle(i).ControlSource = "='" & rst.Fields(i).Name & "'"
i = i + 1
j = j + 1150
Wend
rst.close
set rst = Nothing
' --Sauvegarder le formulaire
DoCmd.Save acForm, "F_AFFICHAGE"
End Function
 Sources du même auteur
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
Gestion dynamique de form [ par fieldy8 ]
Bonjour,je desirerai faire une gestion dynamique de formj'ai une form et une sous-form ma sous-form est de type tableau mais je voudrai pouvoir choisi
MDI Chargement de form dynamique ??? [ par pcpunch ]
Slt je vais essayer d etre clair, car suis un peu crever lolJe dev un petit editeur d'image, g une formMdi et un form1 qui contien un picturebox afin
Form dynamique [ par Frans ]
Bonjour,J'aimerais créer un formulaire dynamique. Je m'explique : j'ai un TreeView sur la gauche de mon écran, et il faudrait que la partie droite soi
creation dynamique de form [ par yannn ]
J'ai pu voir qu'il etait possible de rajouter de maniere dynamique ( en cliquant sur un controle ) des text box, des list box, des file box ... avec l
Création dynamique picturebox [ par servlinks ]
Bonjour,je sais qu'il y a eu bcp de réponse à une question similaire à la mienne sauf que j'ai quelques petites variantes.J'aimerais pouvoir créer des
Liste dynamique de boutons dans un form [ par renaud93 ]
Mon souhait serait de créer une liste de boutons par prog dans un formulaire. Le nombre de boutons n’est pas connu à l’avance, il
Excel Dynamique : Mise a jour automatique d'une Form. [ par Popol005 ]
Bonjour a tous,J'aimerais savoir s'il est possible de raffraichir automatiquement une form.En effet, j'ai un fichier excel qui est mis a jour automati
Access + impression form graph croisé dynamique [ par bossun ]
salut, j'ai une appli Access qui tourne plutot bien... quand un utilisateur veut imprimer un formulaire graphique Corisé dynamique, access m'affiche l
Form dynamique sous VBA dans Access [ par ssmiling ]
Dans un formulaire dynamique, j'ai plusieurs boutons de commande à qui je dois attribuer (au travers d'une boucle) dans la propriété .o
|
Derniers Blogs
 SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOSSESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc
Durant les techdays, j'ai eu le plaisir d'animer une session sur Silverlight 5 et la 3D avec Simon Ferquel. Comme promis, voici nos slides et mes démos (celles avec le viper BSG) ici et là. Pour mémoire, les démos utilisent toutes le viper BSG...
Cliquez pour lire la suite de l'article par Groc [TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES par gpommier
Suite à la session que j'ai présenté sur WebMatrix 2, vous pouvez trouver les slides ici, ainsi que les démos en packages nuget : démos1 et démos2 J'en profite pour remercier chaleureusement tous ceux qui sont venus très nombreux à cette sess...
Cliquez pour lire la suite de l'article par gpommier [SHAREPOINT] LES SESSIONS TECHDAYS 2012.[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet
Voici donc pour ceux qui n'ont pas pu venir, ou ceux qui n'ont pas pu toutes les suivre la liste des sessions SharePoint aux TechDays 2012, que je mettrais à jour dès que les liens des vidéo seront disponibles. Ou ici : http...
Cliquez pour lire la suite de l'article par Patrick Guimonet TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice
Speaker: Bernard Ourghanlian Cette session est comme chaque jour transmise en live par BrainSonic, et j'ai donc suivi cette troisième pleinière par ce moyen sur mon iPad . Elle est dédiée comme chaque année à la mise en perspective de l'é...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE !MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko
Hier durant une session dédiée aux Techdays 2012, j'ai eu le plaisir d'annoncer la sortie de la Béta 2 de Mishra Reader. C'est quoi ? Pour les utilisateurs, c'est une vraie expérience de lecture de flux RSS sur Windows. Rien à voir avec les produit...
Cliquez pour lire la suite de l'article par Vko
Logiciels
 PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|