No declarations

Private Sub cmdCancel_Click() Unload Me End Sub Private Sub cmdOK_Click() On Error GoTo Errad Dim LogCount As Integer, DetCount As Integer, SchedCount As Integer, LogonCount As Integer Dim DB As Database, Ws As Workspace Dim LogTd As TableDef, DetailsTd As TableDef, SchedTd As TableDef, LogonTd As TableDef Dim LogFlds(15) As Field, DetailsFlds(22) As Field, SchedFlds(8) As Field, LogonFlds(2) As Field Set Ws = DBEngine.Workspaces(0) Set DB = Ws.CreateDatabase(App.Path & "\" & TxtDbname, dbLangGeneral, dbVersion20) Set LogTd = DB.CreateTableDef("TblLog") Set DetailsTd = DB.CreateTableDef("TblDetails") Set SchedTd = DB.CreateTableDef("TblSched") Set LogonTd = DB.CreateTableDef("TblLogon") 'TblLog Set LogFlds(0) = LogTd.CreateField("CallId", dbLong) LogFlds(0).Attributes = dbAutoIncrField Set LogFlds(1) = LogTd.CreateField("Date", dbDate) LogFlds(1).Required = True 'LogFlds(1).Size = 50 Set LogFlds(2) = LogTd.CreateField("TimeOn", dbDate) LogFlds(2).Required = True 'LogFlds(2).Size = 10 Set LogFlds(3) = LogTd.CreateField("Callsign", dbText) LogFlds(3).Size = 12 LogFlds(3).Required = True LogFlds(3).AllowZeroLength = False Set LogFlds(4) = LogTd.CreateField("Band", dbText) LogFlds(4).Size = 10 LogFlds(4).Required = True LogFlds(4).AllowZeroLength = False Set LogFlds(5) = LogTd.CreateField("Mode", dbText) LogFlds(5).Size = 5 LogFlds(5).Required = True LogFlds(5).AllowZeroLength = False Set LogFlds(6) = LogTd.CreateField("Power", dbText) LogFlds(6).Size = 10 LogFlds(6).Required = True LogFlds(6).AllowZeroLength = False Set LogFlds(7) = LogTd.CreateField("HisRst", dbText) LogFlds(7).Size = 7 LogFlds(7).AllowZeroLength = True LogFlds(7).Required = False Set LogFlds(8) = LogTd.CreateField("MyRst", dbText) LogFlds(8).Size = 7 LogFlds(8).AllowZeroLength = True LogFlds(8).Required = False Set LogFlds(9) = LogTd.CreateField("QslSent", dbText) LogFlds(9).Size = 3 LogFlds(9).AllowZeroLength = True LogFlds(9).Required = False Set LogFlds(10) = LogTd.CreateField("QslRcvd", dbText) LogFlds(10).Size = 3 LogFlds(10).AllowZeroLength = True LogFlds(10).Required = False Set LogFlds(11) = LogTd.CreateField("WAB", dbText) LogFlds(11).Size = 10 LogFlds(11).AllowZeroLength = True LogFlds(11).Required = False Set LogFlds(12) = LogTd.CreateField("IARU", dbText) LogFlds(12).Size = 10 LogFlds(12).AllowZeroLength = True LogFlds(12).Required = False Set LogFlds(13) = LogTd.CreateField("Comments", dbMemo) LogFlds(13).AllowZeroLength = True LogFlds(13).Required = False Set LogFlds(14) = LogTd.CreateField("TimeOff", dbDate) 'LogFlds(14).Size = 10 LogFlds(14).Required = True 'TblDetails Set DetailsFlds(0) = DetailsTd.CreateField("Callsign", dbText) DetailsFlds(0).Size = 12 DetailsFlds(0).AllowZeroLength = True DetailsFlds(0).Required = False Set DetailsFlds(1) = DetailsTd.CreateField("Name", dbText) DetailsFlds(1).Size = 25 DetailsFlds(1).AllowZeroLength = True DetailsFlds(1).Required = False Set DetailsFlds(2) = DetailsTd.CreateField("Address1", dbText) DetailsFlds(2).Size = 25 DetailsFlds(2).AllowZeroLength = True DetailsFlds(2).Required = False Set DetailsFlds(3) = DetailsTd.CreateField("Address2", dbText) DetailsFlds(3).Size = 25 DetailsFlds(3).AllowZeroLength = True DetailsFlds(3).Required = False Set DetailsFlds(4) = DetailsTd.CreateField("Address3", dbText) DetailsFlds(4).Size = 25 DetailsFlds(4).AllowZeroLength = True DetailsFlds(4).Required = False Set DetailsFlds(5) = DetailsTd.CreateField("Address4", dbText) DetailsFlds(5).Size = 25 DetailsFlds(5).AllowZeroLength = True DetailsFlds(5).Required = False Set DetailsFlds(6) = DetailsTd.CreateField("Phone", dbText) DetailsFlds(6).Size = 20 DetailsFlds(6).AllowZeroLength = True DetailsFlds(6).Required = False Set DetailsFlds(7) = DetailsTd.CreateField("Mobile", dbText) DetailsFlds(7).Size = 20 DetailsFlds(7).AllowZeroLength = True DetailsFlds(7).Required = False Set DetailsFlds(8) = DetailsTd.CreateField("Fax", dbText) DetailsFlds(8).Size = 20 DetailsFlds(8).AllowZeroLength = True DetailsFlds(8).Required = False Set DetailsFlds(9) = DetailsTd.CreateField("Email", dbText) DetailsFlds(9).Size = 50 DetailsFlds(9).AllowZeroLength = True DetailsFlds(9).Required = False Set DetailsFlds(10) = DetailsTd.CreateField("Website", dbText) DetailsFlds(10).Size = 50 DetailsFlds(10).AllowZeroLength = True DetailsFlds(10).Required = False Set DetailsFlds(11) = DetailsTd.CreateField("WrkAddress1", dbText) DetailsFlds(11).Size = 50 DetailsFlds(11).AllowZeroLength = True DetailsFlds(11).Required = False Set DetailsFlds(12) = DetailsTd.CreateField("WrkAddress2", dbText) DetailsFlds(12).Size = 50 DetailsFlds(12).AllowZeroLength = True DetailsFlds(12).Required = False Set DetailsFlds(13) = DetailsTd.CreateField("WrkAddress3", dbText) DetailsFlds(13).Size = 50 DetailsFlds(13).AllowZeroLength = True DetailsFlds(13).Required = False Set DetailsFlds(14) = DetailsTd.CreateField("WrkAddress4", dbText) DetailsFlds(14).Size = 50 DetailsFlds(14).AllowZeroLength = True DetailsFlds(14).Required = False Set DetailsFlds(15) = DetailsTd.CreateField("Position", dbText) DetailsFlds(15).Size = 20 DetailsFlds(15).AllowZeroLength = True DetailsFlds(15).Required = False Set DetailsFlds(16) = DetailsTd.CreateField("Dept", dbText) DetailsFlds(16).Size = 15 DetailsFlds(16).AllowZeroLength = True DetailsFlds(16).Required = False Set DetailsFlds(17) = DetailsTd.CreateField("WrkPhone", dbText) DetailsFlds(17).Size = 20 DetailsFlds(17).AllowZeroLength = True DetailsFlds(17).Required = False Set DetailsFlds(18) = DetailsTd.CreateField("Extn", dbText) DetailsFlds(18).Size = 7 DetailsFlds(18).AllowZeroLength = True DetailsFlds(18).Required = False Set DetailsFlds(19) = DetailsTd.CreateField("WrkFax", dbText) DetailsFlds(19).Size = 20 DetailsFlds(19).AllowZeroLength = True DetailsFlds(19).Required = False Set DetailsFlds(20) = DetailsTd.CreateField("WrkEmail", dbText) DetailsFlds(20).Size = 50 DetailsFlds(20).AllowZeroLength = True DetailsFlds(20).Required = False Set DetailsFlds(21) = DetailsTd.CreateField("WrkWebsite", dbText) DetailsFlds(21).Size = 50 DetailsFlds(21).AllowZeroLength = True DetailsFlds(21).Required = False 'TblSched Set SchedFlds(0) = SchedTd.CreateField("Date", dbDate) SchedFlds(0).Required = True Set SchedFlds(1) = SchedTd.CreateField("Time", dbDate) SchedFlds(1).Required = True Set SchedFlds(2) = SchedTd.CreateField("CallSign", dbText) SchedFlds(2).Size = 12 SchedFlds(2).Required = True Set SchedFlds(3) = SchedTd.CreateField("Frequency", dbText) SchedFlds(3).Size = 12 SchedFlds(3).Required = False Set SchedFlds(4) = SchedTd.CreateField("Mode", dbText) SchedFlds(4).Size = 4 SchedFlds(4).Required = False Set SchedFlds(5) = SchedTd.CreateField("Recurring", dbBoolean) SchedFlds(5).Required = False Set SchedFlds(6) = SchedTd.CreateField("Notes", dbMemo) SchedFlds(6).Required = False Set SchedFlds(7) = SchedTd.CreateField("Recurrance", dbText) SchedFlds(7).Required = False 'TblLogon Set LogonFlds(0) = LogonTd.CreateField("Logon Name", dbText) LogonFlds(0).Required = True Set LogonFlds(1) = LogonTd.CreateField("Password", dbText) LogonFlds(1).Required = True For LogCount = 0 To 14 LogTd.Fields.Append LogFlds(LogCount) Next For DetCount = 0 To 21 DetailsTd.Fields.Append DetailsFlds(DetCount) Next For SchedCount = 0 To 7 SchedTd.Fields.Append SchedFlds(SchedCount) Next For LogonCount = 0 To 1 LogonTd.Fields.Append LogonFlds(LogonCount) Next DB.TableDefs.Append LogTd DB.TableDefs.Append DetailsTd DB.TableDefs.Append SchedTd DB.TableDefs.Append LogonTd DB.Close