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
TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICESTECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice
Animé par: Gaetan Bouveret et Julien Chomarat Business Connectivity Services (BCS) est dans SharePoint 2010 la version 2 de Business Data Catalog (BDC dans SharePoint 2007). Il s'agit de la solution permettant de visualiser des données provenan...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Arnault Nouvel et Antoine Dongois Le processus à prendre : Apprendre (découvrir la plateforme) Préparer (documenter l'historique et choisir la méthode de MAJ) Test (Test de MAJ) Implémenter (Effectuer la MAJ) Valid...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|