如何在组合框中使用vba做一个默认值

Question

我在 ms access 2007 中创建了一个表单，用于更新其中的用户记录。我在该表单中有一个组合框。我只是想把一个值作为默认值。我只从查询中选择一列，当表格加载时，它显示我的默认值。当使用按钮点击提交一条记录后。它正在改变到最后的值，我已经选择了更新记录。我想在每次更新记录时都显示相同的默认值。

查询。

Public function bindcombo()
    Rs as recordset
    Strqry ="select menuname from menumaster wher menutyp='cutback'"
    Rs.open strqry
    With cbocutback
        .clear
        .RowSourceType = "table/query"
        .RowSource =strqry
        .ReQuery
        .defaultvalue="NA"
    End with
End function

当这个查询运行时，我在combobox中得到的值，并没有显示我的默认值。#Name? (此值代替默认值)

这些是我的组合框值。rcCutback,loc-cutback 和 NA

请帮我解决这个问题。

Answer 1

在组合框的AfterUpdate属性中再次设置默认值。

Private Sub COMBOBOX_AfterUpdate()
    COMBOBOX = "NA" 'or any value you want to set COMBOBOX to

End Sub