gpt4 book ai didi

vba - Access 2007 VBA DoCmd.Close 不工作

转载 作者:行者123 更新时间:2023-12-02 17:46:35 24 4
gpt4 key购买 nike

我知道这可能是个愚蠢的问题,但您知道他们怎么说。我在 Access 数据库中有 VBA,其中包含用于单击的命令。本质上,它是一个带有组合框和用户登录时间戳的表单。单击该按钮后,将加载一个数据输入表单,具体取决于从组合框中选择的名称。我希望在数据输入表单打开后关闭登录表单。问题是无论我把 DoCmd.Close 放在哪里,愚蠢的表格都不会关闭!

以防万一,此表单设置为在用户打开数据库时自动打开。

下面是与按钮关联的事件过程的 VBA。

Option Compare Database

Private Sub TimeInButton_Click()
Dim strLoginForm As String

If Me.AgentCombo = "Amber" Then
strForm = "frmCustomersAmber"
ElseIf Me.AgentCombo = "Amanda" Then
strForm = "frmCustomersAmanda"
ElseIf Me.AgentCombo = "Brett" Then
strForm = "frmCustomersBrett"
ElseIf Me.AgentCombo = "Marcus" Then
strForm = "frmCustomersMarcus"
ElseIf Me.AgentCombo = "Terrah" Then
strForm = "frmCustomersTerrah"

End If


'------------------------------------------------------------
' TimeInButton_Click
'
'------------------------------------------------------------

On Error GoTo TimeInButton_Click_Err

On Error Resume Next
DoCmd.GoToRecord , "", acNewRec
If (MacroError <> 0) Then
Beep
MsgBox MacroError.Description, vbOKOnly, ""
End If

DoCmd.OpenForm strForm

TimeInButton_Click_Exit:
Exit Sub

TimeInButton_Click_Err:
MsgBox Error$
Resume TimeInButton_Click_Exit

End Sub

最佳答案

DoCmd.Close 采用可选参数,使其更加可靠。例如,

DoCmd.Close acForm, "MyFormName"

关于vba - Access 2007 VBA DoCmd.Close 不工作,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/13867679/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com