ник: SergeyKV
Уважаемый osmor я ее пытаюсь вызывать нажатием на кнопку. Использую в форме, на одной из вкладок. Очень жду ваших комментариев, ибо встал в тупиковое положение.
Конкретно сейчас у меня на кнопку повешено вот такой код , по идее он должен формировать временную таблицу с двумя полями. (но правда нифига не работает)
Private Sub Search_Click()
Dim Poisk As Database 'Poisk íàçâàíèå âêëàäêè ãäå ðàñïîëàãàåòñÿ êíîïêà
Dim SearchResults As DAO.TableDef 'SearchResults íàçâàíèå òàáëèöû
Dim fld As DAO.field ' îáúÿâëÿþ ïåðåìåííóþ
Set SearchResults = Database.CreateTableDef![Ðåçóëüòàòû ïîèñêà] ' íàçâàíèå âðåìåííîé òàáëèöû
Set fld = SearchResults.CreateField("Id_Rec", dbInteger, 10) 'ôîðìèðîâàíèå ïîëÿ
SearchResults.Fields.Append fld ' äîáàâëÿåì ïîëå â ñåìåéñòâî
Set fld = SearchResults.CreateField("Íàèìåíîâàíèå", dbString, 255) 'åùå îäíîãî ïîëÿ
SearchResults.Fields.Append fld ' äîáàâëÿåì åùå îäíî ïîëå â ñåìåéñòâî Fields
Poisk.TableDefs.Append SearchResults 'äîáàâëÿåì òàáëèöó ê ñåìåéñòâó TableDefs
Poisk.TableDefs.Refresh ' îáíîâëÿåì ñåìåéñòâî TableDefs
End Sub
|
упс... не знаю что с этой кодировкой