设为首页收藏本站 Access中国

开启辅助访问切换到宽版

官方QQ群

Office中国论坛/Access中国论坛»论坛首页 › ACCESS 与Sql Server 讨论区 › Access常规交流 › 如何使用宏添加记录

发新帖

查看: 3661|回复: 6

上一主题

下一主题

[宏/菜单/工具栏] 如何使用宏添加记录

电梯直达

跳转到指定楼层

1^#

发表于 2012-6-24 16:46:39 | 只看该作者回帖奖励

回帖奖励

|倒序浏览 |阅读模式

，在窗体上如何使用宏来添加记录？哪位大侠能帮忙解决下！

本帖子中包含更多资源

您需要登录才可以下载或查看，没有帐号？注册

x

分享到: QQ好友和群 QQ空间 腾讯微博 腾讯朋友

收藏0 分享 淘帖0 订阅

回复

使用道具举报

2^#

发表于 2012-6-24 18:56:35 | 只看该作者

绑定表，直接输入就是了！

回复支持反对

使用道具举报

3^#

楼主| 发表于 2012-6-25 15:03:28 | 只看该作者

{:soso_e101:},不想这么干

回复支持反对

使用道具举报

4^#

发表于 2012-6-25 15:57:02 | 只看该作者

wuchju 发表于 2012-6-25 15:03
,不想这么干

那你想将记录保存到那个表中

回复支持反对

使用道具举报

5^#

发表于 2012-6-26 10:07:18 | 只看该作者

Private Sub Command10_Click()
Dim ctl As Control
Dim rs As New ADODB.Recordset
For Each ctl In Me.Controls
If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
If IsNull(ctl) Then
MsgBox ctl.Name & " 不可为空！ "
ctl.SetFocus
Exit Sub
End If
End If
Next
With rs
.Open "消费记录", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
.AddNew
.Fields("id") = Me.ID
.Fields("日期") = Me.日期
.Fields("二级类目id") = Me.二级类目ID
.Fields("金额") = Me.金额
.Fields("说明") = Me.说明
.Update
.Close
End With
MsgBox "记录已保存！"
Set rs = Nothing
End Sub

复制代码

回复支持反对

使用道具举报

6^#

发表于 2012-6-26 10:07:49 | 只看该作者

Private Sub Command10_Click()
Dim ctl As Control
Dim rs As New ADODB.Recordset
For Each ctl In Me.Controls
If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
If IsNull(ctl) Then
MsgBox ctl.Name & " 不可为空！ "
ctl.SetFocus
Exit Sub
End If
End If
Next
With rs
.Open "消费记录", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
.AddNew
.Fields("id") = Me.ID
.Fields("日期") = Me.日期
.Fields("二级类目id") = Me.二级类目ID
.Fields("金额") = Me.金额
.Fields("说明") = Me.说明
.Update
.Close
End With
MsgBox "记录已保存！"
Set rs = Nothing
End Sub

复制代码

回复支持反对

使用道具举报

7^#

楼主| 发表于 2012-9-12 11:53:36 | 只看该作者

谢谢！这是用上VBA了。

回复支持反对

使用道具举报

发新帖

|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )

GMT+8, 2025-1-1 07:48 , Processed in 0.119560 second(s), 31 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表