| auteur : Team Access | Dans les propriétés du formulaire, mettre à "non" la propriété "Afficher sélecteur".
|
| auteur : Team Access | Dans ce mode, il n'est pas possible d'utiliser la propriété visible. Il faut donc masquer la colonne en mettant sa largeur à 0.
|
| auteur : Team Access | Me. Image1 . Picture = " c:\temp\dessin.jpg "
|
|
| auteur : Drosera | Lorsque vous avez un formulaire ouvert en pleine écran et que vous voulez en ouvrir un autre de taille inférieure, cela modifie la taille du premier formulaire.
Il est possible de donner des tailles différentes aux formulaires, ceci en jouant sur la propriété fenêtre indépendante du formulaire.
|
| auteur : Drosera | Changez la propriété Style bordure du formulaire, elle ne doit pas être réglée sur Aucun, sinon elle n'apparaît pas.
|
| auteurs : Tofalu, Cafeine | Ouvrez les propriétés de votre fenêtre (formulaire ou état).
Allez dans l'onglet Format, puis mettez Boîte contrôle à Non.
Autre solution par le code en utilisant les API :
Option Explicit
Private Declare Function SetWindowLongA Lib " user32 " _
(ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLongA Lib " user32 " _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Const WS_MINIMIZEBOX = & H20000
Const WS_MAXIMIZEBOX = & H10000
Const GWL_STYLE = (- 16 )
Function RetireRestoreMaximize (ByVal hWndx As Long)
Dim L As Long
L = GetWindowLongA (hWndx, GWL_STYLE)
L = L And Not (WS_MINIMIZEBOX)
L = L And Not (WS_MAXIMIZEBOX)
L = SetWindowLongA (hWndx, GWL_STYLE, L)
End Function
|
|
| auteur : Demco | Vous devez utiliser une image en guise de bouton, car l'objet bouton de base avec Access ne permet pas de telles fantaisies.
- prenez un objet "image"
- définissez l'apparence en relief
- sur l'évènement "click"
- passez l'apparence en "3D enfoncé" [MonImage.SpecialEffect = 2] (ou même changer d'image)
- exécutez le code
- rétablissez l'apparence en "relief" [MonImage.SpecialEffect = 1]
|
| auteur : Team Access | Utiliser l'argument acHidden de la méthode OpenForm ou OpenReport.
Exemple pour un formulaire :
DoCmd. OpenForm " MonForm " ,,,,,acHidden
|
|
| auteur : =JBO= |
Il est possible d'utiliser le contrôle ActiveX CommandButton qui fait partie de la "bibliothèque" [Microsoft Forms x.y] (alias MSForms) livrée avec Microsoft Office, donc disponible sur les postes dotés de Word/Excel/PowerPoint/Access.
(note: ici x.y dépend de la version d'Office installée sur le PC).
Marche à suivre :
La fenêtre du formulaire doit être en mode création.
Dans le menu [Insertion] cliquer sur [Contrôle ActiveX...].
Une boîte de dialogue permet de rechercher dans une liste le contrôle [Microsoft Forms x.y CommandButton].
Sélectionner la ligne et cliquer sur [OK].
Le contrôle apparaît sur le formulaire.
Comme c'est un contrôle ActiveX, son utilisation demande plus d'efforts et ne se programme qu'avec VBA.
Les propriétés ne sont pas présentées à l'identique d'un contrôle natif d'Access et ne disposent pas d'assistant.
Les propriétés [Caption], [BackColor] et [ForeColor] sont visibles dans l'onglet [Autres] de la fenêtre des propriétés.
La propriété [Font] n'est accessible que par programmation VBA (cf. l'explorateur d'objets pour inspecter sa structure - touche F2).
Astuce : utilisez la fenêtre d'exécution (Ctrl + G) pour paramétrer "directement" ces propriétés qui sont alors correctement enregistrées. Par exemple, pour mettre le texte du bouton en italique, utilisez les propriétés de son objet Font en saisissant dans la fenêtre exécution :
Forms![NomDuForm]![NomDeBoutonActivX]. . Font . Italic = True
|
Puis appuyez sur entrée.
L'événement [_Click] se programme directement dans l'environnement de développement. En effet, la fenêtre de propriétés ne permet pas de voir les événements "internes" d'un contrôle ActiveX.
Dans le module du formulaire, il suffit donc d'écrire ceci pour exécuter du code sur clic du bouton :
Private Sub NomDuBoutonActivX_Click ()
MsgBox " Vous avez cliqué. "
End Sub
|
|
| auteur : Frank |
Vous devez dans un premier temps écrire une nouvelle fonction d'affichage de boite de message (MessageBox) :
Function FormattedMsgBox ( _
Prompt As String , _
Optional Buttons As VbMsgBoxStyle = vbOKOnly , _
Optional Title As String = vbNullString , _
Optional HelpFile As Variant, _
Optional Context As Variant) _
As VbMsgBoxResult
If IsMissing (HelpFile) Or IsMissing (Context) Then
FormattedMsgBox = Eval (" MsgBox( " " " & Prompt & _
" " " , " & Buttons & " , " " " & Title & " " " ) " )
Else
FormattedMsgBox = Eval (" MsgBox( " " " & Prompt & _
" " " , " & Buttons & " , " " " & Title & " " " , " " " & _
HelpFile & " " " , " & Context & " ) " )
End If
End Function
|
Ensuite il ne vous reste qu'à appeler cette fonction depuis votre code :
FormattedMsgBox " Wrong button!@This button doesn't work.@Try Another. " , _
vbOKOnly + vbExclamation , " My Application "
|
|
lien : Source de cette solution
|
| auteur : =JBO= |
Procédure valable pour une version française d'Access 2000 :
- Ouvrir le fichier MDB dans lequel on souhaite importer les barres personnalisées.
- Dans le menu [Fichier], exécuter la commande [Données externes|Importer...].
- Une boîte de dialogue [Importer] s'affiche pour sélectionner le fichier MDB dans lequel se trouvent les barres d'outils à récupérer. Sélectionner ce fichier et cliquer sur le bouton [Importer].
- Une nouvelle boîte de dialogue [Importer des objets] s'affiche. Cliquer sur le bouton [Options >>] pour faire apparaître les contrôles permettant de gérer plus finement l'Import.
- Dans le cadre [Importer] cocher la case "Menus et barres d'outils".
- Cliquer sur le bouton [OK].
Remarque:
pour récupérer les paramètres d'import/export de données, ça se passe aussi dans les Options.
|
| auteur : =JBO= |
Vous avez créé un formulaire contenant dans sa zone "Détails" un sous-formulaire lié. Ces deux formulaires sont utilisés en affichage feuille de données, ce qui fait qu'Access les affiche sous forme d'une arborescence : on voit les lignes du formulaire principal et on peut cliquer sur la petite croix pour faire apparaître les sous-enregistrements du sous formulaire liés à cette ligne.
Ce que vous souhaitez faire : "déplier" chaque ligne au lancement du formulaire pour éviter que l'utilisateur n'ait à le faire à la main en cliquant sur chaque petite croix...
Voici une solution :
Private Sub Form_Load ()
Me. SubdatasheetExpanded = True
End Sub
|
Ce code fonctionne avec une arborescence à plusieurs niveau (plusieurs formulaires imbriqués).
Lien réciproque : Q/R d'Etienne sur la possibilité d'afficher plusieurs sous en continu.
|
| auteur : petitmic | Allez dans Outils > Options, onglet Formulaires/Etats, cochez Utiliser les contrôles Windows à thèmes sur les formulaires
Cette Fonction n'est applicable que sous Access 2003
|
| auteurs : BrunoM45, Faw |
Il y a deux événements dans lesquels nous devons placer du code.
Tout d'abord, occupons nous de la souris qui survole le contrôle.
Private Sub Étiquette_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
Me. Étiquette . SpecialEffect = 0
End Sub
|
Où Étiquette est le nom d'un contrôle de type étiquette.
Maintenant, il faut qu'une fois fini de survoler le contrôle, celui-ci récupère son apparence normale.
En fait il faut que vous placiez le code suivant sur l'événement MouseMove() du contenant du contrôle étiquette.
Dans cet exemple, le contrôle se trouve dans la zone Détail du formulaire, nous avons donc :
Private Sub Détail_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
Me. Étiquette . SpecialEffect = 0
End Sub
|
|
| auteur : Tofalu |
Pour cela il faut modifier la propriété format de la zone de texte du formulaire qui affiche ces chiffres, en lui appliquant un format 00
|
| auteur : Faw |
Une des méthodes consiste à affecter le numéro de la page (cette numérotation commence à 0) à la valeur du contrôle onglet.
Exemple :
Private Sub Bascule4_Click ()
Me. CtlTab0 . Value = Index de page
End Sub
|
Autre possibilité : utiliser la méthode SetFocus de la page :
Me. NomContrôleOnglet . Pages (" NomDeLaPage " ). SetFocus
|
|
Consultez les autres F.A.Q's
Les sources présentés sur cette pages sont libre de droits,
et vous pouvez les utiliser à votre convenance. Par contre cette page de présentation de ces sources constitue une oeuvre intellectuelle protégée par les droits d'auteurs.
Copyright ©2004
Developpez LLC. Tout droits réservés Developpez LLC.
Aucune reproduction, même partielle, ne peut être faite de ce site et de
l'ensemble de son contenu : textes, documents et images sans l'autorisation
expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à 3 ans
de prison et jusqu'à 300 000 E de dommages et intérets.
Cette page est déposée à la SACD.
|