In access 97, is it 开发者_StackOverflow中文版possible to add some element to the form using VB, like some command button whose caption is "Hello Word" and which height is 300 and width 700?
Try the following:
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
Please note adding/deleting of control (programmatically) is only allowed in Design mode
精彩评论