2014-07-13 52 views
1

我正尝试在主窗体(frmProjectCharter01)中嵌入子窗体(frmeffortimpact)上创建一个按钮。简单地说,我希望按钮打开和关闭AllowAdditions属性。不幸的是我得到的语法错误信息与下面的代码:如何打开/关闭子窗体上的AllowAdditions属性

Private Sub cmdAddImpacts_Click() 


If Me.Forms("frmProjectCharter01").Forms("frmeffortimpact").AllowAdditions = True Then 

    Me![frmEffortImpact].Form.AllowAdditions = False 
    Me.Immagine52 = True 
    Me.Immagine55 = False 


ElseIf Me.Forms("frmProjectCharter01").Form("frmeffortimpact").AllowAdditions = False Then 

    Me![frmEffortImpact].Form.AllowAdditions = True 
    Me.Immagine52 = False 
    Me.Immagine55 = True 

End If 

末次

回答

1

我是过于复杂了。这里是我的问题的答案:

Private Sub cmdAddImpacts_Click() 

    If Me.AllowAdditions = True Then 

     Me.AllowAdditions = False 
     Me.Immagine52.Visible = True 
     Me.Immagine55.Visible = False 

    ElseIf Me.AllowAdditions = False Then 

     Me.AllowAdditions = True 
     Me.Immagine52.Visible = False 
     Me.Immagine55.Visible = True 

    End If 


End Sub 
+0

你会想按“接受”这个答案,我认为。 – Smandoli

+0

你必须等两天才能接受你自己的答案 –

相关问题