如何在access窗体输入数据

Question

如题所述

Answer 1

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

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

Answer 2

Access 中的窗体是一种数据库对象，可用于创建数据库应用程序的用户界面。“绑定”窗体直接连接到表或查询之类的数据源，可用于输入、编辑或显示来自该数据源的数据。或者也可以创建“未绑定”窗体。

本回答被提问者采纳

Answer 3

用向导 生成窗体，即可绑定数据源，即可输入数据