Question

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

我已经写了一点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

谢谢！

Answer 1

找出问题，这是代码：

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

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

1 个答案: