Access 97 создание объекта из VB

Question

В доступе 97 можно добавить какой-либо элемент в форму с помощью VB, например, какую-нибудь командную кнопку с надписью «Hello Word», а высота 300 и ширина 700?

Answer 1

Попробуйте следующее:

Function AddCommandButtonFunction() 
Dim btn As CommandButton 

DoCmd.OpenForm "TestForm", acDesign 

On Error Resume Next 
DeleteControl "TestForm", "NewButton" 

On Error GoTo lberr 
Set btn = CreateControl("TestForm", acCommandButton) 

btn.Name = "NewButton" 
btn.Caption = "Hello World!" 
btn.Top = 500 'twips. 1 twip = 1/1440 in 
btn.Left = 500 'twips 
btn.Width = 2000 'twips 
btn.Height = 500 'twips 

DoCmd.Close acForm, "TestForm", acSaveYes 
DoCmd.OpenForm "TestForm", acNormal 

Exit Function 

lberr: 
    MsgBox Err.Description 
End Function 

Пожалуйста, обратите внимание, добавление/удаление контроля (программно) является только допускается в режиме конструктора