ITYourself! - компьютерная документация, книги, мануалы, it-тематика

???????? ? ???? "???? ??????" - ???????? ? ?? (VBA)

E-mail Печать PDF
Рейтинг пользователей: / 9
ХудшийЛучший 
Индекс материала
???????? ? ???? "???? ??????"
????????????? ?? ?? ?? ?????????????
??????????? ?? (MS Access)
?????
????? ????? ?????????
???????????? ?????? ?????????? ?????? ? ??????? ?????????? ?????
???????? ? ?? (VBA)
???????? ??? ????????
SQL
???????? Select
DISTINCT
FROM
???????????
??????????? ??????
?????????
???????????? ???????
?????????? ??????
???????? ??????
??????????? ???????
???????? ??????
?????????? ????? ?????
T????????? ?????????? ???????????? ???????????, ????????????? ???? ??????
?????? ? ?????? ? VB 6.0
?????? ? ????????
?????? ? VB6
?????? ? ?????? ? C++ Builder
?????? ? C++ Builder
???????? ?????????????? ??????????
?????? ? ?????? ? C# (Visual Studio 2005)
???????? ???????
OLAP ??????????. XML ????
SQL Server
???????
???????????????? ????????
XML
Все страницы

???????? ? ?? (VBA)

???????? ??? ???????????/?????????

1. ???????? ???????? ???????/?????????

a. ??? ???????,

b. ???????? ????????? ????? (???????? ???? ?????, ?? ?????, ????? ? ??.)
???????? ??????? ??????????:
Dim db as Database
Dim tb as Tabledef
Dim fil as Field
Set db = CurrentDb - ????????????? ??????? ? ???????? ??
Set tb = db.CreateTableDef("ct") - ???????? ???????
Set fil = tb.Createfield("???????", dbtext, 40) - ???????? ?????????? ???? ?????? 40
tb.fields.Append fil - ?????????? ? ????? ??????? ?????????? ????
Set fil = tb.Createfield("???", dblong)
fil.attributes = dbAutoIncrement
tb.fields.Append fil
:
tb.Fields.Refresh - ?????????? ????????? ? ???????
db.tableDefs.Append tb - ?????????? ??????? ? ?? ? ????? ?????????
Set tb = Nothing - ???????????? ??????

2. ???????? ???????? ???????.
Dim ind as Index
Set db = CurrentDb
set tb = db.TableDefs("ct")
Set ind = tb.CreateIndex("ind1") - ???????? ???????
ind.Primary = true - ?????? ?????? ?????????
Set fil = ind.CreateField("???",dbLong) - ??????? ???? ???????
ind.Fields.Append fil
tb.Indexes.Append ind
tb.Indexes.Refresh

3. ???????? ??????? ? ??????? ??????? DoCmd, ? ??????? ???????? ??? ????????????.
DoCmd.OpenTable "ct", acViewDesign - ???????? ??????? ? ?????? ????????????

4. ???????? ???????.

5. ???????? ?????? ??????? (SetFocus).

6. ????? ????????? ?????? ??? ?????.
Me.RecordSource = "ct"

7. ???????? ???????. ????? ??????????? ??? ?????????? ? ? ??????????? (???????? Close ? ???????????; ???????? Update).

8. ???????? ???????.
db.TableDefs.Delete "ct"

9. ???????? ???????.



 

Добавьтe Ваш комментарий

Ваше имя (псевдоним):
Ваш адрес почты:
Заголовок:
Комментарий:

??????????




????????

Внимание!!! Файл sape.php не обнаружен. Проверьте правильность установки кода Sape.


C???????? ?????????