Bonjour
je me sers d'une base Access créée au départ sous Office 97.
Depuis que la base a été transformée sous Office 2007 , les contrôles de formulaires et les listes de choix apparaissaient en tout petit caractères.
j'ai changé la taille des contrôles mais maintenant quand je fais un choix à partir d'une zone de liste
j'obtiens le résultat voulu mais en petits caractères ,alors que les enregistrements de la table sont en caractère normal et je ne peux plus retourner au formulaire en cliquant sur OK comme avant :
il y a une nouvelle ligne qui s'affiche dans la table d'enregistrement et qui attend d' être complétée.
je suis obligé de cliquer sur une croix pour revenir au formulaire.
Voilà le module activé par le contrôle du formulaire requête :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32 Function Agrandir4() Dim bd As Database Dim src As Recordset Dim st As String Dim fFirstLine As Boolean Dim qdf As QueryDef Dim ctl As Control st = "Requête3-extraits" fFirstLine = True Set bd = CurrentDb() 'DoCmd.OpenForm "formulaire requete" DoCmd.OpenQuery st, acViewNormal, acEdit Set qdf = bd.QueryDefs(st) qdf.Parameters(0) = Forms("formulaire requete")!Modifiable9 Set src = qdf.OpenRecordset src.MoveFirst Do Until src.EOF If fFirstLine = True Then SendKeys "{TAB}", True SendKeys "{TAB}", True fFirstLine = False End If SendKeys "+{F2}", False SendKeys "{DOWN}", True SendKeys "{DOWN}", True src.MoveNext Loop Set ctl = Forms![formulaire requete]!Modifiable9 ctl.Value = "Mots-clé" Set src = Nothing Set bd = Nothing End Function
Partager