首页 文章

访问 - 从mainform中的combbox动态加载子表单

提问于
浏览 次
0

我正在尝试使用组合框更改主窗体上的子窗体 . 我的问题是，在瑞典名词，动词和形容词改变形式，所以如果我在我的主形式中添加一个新名词，那么与输入名词相关联的子形式需要动态加载 .

我写了一个小VBA来协助，但我不能让它正常工作：

Private Sub combobox_Grammatik_Klass_Change（）

Select Case Me.combobox_Grammatik_Klass.Text
    Case "Substantiv"
        Me.subfrm_Orden.SourceObject = "frm_Substantiv_Ord"
        Me.Singular_Obestämd.Text = Me.txtbox_Ord.Text
    Case "Verb"
        Me.subfrm_Orden.SourceObject = "frm_Verb_Ord"
        Me.Attributivt_Utrum_Singular_Obestämd_Positiv.Text = Me.txtbox_Ord.Text
    Case "Adjektiv"
        Me.subfrm_Orden.SourceObject = "frm_Adjektiv_Ord"
        Me.Aktiv_Infinitiv.Text = Me.txtbox_Ord.Text
    Case Else
       ' Me.subfrm_Orden.SourceObject = "frm_Alla_Andra_Orden"
       ' Me.Ord.Text = Me.txtbox_Ord.Text
End Select

End Sub

主要表格= Ord_Inmatning_Blankett（Word输入表格）

Subform = frm_Alla_Andra_Orden（所有其他单词），frm_Adjektiv_Ord（形容词），frm_Verb_Ord（动词）和frm_Substantiv_Ord（名词）

子窗体控件= subfrm_Orden

谢谢！

ms-access access-vba

1 回答

  • 0

    弄清楚问题，这里是代码：

    Private Sub combobox_Grammatik_Klass_Change()

Select Case Me.combobox_Grammatik_Klass.Text
    Case "Substantiv"
        Me.subfrm_Orden.SourceObject = "frm_Substantiv_Orden"
        Me.subfrm_Orden!Singular_Obestämd = Me.txtbox_Ord
    Case "Verb"
        Me.subfrm_Orden.SourceObject = "frm_Verb_Orden"
        Me.subfrm_Orden!Attributivt_Utrum_Singular_Obestämd_Positiv = Me.txtbox_Ord
    Case "Adjektiv"
        Me.subfrm_Orden.SourceObject = "frm_Adjektiv_Orden"
        Me.subfrm_Orden!Aktiv_Infinitiv = Me.txtbox_Ord
    Case Else
        ' Me.subfrm_Orden.SourceObject = "frm_Alla_Andra_Orden"
        ' Me.subfrm_Orden!Ord = Me.txtbox_Ord
End Select

End Sub
    回复于

相关问题