ник: osmor
Вот рабочий код
http://www.hiprog.com/index.php?option=com_content&task=view&id=327
У вас используется не определенная переменная Database и описанная но не определеная переменная Poisk и неверно использован метод CreateTableDef
по идее должно быть:
Private Sub Search_Click()
Dim Poisk As Database
Dim SearchResults As DAO.TableDef
Dim fld As DAO.field
set Poisk = currentDB
Set SearchResults = Poisk .CreateTableDef("ИмяВашейТаблицы")
Set fld = SearchResults.CreateField("Id_Rec", dbInteger, 10)
SearchResults.Fields.Append fld
Set fld = SearchResults.CreateField("ПОЛЕ", dbString, 255)
SearchResults.Fields.Append fld
Poisk.TableDefs.Append SearchResults
Poisk.TableDefs.Refresh
End Sub
|
Почему не работает удаление не понятно - код совершенно рабочий