如何在access窗体输入数据

 我来答
huanglenzhi
2015-02-28 · 知道合伙人数码行家
huanglenzhi
知道合伙人数码行家
采纳数:117538 获赞数:517183
长期从事计算机组装,维护,网络组建及管理。对计算机硬件、操作系统安装、典型网络设备具有详细认知。

向TA提问 私信TA
展开全部

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

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

access开发易登软件
2021-01-05 · 超过18用户采纳过TA的回答
知道答主
回答量:79
采纳率:100%
帮助的人:6.9万
展开全部

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

本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
officecn交流
2015-02-16 · 知道合伙人软件行家
officecn交流
知道合伙人软件行家
采纳数:494 获赞数:980
中山大学毕业,从事IT行业16年.主要从事ERP CRM HRM等软件的开发,熟悉access sql server office vb vba c#

向TA提问 私信TA
展开全部
用向导 生成窗体,即可绑定数据源,即可输入数据
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式