Problem de debutant

Question

Hello !

je debute en vb et j'ai un problem (qui m'enerve au possible): j arrive a rien sous access 2002

voici le code que j ai place dans le formulaire (module)



en gros je veu modifier/ajouter le contenu d'un table

pour l'instant je ne peut pas cree un nouveau champ



merci  de m aider

@+



    Set tmpTable = CurrentDb.TableDefs("Personne")

    -->Set tmpField = tmpTable.CreateField("essai", dbText)

    tmpTable.Fields.Append tmpField

    CurrentDb.TableDefs.Append tmpTable



    Set tmpRec = CurrentDb.OpenRecordset("Personne", dbOpenDynaset)

    tmpRec.AddNew

    tmpRec!essai = "unText"



    erreur convertion de type

cs_CanisLupus · Answer

Salut,

Si ta table n'existe pas :

  Set tmpTable = CurrentDb.CreateTableDef("Personne")
  With tmpTable 
    .Fields.Append .CreateField("Essai", dbText)
  End With
  CurrentDb.TableDefs.Append tmpTable

si elle existe :

  Set tmpTable = CurrentDb.TableDefs("Personne")
  With tbl
    .Fields.Append .CreateField("Essai", dbText)
  End With

Cordialement, CanisLupus

cs_CanisLupus · Answer

oups, j'ai laiss&#233; trainer un tbl, il faut comprendre tmpTable.

Cordialement, CanisLupus

oxboff5000 · Answer

merci pour ta reponse, CanisLupus ! cependant sa ne fonctionne pas et je comprend pas pourquoi : pour creer une table avec le code que tu m'a indiqué : .Fields.Append .CreateField("Essai2", dbText) < erreur de convertion de type de donnee > pour ouvrir une table avec le code que tu m'a indiqué : .Fields.Append .CreateField("Essai", dbText) < objet est incorrect ou n'est plus defini > pour un recordset Set tmpRec = CurrentDb.OpenRecordset("Personne", dbOpenDynaset) < argument non valide > @+

oxboff5000 · Answer

desol&#233; pour la taille de la police...



@+

cs_CanisLupus · Answer

Chez moi, le code suivant fonctionne :

Dim db As Database
Dim tmpTable As TableDef


  Set db = OpenDatabase("c:	emp\bd1.mdb")
  Set tmpTable = db.TableDefs("Table1")
  
  With tmpTable
    .Fields.Append .CreateField("Essai", dbText)
  End With

Cordialement, CanisLupus

oxboff5000 · Answer

il est vrai...

...j'y croyais plus



je sais pas ce qu'il s'est pass&#233;



n.b. j ai ajout&#233; dbo 3.6 dans outil/reference 



merci de ton aide Canislupus , 

c'est toujours dur de commencer un nouveau langage(vb), et un nouveau concept (db)



@+

Problem de debutant

6 réponses

Discussions similaires