На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Поиск Участники Календарь Избранное RSS
msm.ru
! Организуем VBA-FAQ! Если у Вас есть предложения, выскажитесь здесь: Пишем FAQ, интересно Ваше мнение
Популярные разделы FAQ:    user posted image Общие вопросы    user posted image Особенности VBA-кода    user posted image Оптимизация VBA-кода    user posted image Полезные ссылки
1. Старайтесь при создании темы указывать в заголовке или теле сообщения название офисного приложения и (желательно при работе с Office 95/97/2000) его версию. Это значительно сократит количество промежуточных вопросов.
2. Формулируйте вопросы как можно конкретнее, вспоминая (хотя бы иногда) о правилах ВЕЛИКОГО И МОГУЧЕГО РУССКОГО ЯЗЫКА, и не забывая, что краткость - сестра таланта.
3. Не забывайте использовать теги [сode=vba] ...текст программы... [/code] для выделения текста программы подсветкой!
4. Темы с просьбой выполнить какую-либо работу полностью за автора здесь не обсуждаются и переносятся в раздел ПОМОЩЬ СТУДЕНТАМ.
Модераторы: Old Bat, MIF
  
> программное создание контролов , MS Access
Jokk
Сообщ. #1 ,
    Unregistered
    Не получается программно создавать :wall:
    Может потому, что метода Controls.Add в VBA нету?

    P.S. Однако... В Excel Controls.Add есть... А в Access нету.

    Эта тема была разделена из темы "Создание массива контролов в VBA"
    Сообщение отредактировано: Jokk -
    Jokk
    Сообщ. #2 ,
      Unregistered
      А вот и выход 8-)

      Access не позволяет добавлять Control в форму runtime.
      Так что будем как волшебники, конструировать саму форму:

      ExpandedWrap disabled
        Dim pForm As Form
        Dim pLabel As Label
        Dim pTextBox As TextBox
         
        Set pForm = Application.CreateForm()
         
        Set pTextBox = Application.CreateControl(pForm.Name, acTextBox, , , , 400, 400, 1000, 300)
        Set pLabel = Application.CreateControl(pForm.Name, acLabel, , , , 400, 200, 1000, 200)
        pLabel.Caption = "MyLabel"
        DoCmd.OpenForm pForm.Name, acNormal
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0298 ]   [ 16 queries used ]   [ Generated: 6.12.23, 21:23 GMT ]  
      Powered by Invision Power Board(U) v1.2 © 2003  IPS, Inc.