modifier un champs txt en numerique

Le
macgiver
Bonjour comment puis-je modifer par le biais de vb, un champs de type texte
en numérique? C'est que j'ai une requete qui me creé une table avec un
champs "bloc" en format texte mais je voudrais l'avoir en numérique, de toute
facon ce ne sont que des chiffres dans ce champs qui s'y trouve.

merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Raymond [mvp]
Le #6294461
Bonjour.

tu trouveras un exemple vb de modification de type (num en alpha) sur la
page: http://officesystem.access.free.fr/ex_changer_type_champ.htm


--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
http://officesystem.access.free.fr/wiki/
Pour débuter sur le forum: http://www.mpfa.info/

Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db


"macgiver" news:
| Bonjour comment puis-je modifer par le biais de vb, un champs de type
texte
| en numérique? C'est que j'ai une requete qui me creé une table avec un
| champs "bloc" en format texte mais je voudrais l'avoir en numérique, de
toute
| facon ce ne sont que des chiffres dans ce champs qui s'y trouve.
|
| merci
|
Raymond [mvp]
Le #6294451
.../...
j'en profite pour te modifier la fonction pour l' alpha vers num (long):

Dim Db As DAO.Database
Dim Req As String
Dim Fld_Nouveau As DAO.Field
Dim Fld_Ancien As DAO.Field
Dim Fld_Position As Long
Set Db = CurrentDb
Set Fld_Ancien = Db.TableDefs(NomTable).Fields(NomChamp)
Fld_Position = Fld_Ancien.OrdinalPosition
If Fld_Ancien.Type <> Nouveau_Type Then
Set Fld_Nouveau = Db.TableDefs(NomTable).CreateField(NomChamp &
1, Nouveau_Type)
Fld_Nouveau.Required = Fld_Ancien.Required
Db.TableDefs(NomTable).Fields.Append Fld_Nouveau
Req = "UPDATE " & NomTable & " SET [" & NomChamp & 1 & "]=
CLng([" & NomChamp & "])"
Db.Execute Req, dbFailOnError
Db.TableDefs(NomTable).Fields.Delete NomChamp
Fld_Nouveau.OrdinalPosition = Fld_Position
Fld_Nouveau.Name = NomChamp
End If

--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
http://officesystem.access.free.fr/wiki/
Pour débuter sur le forum: http://www.mpfa.info/

Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
Publicité
Poster une réponse
Anonyme