Office中国论坛/Access中国论坛

标题: 如何使用宏添加记录 [打印本页]
作者: wuchju    时间: 2012-6-24 16:46
标题: 如何使用宏添加记录
[attach]49468[/attach]，在窗体上如何使用宏来添加记录？哪位大侠能帮忙解决下！
作者: Henry D. Sy    时间: 2012-6-24 18:56
绑定表，直接输入就是了！
作者: wuchju    时间: 2012-6-25 15:03
{:soso_e101:},不想这么干
作者: Henry D. Sy    时间: 2012-6-25 15:57
wuchju 发表于 2012-6-25 15:03
,不想这么干

那你想将记录保存到那个表中
作者: Henry D. Sy    时间: 2012-6-26 10:07
  1. Private Sub Command10_Click()
  2.     Dim ctl As Control
  3.     Dim rs As New ADODB.Recordset
  4.     For Each ctl In Me.Controls
  5.         If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
  6.             If IsNull(ctl) Then
  7.                 MsgBox ctl.Name & " 不可为空！ "
  8.                 ctl.SetFocus
  9.                 Exit Sub
  10.             End If
  11.         End If
  12.     Next
  13.     With rs
  14.         .Open "消费记录", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  15.         .AddNew
  16.         .Fields("id") = Me.ID
  17.         .Fields("日期") = Me.日期
  18.         .Fields("二级类目id") = Me.二级类目ID
  19.         .Fields("金额") = Me.金额
  20.         .Fields("说明") = Me.说明
  21.         .Update
  22.         .Close
  23.     End With
  24.     MsgBox "记录已保存！"
  25.     Set rs = Nothing
  26. End Sub
复制代码
作者: Henry D. Sy    时间: 2012-6-26 10:07
  1. Private Sub Command10_Click()
  2.     Dim ctl As Control
  3.     Dim rs As New ADODB.Recordset
  4.     For Each ctl In Me.Controls
  5.         If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
  6.             If IsNull(ctl) Then
  7.                 MsgBox ctl.Name & " 不可为空！ "
  8.                 ctl.SetFocus
  9.                 Exit Sub
  10.             End If
  11.         End If
  12.     Next
  13.     With rs
  14.         .Open "消费记录", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  15.         .AddNew
  16.         .Fields("id") = Me.ID
  17.         .Fields("日期") = Me.日期
  18.         .Fields("二级类目id") = Me.二级类目ID
  19.         .Fields("金额") = Me.金额
  20.         .Fields("说明") = Me.说明
  21.         .Update
  22.         .Close
  23.     End With
  24.     MsgBox "记录已保存！"
  25.     Set rs = Nothing
  26. End Sub
复制代码
作者: wuchju    时间: 2012-9-12 11:53
谢谢！这是用上VBA了。



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3