After installing my application in offices, "run time error '3190' - Too many fields defined" occurs when I tried to create an addtional field in one of my tables in MS Access at run time. I clicked on Help button and it says I exceeded the 255 field limit. My table has only 15 fields and an average of 10,000 records.
Private Sub Text8_KeyPress(KeyAscii As Integer)
Dim ws As Workspace
Dim db As Database
Dim CheckTicket, TempRec As Recordset
Dim td As TableDef
Dim fld As Field
Select Case KeyAscii
Case vbKeyReturn, vbKeyTab
StatusBar1.Panels(1).Text = "Please wait..."
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("c:\btfb\btfb.mdb")
Set td = db.TableDefs("trnxfile")
Set fld = td.CreateField("temp", dbInteger)
td.Fields.Append fld <-The error occurs here