首页 文章

用于组合框选择的VBA代码(Access)

提问于
浏览
0

我的情况很简单,用户会看到客户的下拉菜单(组合框),如果客户需要填写表格,数据库中不存在,用户可以点击“添加客户”按钮打开弹出窗体,用于输入客户详细信息并将新条目插入到customers表中 .

我现在正在挑选,但是,如果用户现在想要选择新输入的客户,他们必须从组合框重新选择客户,该组合框现在将显示一个新条目,有没有办法自动使组合框默认为弹出窗体上新插入的客户是否有“On Close”事件?

这是我已经拥有的“关闭”代码刷新客户组合框以添加新条目,是否有任何我可以添加的内容使得默认为新客户输入的框?

Private Sub Form_Close()

    If CurrentProject.AllForms("edit appointments").IsLoaded Then

        Forms![edit appointments]!customerCombo.Requery

    End If

    If CurrentProject.AllForms("edit purchases").IsLoaded Then

        Forms![edit purchases]!customerCombo.Requery

    End If

End Sub

1 回答

  • 0

    我想到了 .

    Forms![edit appointments]!customerCombo = DLast("ID", "customer")
    

    这将获取“customers”表中的最后一个条目,并将组合框的值设置为字段“ID”中包含的值 .

相关问题