Hej!
Jag ska försöka läsa in en tabseparerad textfil till en befintlig tabell i access,
fylla på med mer data. Jag får även samma fel om jag försöker läsa in textfilen till en ny tabell. Ifall nån har en lösning är jag tacksam. /Mats

Jag får run-time error'91' object variable or with block variable not set på denna rad kod (Läsa in till Befintlig tabell)
Set tabell = mdbAlder.OpenRecordset(tabellnamn)

Jag får run-time error'91' object variable or with block variable not set på denna rad kod (Läsa in till Ny Tabell)
mdbAlder.TableDefs.Append tabellDef 'Lägg tabelldef till databas

<code>
Deklarationer:
Dim fld As Field
Dim mdbAlder As Database (har provat connection istället för database)
Dim tabell As Recordset (här användes Table istället för recordset i orginal kod)
Dim tabellDef As New TableDef
Dim filNr As Integer


tabellDef.Name = tabellnamn

'Addera fälten till tabellen
Set fld = New Field
fld.Name = "FTAG"
fld.Type = DB_TEXT
fld.Size = 5
tabellDef.Fields.Append fld 'Lägg fält till tabelldefinition
mdbAlder.TableDefs.Append tabellDef 'Lägg tabelldef till databas
nyTabellSkapad = True

Set fld = New Field
fld.Name = "KAT"
fld.Type = DB_TEXT
fld.Size = 1
mdbAlder.TableDefs(tabellDef.Name).Fields.Append fld

Set fld = New Field
fld.Name = "AVD"
fld.Type = DB_TEXT
fld.Size = 2
mdbAlder.TableDefs(tabellDef.Name).Fields.Append fld

'Läs in posterna från en textfil
Set tabell = mdbAlder.OpenRecordset(tabellnamn)

If Not EOF(filNr) Then Line Input #filNr, rad 'skippa rubrikraden

Do While Not EOF(filNr)
Line Input #filNr, rad 'läs in rad (post)
rad = Ascii2Ansi(rad) 'hanterar å,ä,ö
tabell.AddNew 'skapa ny post i tabellen

</code>

så här ser det ut i text filen som ska läsas in eller fyllas på i befintlig tabell:

FTAG KAT AVD TJST ORGREF ATA
4051 1 21 40 2140 2
4051 1 10 20 1020 2
4051 1 41 06 4106 8
4051 1 33 30 3330 2