在MS Access中打开缩放窗口

时间:2014-01-23 05:49:32

标签: access-vba ms-access-2010

我在以子表格打开缩放窗口时遇到问题。

基本上,我创建了一个弹出窗口(窗体),假设双击子窗体中的备注字段时出现,以允许用户放大字段并在进入时更加轻松长句。

我认为问题与我尝试创建缩放窗口的表单实际上是嵌入表单的子表单有关。我的理由是因为当我单独打开子表单并双击放大字段时,我的代码运行得非常好。

以下是代码。子表单名称为'frmMasterListOfEventsDetails',子表单中放大的控件/字段称为“notes2”。弹出窗口(子表单)名为“frmZoom”及其控件(文本框),其中信息为被输入称为“txtZoom”。

感谢您提供的任何帮助。 谢谢

Private Sub Notes2_DblClick(Cancel As Integer)
    If Me.AllowEdits = False Then
        Messaggi.MessaggioExclamation
    Else
        Me.Refresh
        DoCmd.OpenForm "frmzoom", acNormal, , , , acDialog
    End If

End Sub


Private Sub Form_Close()
    Forms("frmMasterListOfEventsDetails")!Notes2 = Me.txtZoom
    Forms("frmMasterListOfEventsDetails").Refresh

End Sub

Private Sub Form_Open(Cancel As Integer)
    Me.txtZoom = Forms("frmMasterListOfEventsDetails")!Notes2
End Sub

1 个答案:

答案 0 :(得分:1)

  

我认为问题与我尝试创建缩放窗口的表单实际上是嵌入表单的子表单这一事实有关

我相信你是对的。由于frmMasterListOfEventsDetails是一个子表单,

Forms("frmMasterListOfEventsDetails") 

找不到它。你需要通过主要表格:

Forms("parentFormName").Form.frmMasterListOfEventsDetails.Form.Notes2 = Me.txtZoom