Requête création

Bonjour,

Directement à partir de ta requête création de table, je ne pense pas
que tu puisses faire cela. Mais tu peux faire ta requête Création de
table puis derrière ajouter, via du code, une propriété à ton champ.
Par exemple, la procédure suivante créée une table avec un champ issu
d'une autre table dont le champ a un masque de saisie Password, puis
ajoute cette propriété masque de saisie sur le champ de la table
nouvellement créée.

Sub zz()
Dim strSQL As String
' SQL de la requête : LaTable1 est la table nouvelle
strSQL = "SELECT LaTable.LeChamp INTO LaTable1 FROM LaTable;"
CurrentDb.Execute strSQL
' Création de la propriété Masque de saisie sur le champ de la
nouvelle table
Dim t As DAO.TableDef, bd As DAO.Database
Dim f As DAO.Field, prp As DAO.Property
Set bd = CurrentDb
Set t = bd.TableDefs("LaTable1")
Set f = t.Fields("LeChamp")
Set p = f.CreateProperty("InputMask", dbText, "Password")
f.Properties.Append p
Set p = Nothing
Set f = Nothing
Set t = Nothing
Set bd = Nothing
End Sub

Du forum, bonjour,

J'ai une table avec un champ et un masque "Mot de passe"
Je souhaite créer une requête création et faire en sorte que la nouvelle
table puisse hériter les propriétés de la table source, donc, que mon champ
"mot de passe" soit masqué comme dans la table source.

Est-ce possible ?

Merci d'avance à ceux qui peuvent m'aider.
Fred

--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

.../...
sous réserve que ça convienne, j'avais oublié de préciser de charger la
référence Microsoft DAO 3.x Object Library dans l'éditeur VB (Menu
Outils|Références).

Bonjour,

Directement à partir de ta requête création de table, je ne pense pas
que tu puisses faire cela. Mais tu peux faire ta requête Création de
table puis derrière ajouter, via du code, une propriété à ton champ.
Par exemple, la procédure suivante créée une table avec un champ issu
d'une autre table dont le champ a un masque de saisie Password, puis
ajoute cette propriété masque de saisie sur le champ de la table
nouvellement créée.

Sub zz()
Dim strSQL As String
' SQL de la requête : LaTable1 est la table nouvelle
strSQL = "SELECT LaTable.LeChamp INTO LaTable1 FROM LaTable;"
CurrentDb.Execute strSQL
' Création de la propriété Masque de saisie sur le champ de la
nouvelle table
Dim t As DAO.TableDef, bd As DAO.Database
Dim f As DAO.Field, prp As DAO.Property
Set bd = CurrentDb
Set t = bd.TableDefs("LaTable1")
Set f = t.Fields("LeChamp")
Set p = f.CreateProperty("InputMask", dbText, "Password")
f.Properties.Append p
Set p = Nothing
Set f = Nothing
Set t = Nothing
Set bd = Nothing
End Sub

--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Merci beaucoup Eric,

J'essaye ça tout de suite.
Je te tiens au courant.

Fred
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news:
uNCglbDpGHA.4268@TK2MSFTNGP04.phx.gbl...

.../...
sous réserve que ça convienne, j'avais oublié de préciser de charger la
référence Microsoft DAO 3.x Object Library dans l'éditeur VB (Menu
Outils|Références).

Bonjour,

Directement à partir de ta requête création de table, je ne pense pas que
tu puisses faire cela. Mais tu peux faire ta requête Création de table
puis derrière ajouter, via du code, une propriété à ton champ.
Par exemple, la procédure suivante créée une table avec un champ issu
d'une autre table dont le champ a un masque de saisie Password, puis
ajoute cette propriété masque de saisie sur le champ de la table
nouvellement créée.

Sub zz()
Dim strSQL As String
' SQL de la requête : LaTable1 est la table nouvelle
strSQL = "SELECT LaTable.LeChamp INTO LaTable1 FROM LaTable;"
CurrentDb.Execute strSQL
' Création de la propriété Masque de saisie sur le champ de la
nouvelle table
Dim t As DAO.TableDef, bd As DAO.Database
Dim f As DAO.Field, prp As DAO.Property
Set bd = CurrentDb
Set t = bd.TableDefs("LaTable1")
Set f = t.Fields("LeChamp")
Set p = f.CreateProperty("InputMask", dbText, "Password")
f.Properties.Append p
Set p = Nothing
Set f = Nothing
Set t = Nothing
Set bd = Nothing
End Sub

--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr