ник: час
ПРОБУЮ СОЗДАВАТЬ ТАБЛИЦЫ ПРОГРАММНО
Sub SOZDANIE_TABLICI(TABL_NAME As String)
Dim db As Database, td As TableDef, fld As DAO.Field
Set td = CurrentDb.CreateTableDef(TABL_NAME)
Set fld = td.CreateField("Marka", dbText, 150)
td.Fields.Append fld
Set fld = td.CreateField("Strana_Izgotovitel", dbText, 250)
td.Fields.Append fld
Set fld = td.CreateField("Firma_Izgotovitel", dbText, 250) 'ìîæíî è òàê
*********** НО ВОТ ТУТ ПРОБЛЕМА******************
' fld.Caption = "НАДПИСЬ ПО РУССКИ" КАК ЭТО НАПИСАТЬ?
*********** НО ВОТ ТУТ ПРОБЛЕМА******************
td.Fields.Append fld
db.TableDefs.Append td
db.TableDefs.Refresh
db.Close
End Sub