访问，使用按钮以不同的方式打开相同的表单

Question

我在工作中使用Access 2007，并尝试构建数据库。 我想知道是否有可能在“主菜单”表单上有两个不同的按钮来打开相同的“数据输入”表单。 但是，一个按钮自动转到新的空白记录以进行数据输入，另一个按钮提示用户输入特定的ID＃（与表单中的字段绑定），然后表单将在该记录上打开。 这将用于更新该特定记录。

这可能吗？ 我是VBA代码的初学者。 如果使用更高版本的Access而不是2007可以实现，请告诉我。

Answer 1

在窗体上创建两个按钮。 让我们将它们命名为addRecBtn和openRecBtn让我们说您要打开的表单是tmpFrmName。 因此，第一个按钮将在数据输入模式下打开表单，第二个按钮将在正常编辑模式下打开表单。

代码应该是这样的，

Private Sub addRecBtn_Click()
    DoCmd.OpenForm "tmpFrmName", DataMode:=acFormAdd
End Sub

第二种形式首先必须获取您要打开的号码，例如让我们将其称为numberID。 所以您的代码将是。

Private Sub openRecBtn_Click()
    Dim numID As Long

    numID = InputBox("Please enter the ID : ")

    If DCount("*", "yourTable", "numberID = " & numID) <> 0 Then
        DoCmd.OpenForm "tmpFrmName", WhereCondition:="numberID = " & numID
    Else
        MsgBox "The numberID : " & numID & " does not exist, please try again !"
    End If
End Sub

Answer 2

您可能可以将DoCmd.OpenForm与其他选项结合使用以实现两个目标。

1. “一个按钮自动转到新的空白记录以进行数据输入”

DoCmd.OpenForm FormName:="YourForm", View:=acNormal, DataMode:=acFormAdd

2. “另一个按钮提示用户输入特定的ID＃（绑定到表单中的字段），然后该表单将在该记录上打开”

Dim strWhere As String
strWhere = "[id]=" & Me.txtId
Debug.Print strWhere ' <- inspect this in the Immediate window
DoCmd.OpenForm FormName:="YourForm", View:=acNormal, WhereCondition=strWhere

第一种形式包括一个名为txtId的文本框，其中包含要在第二种形式（ YourForm ）中用作当前值的ID值。

Answer 3

是的，有可能。

我的建议是使用几种功能-将“共享”功能放在一个函数中（例如，打开表单），然后针对不同之处，制作两个调用共享函数的函数

例如

function openForm()
{
    //Do open form stuff
}

function promptForID()
{
    openForm();
    //Do stuff that prompts for ID
}

function blankRecord()
{
    openForm();
    //Do stuff that sets up a blank record
}