Ms access Access-从mainform中的combbox动态加载子窗体_Ms Access_Vba

Ms access Access-从mainform中的combbox动态加载子窗体

ms-access vba

Ms access Access-从mainform中的combbox动态加载子窗体,ms-access,vba,Ms Access,Vba,我正在尝试使用组合框更改主窗体上的子窗体。我的问题是，在瑞典语名词中，动词和形容词的形式会发生变化，因此，如果我在主窗体中添加一个新名词，那么与输入名词相关联的子窗体需要动态加载我已经编写了一些VBA来提供帮助，但我无法使其正常工作：专用子组合框\u语法\u Klass\u更改（）主格式=Ord\U Inmatning\U Blankett（文字输入格式）子形式=frm_Alla_Andra_Orden（所有其他词）、frm_形容词（形容词词）、frm_动词（动词词）和frm_实体词（名

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

我已经编写了一些VBA来提供帮助，但我无法使其正常工作：

专用子组合框\u语法\u Klass\u更改（）

主格式=Ord\U Inmatning\U Blankett（文字输入格式）

子形式=frm_Alla_Andra_Orden（所有其他词）、frm_形容词（形容词词）、frm_动词（动词词）和frm_实体词（名词词）

子窗体控件=子窗体

谢谢大家!

解决了问题，下面是代码：

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

文本属性仅在控件具有焦点时可用。要么使用value属性，要么跳过该属性，它将默认为value。所有这些单词不能与名词等的定义在同一个表中吗？这会让生活变得更轻松。这会让生活变得更轻松，问题是我正在努力将单词类型保持在一起。例如，“kör”一词可以是动词“drive”一词的现在时，但它也意味着唱诗班或合唱团，一个名词。当将这些词与英语联系起来时，我想保留单词类型（grammatik klass）作为反向翻译之间的分隔符。总而言之，将单词添加到一个表中不是一个选项。我认为是的。您只需要一个分类器。同一个单词可以用不同的分类器重复十几次。因此，表中有

kör，名词和kör，动词——每种情况下有两个字段。。如果愿意的话，你可以加一个时态。菲昂努阿拉，那没什么用。每个词有8种名词词形、12种动词词形和15种形容词词形。如果说我只想把kör作为名词输入，那就需要隐藏很多字段，因为其他选项甚至不应该被看到，除非它与手头的单词相关。这就是为什么我对名词、形容词和动词有不同的形式。唉，它在子形式之间切换，好吧，但是对于将单词从txtboxäOrd更新为SingularäObestämd，attributeivtèUtrumäSingularäObestämd positive，等等是有问题的。
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