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 :
quelques peux t'il me filer un tuyau ???
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 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
D'avance merci
Partager