Forum

Stelling	:	Tabel aanmaken en invullen met VBA
Gepost door	:	Lucien
Datum gepost	:	27-12-2015
Ik wil een nieuwe tabel aanmaken met VBA met 3 velden en er gegevens inzetten. Tot nu heb ik volgende code, werkt tot de voorlaatste regel en ik vind mijn tabel niet. Dim db As DAO.Database Dim tdf As TableDef Dim fld1, fld2, fld3 As Field Dim rs As Recordset Set db = CurrentDb 'Maak Tijdelijke tabel met 3 velden ' Nieuwe tabel met drie velden maken. Set tdf = db.CreateTableDef("tblTemp") Set fld1 = tdf.CreateField("Dag", dbText, 10) Set fld2 = tdf.CreateField("Datum", dbDate) Set fld3 = tdf.CreateField("Memo", dbText, 20) ' Velden toevoegen. tdf.Fields.Append fld1 tdf.Fields.Append fld2 tdf.Fields.Append fld3 db.TableDefs.Append tdf db.TableDefs.Refresh
Reageer op deze stelling
Reactie	:	Re: Tabel aanmaken en invullen met VBA
Gepost door	:	Beheerder
Datum gepost	:	28-12-2015
Wanneer ik jouw code achter een knop zet op een formulier, werkt deze. Alleen wanneer ik hem een tweede keer uitvoer, krijg ik een foutmelding (tabel bestaat al). Echter, ik zie de tabel niet direct in de lijst met tabellen. Pas na hersorteren en verversen zie ik deze staan. Het is me nog niet duidelijk waarom deze niet direct na een F5 in de lijst voorkomt.
Reageer op deze stelling