Problème type field : dbText ou rien
coudgrizou
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Quelqu'un a-t-il trouvé la réponse à ce problème?
(suite discution https://forums.commentcamarche.net/forum/forum/affich-8352936-access-vba-probleme-type-field )
Il n'y a que dbMemo et dbText qui fonctionnent. Je ne peux donc pas créer un champ de type numérique.
Merci par avance pour votre aide.
Quelqu'un a-t-il trouvé la réponse à ce problème?
(suite discution https://forums.commentcamarche.net/forum/forum/affich-8352936-access-vba-probleme-type-field )
Il n'y a que dbMemo et dbText qui fonctionnent. Je ne peux donc pas créer un champ de type numérique.
Merci par avance pour votre aide.
Configuration: Windows / Chrome 81.0.4044.129
A voir également:
- Problème type field : dbText ou rien
- Clear type - Guide
- Type de ram - Guide
- Comment changer le type de fichier - Guide
- Chat type coco - Accueil - Réseaux sociaux
- Click-n-type - Télécharger - Vie quotidienne
5 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour, plutôt:
https://forums.commentcamarche.net/forum/affich-8352936-access-vba-probleme-type-field
Peux-tu partager ton code?
https://forums.commentcamarche.net/forum/affich-8352936-access-vba-probleme-type-field
Peux-tu partager ton code?
Bonjour Yg_be et merci de ton aide,
Ça fait plaisir de voir une communauté prête à aider!
J'ai essayé createfield(nom,type) aussi mais sans succès.
Je pensais que c'était à cause de la date dans le nom du champ mais en la supprimant ça ne fonctionne pas non plus.
Je n'ai plus d'idée…
Ça fait plaisir de voir une communauté prête à aider!
Private Sub basMacro1()
On Error GoTo err
Dim oDb As DAO.Database
Dim otbl As DAO.TableDef
Dim ofld As DAO.Field
Set oDb = CurrentDb
Set otbl = oDb.TableDefs("table1")
'Etape 1 : Créer le champ
Set ofld = otbl.CreateField("au" & Date)
'Etape 2 : Définit les propriétés
ofld.Type = dbNumeric
ofld.AllowZeroLength = True 'Chaine vide autorisée : oui
ofld.Required = False 'Null interdit : non
'Etape 3 : Ajout du champ à la table
otbl.Fields.Append ofld
'Rafraichit la collection
otbl.Fields.Refresh
MsgBox ofld.Name
'suppression champ
otbl.Fields.Delete ofld.Name
Exit Sub
err:
Select Case err.Number
'Si impossible de trouver l'élément dans la collection
Case 3265
MsgBox "impossible de trouver ta table: " & strT_archiveshdv
Case 3010, 3191
MsgBox "Le champ " & Date & " existe déjà"
Case Else: MsgBox "Erreur inconnue. Avez-vous fermé la table?"
End Select
J'ai essayé createfield(nom,type) aussi mais sans succès.
Je pensais que c'était à cause de la date dans le nom du champ mais en la supprimant ça ne fonctionne pas non plus.
Je n'ai plus d'idée…
Pardon,
J'ai juste oublié la ligne end sub après end select.
Basic c'est pour préciser que c'est du VBA, j'imagine. J'y penserai la prochaine fois.
Merci de ton aide.
J'ai juste oublié la ligne end sub après end select.
Basic c'est pour préciser que c'est du VBA, j'imagine. J'y penserai la prochaine fois.
Merci de ton aide.
Ok, je vais faire ça et je reviens.
Cela dit, il suffit que je mette dbtext et tout fonctionne. Je n'ai pas précisé que j'ai réessayé sur une table vierge au cas où la table d'origine avait un problème ou une restriction qui m'avait échappé.
Cela dit, il suffit que je mette dbtext et tout fonctionne. Je n'ai pas précisé que j'ai réessayé sur une table vierge au cas où la table d'origine avait un problème ou une restriction qui m'avait échappé.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question