如何在ACCESS2003窗体设计中插入多行记录（250分）

你好，你说的是建Access中的数据表，我们一般是关系表，在你的数据库供应商关系表中，字段有供应商名称、日期、产品名称、数量、单价等。 你需要大量输入数据时，供应商与产品是一对多的关系，即一个供应商可以供应多个产品，你输入数据时候就比较累。

我的想法是这样：

1.在Excel里保存好数据，在EXCEL数据数据比较快和方便。可以在Access里使用导入外部数据，选择Excel格式，导入到已经存在的表，第一列是包含标题，只要可以导入成功。比较方便。

2.把供应商名称保存为一个字段，可以传递变量的方式，单击保存按钮后，在供应商文本里自动设置成供应商名。可以用下拉列表框做到，列表框里记录的是从文本框里的添加的供应商名。

有关的代码：

一个文本框，输入供应商名称

一个命令按钮，把供应商名称放到下来列表框里。

一个下拉列表框，使得供应商字段txtGYS.text等于列表框的字符串。

命令按钮代码：

Private Sub Command2_Click()

'设置文本框的条件（如字符，长度）

Me.Combo1.AddItem Text1.Text

End Sub

在保存按钮中，使得txtGYS.text=Combo1.txt ’自动设置了供应商名称，不用再次输入了。

希望我的想法能给你启发。

一、打开你已经链接好表以及制作的查询的access文件，我们可以创建窗体，在主窗体上点击上面工具栏的子窗体/子报表。

二、拉入主窗体，就会d出对话框，我们可以用现有窗体创建子报表，也可以用查询自行创建。它的数据来源可以现有的表和查询，也可以用现有窗体。这根据你想显示什么查询数据。

三、下一步我们就要确认你的查询或表的字段。点击倒三角就可以查看到你的表或查询，你可以一个个选择到右边对话框，也可以一次性全选择。

四、下一步就可以命名你的子窗体的名称。点击完成就可以了。

五、当然也有些用户需要通过人机交互之后如时间条件来查询，通常都会想通过点击按钮来显示子窗体，这样我们可以用vb语言代码来实现。我们先右键按钮点击事件生成器。

输入代码：Me.NDNS_XM子窗体.Reguery

因为你没有给出表结构和窗体的具体要求，为了说明方便，做到示例一目了然：

1、表名称包括“测试表”，“作者”和“证书编码”两个字段。结构图如下：

2、窗体包括四个未绑定文本框（名称与对应标签同）和一个名为“保存数据”的按钮。如下图：

3、上图中录入显示的数据，然后点击“保存数据”按钮。“测试表”的数据变化如下：

4、窗体中“保存数据”按钮的【单击事件】代码为：

Private Sub 保存数据_Click()

On Error GoTo MyErr

' 定义变量并赋值

Dim i, m, n, k As Integer

Dim zsid As String

m = Val(Me.开始码)

n = Val(Me.结束码)

k = Len(Me.开始码)

' 检查数据录入是否正确

If IsNull(Me.作者) Or IsNull(Me.通用码) Or IsNull(Me.开始码) Or IsNull(Me.结束码) Then

    MsgBox "数据未保存！请把信息填写完整后重试...", 64 + 0 + 4096, "波涛工作室"

    Exit Sub

ElseIf k <> Len(Me.结束码) Then

    MsgBox "开始码与结束码位数不一致！请重新输入...", 64 + 0 + 4096, "波涛工作室"

    Exit Sub

ElseIf m > n Then

    MsgBox "开始码不能大于结束码！请重新输入...", 64 + 0 + 4096, "波涛工作室"

    Exit Sub

End If

' 开始保存数据

For i = m To n

    ' 计算并格式化证书编码

    zsid = Me.通用码 & Right(Left(Me.开始码, k - Len(m)) & i, k)

    ' 用INSERT语句写入数据

    CurrentDb.Execute "INSERT INTO 测试表 VALUES ('" & Me.作者 & "', '" & zsid & "')"

Next i

Exit Sub

' 发生未知错误后的处理

MyErr:

    MsgBox "错误类型：" & Err.Description, 64 + 0 + 4096, "波涛工作室"

End Sub

---