[Tables] [DAO Tabledef] Définir masque de saisie par le code
Salut,
J'aimerais définir la propriété "Masque de saisie" d'un champs avec la valeur "Mot de passe"
Voici un bout du code :
Code:
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
| Dim ma_table As TableDef
Dim ma_base As Database
Dim nom_table As String
nom_table = "test"
On Error GoTo erreur:
Set ma_base = CurrentDb
Set ma_table = ma_base.TableDefs(nom_table)
MsgBox ("la table existe")
Exit Function
erreur:
MsgBox ("la table n'existe pas")
Set ma_table = ma_base.CreateTableDef(nom_table)
With ma_table
.Fields.Append .CreateField("Pseudo", dbText, 4)
.Fields.Append .CreateField("Mot_de_passe", dbText, 50)
End With
Dim fld As Field
Set fld = ma_table.Fields(1) 'ensuite je vourdrais définir la propriété masque de saisie en "Mot de passe"
ma_base.TableDefs.Append ma_table |
quelques peux t'il me filer un tuyau ???
D'avance merci
