Discussion :

[Matthieu0910]

Bonjour,

J'ai un problème assez simple mais que je n'arrive pas à résoudre. J'ai une zone de texte qui m'affiche le champ d'une table. Je voudrais qu'il ne m'affiche que les 4 premières lettres de la valeur du champ. J'ai trouvé une fonction vba:
mid("montexte", 1, 4) qui devrait marcher mais je sais pas m'en servir.

J'ai fait une "procédure évènementielle" du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Private Sub Texte14_GotFocus()
    Texte14 = Mid(Table.Champ, 1, 4)
End Sub

Mais clairement, c'est archifaux. On peut pas mélanger du vba et du SQL. Du coup, je sais pas comment faire mieux...

Merci de votre aide,

Matthieu

[carden752]

Bonjour,

Il faut utiliser un objet DAO comme ici

Ce qui te donne avec la fonction mid quelque chose comme cela.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub gauche_champ()
dim textecoupe as string
Dim Db As DAO.Database
Dim Tb As DAO.TableDef
Dim chp As DAO.Field
Dim Pr As DAO.Property
Set Db = CurrentDb
Set Tb = Db.TableDefs("matable")
For Each chp In Tb.Fields
If chp.Name = "champ1" Then textecoupe = Mid(chp.Name, 1, 4)
Next chp
End Sub

[Matthieu0910]

Merci de ton aide !
Je ne connaissais pas les objets DAO.

Bien cordialement,

Matthieu