На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное DigiMania 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
    Не получается программно создавать :wall:
    Может потому, что метода Controls.Add в VBA нету?

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

    Эта тема была разделена из темы "Создание массива контролов в VBA"
    Сообщение отредактировано: Jokk -
      А вот и выход 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,0906 ]   [ 17 queries used ]   [ Generated: 17.02.19, 12:21 GMT ]