VPF::доб/уд полей - Форум программистов

Chrono017

Дата 17.12.2006, 23:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 20.11.2006

Репутация: нет
Всего: нет

вобсчем такая проблема
пишу.... точнеее несовсемпишу).... вобщем есть код:

Код


Private Sub Кнопка22_Click()
Dim dbs As Database, tdf As TableDef
 Dim fld As Field
 Set dbs = CurrentDb
 If Группа4.Value = 1 Then
  Поле15.SetFocus
  If Поле15.SelText <> "" Then
    If ПолеСоСписком0.ListIndex = 0 Then Set tdf = dbs.TableDefs!Клиенты 
               [Между ними удалил дабы место не занимать))]
    If ПолеСоСписком0.ListIndex = 5 Then Set tdf = dbs.TableDefs!Склад

    Поле15.SetFocus
    
    Select Case ПолеСоСписком24.ListIndex
     Case Is = 0
        Set fld = tdf.CreateField(Поле15.SelText, dbDate)
     Case Is = 1
        Set fld = tdf.CreateField(Поле15.SelText, dbCurrency)
                   [Между ними удалил дабы место не занимать))]
     Case Is = 4
        Set fld = tdf.CreateField(Поле15.SelText, dbDouble)
    End Select
    
    tdf.Fields.Append fld
    tdf.Fields.Refresh
    dbs.Close
  End If
    Call ПолеСоСписком0_Change
 Else:
  Dim parl As String
  If ПолеСоСписком19.ItemData(1) <> "" Then
  ПолеСоСписком19.SetFocus
  Select Case ПолеСоСписком0.ListIndex
   Case Is = 0
    dbs.Execute "ALTER TABLE Клиенты " _
   & "DROP COLUMN [" + ПолеСоСписком19.ItemData(ПолеСоСписком19.ListIndex) + "];"
                 [Между ними удалил дабы место не занимать))] Case Is = 5
    dbs.Execute "ALTER TABLE Склад " _
   & "DROP COLUMN [" + ПолеСоСписком19.ItemData(ПолеСоСписком19.ListIndex) + "];"
  End Select
  End If
 End If
End Sub

Private Sub ПолеСоСписком0_Change()
If ПолеСоСписком0.ListIndex = 0 Then
    Forms!добудл!ПолеСоСписком19.RowSource = "Клиенты"
    ПолеСоСписком19.DefaultValue = """Фамилия"""
    End If
                  [Между ними удалил дабы место не занимать))]
    If ПолеСоСписком0.ListIndex = 5 Then
    Forms!добудл!ПолеСоСписком19.RowSource = "Склад":
    ПолеСоСписком19.DefaultValue = """Машина"""
    End If
End Sub

При нажатии на кнопу
ВЫдает: Compile error: User-defined type not defined
выделяет: dbs As Database

незнаю че делать...

заранее спасибо

Это сообщение отредактировал(а) Akina - 17.12.2006, 23:59

Akina

Дата 17.12.2006, 23:59 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454

Tools - References - Microsoft DAO Object Library

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Chrono017

Дата 20.12.2006, 17:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 20.11.2006

Репутация: нет
Всего: нет

.....теперь возникает другая ошибка: Type mismatch smile

Akina

Дата 20.12.2006, 22:35 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454

Укавзывай конкретную строку, в которой возникает ошибка.

--------------------

Chrono017

Дата 20.12.2006, 23:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 20.11.2006

Репутация: нет
Всего: нет

спасибо помощь) ...но с этим я вроде разобрался... не знаю в чем прикол, но просто коприровал все что было в другую базу.) (все формы таб, и т.д)
....как не странно заработало)))

Это сообщение отредактировал(а) Chrono017 - 20.12.2006, 23:04

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Access \| Следующая тема »