小编Bri*_*tes的帖子

我正在尝试使用一些vba代码将公式和文本的值放入特定的单元格中.我希望代码说Leads :(公式的值).目前我的代码运行公式并将值放在正确的框中.我只是不知道如何用它添加文本.我的代码写在下面.

ws.Range("$B$1").Formula = "=COUNTIF(E:E,""Lead"")"

我创建了一个登录表单，当单击“打开数据库”按钮时会打开另一个表单。我试图在单击按钮打开另一个表单时关闭原始表单“UserInformation”。我正在尝试各种 VBA 代码，但似乎没有任何效果。我通过向导创建了按钮，然后将宏转换为 vba 代码。

Private Sub cmdOpenDatabase_Click()

If IsNull(Me.txtFirstName) Then
MsgBox ("Please enter First Name")
Me.txtFirstName.SetFocus
Cancel = True
Exit Sub
End If

If IsNull(Me.txtLastName) Then
MsgBox ("Please enter Last Name")
Me.txtLastName.SetFocus
Cancel = True
Exit Sub
End If

If IsNull(Me.txtEmployee) Then
MsgBox ("Please enter Employee ID")
Me.txtEmployee.SetFocus
Cancel = True
Exit Sub
End If

On Error GoTo cmdOpenDatabase_Click_Err

    DoCmd.OpenForm "Standards", acNormal, "", "", , acNormal

cmdOpenDatabase_Click_Exit:
    Exit Sub

cmdOpenDatabase_Click_Err:
    MsgBox Error$
    Resume cmdOpenDatabase_Click_Exit

End Sub

嘿，我正在尝试找到一种方法来从表单上的关闭命令按钮实际关闭访问权限。这可能吗？现在它只关闭表单，用户仍然必须退出实际的 Access 程序。我希望用户能够点击命令按钮并完全退出 Access 并返回到他们的桌面。

谢谢！