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