Question

在MS-Access中，我有一个带有文本框和按钮的表单，我想要它，这样当我点击按钮时，它会将文本框中的数据添加到新记录中。
我该怎么做？

注意：我在Access
方面没有太多经验

Answer 1

有两种方法可以做到。

首先，您可以使表单成为绑定表单，以便将表单绑定到表（表单RecordSource），并将texboxt绑定到表中的字段。

其次，您可以编写一些VBA代码，使用INSERT INTO sql语句将记录插入表中

Answer 2

使用未绑定的表单完成此操作。

假设您的目标表名为 Table1 ，并具有以下格式：

Field Name        Data Type
-------------     ---------------
ID                AutoNumber
Field1            Text
Field2            Text

假设您的表单名为 Form1 ，并具有以下控件：

Control Name      Control Type
-------------     ---------------
Text0             Text Box
Text2             Text Box
Command4          Command Button

最后， Command4 控件的 On Click 事件被分配了以下事件过程：

Private Sub Command4_Click()

  Dim rs As Recordset

  On Error GoTo ErrHandler

  If MsgBox("Do you want to add the record.", vbQuestion + vbYesNo, "Add New Record?") = vbYes Then

    Set rs = CurrentDb.OpenRecordset("Table1", dbOpenDynaset)
    rs.AddNew
      rs.Fields("Field1").Value = Me.Text0.Value
      rs.Fields("Field2").Value = Me.Text2.Value
    rs.Update

    MsgBox "Record saved.", vbInformation, "Record Saved"

  End If

  Exit Sub

ErrHandler:
  MsgBox Err.Description, vbExclamation, "Error Occurred"

End Sub

此代码将首先提示用户确认应保存该记录。如果答案为是，则将记录插入表中并显示确认消息。如果发生错误，代码将跳转到ErrHandler部分并显示一个带有问题的消息框。

使用文本框中的文本向Access添加记录

2 个答案: