[分享][源码]新增、修改、保存、撤销、删除功能不需写一句代码就可以实现!

youchytan · 发表于 2010-7-15 13:29:19

学习学习

83420134 · 发表于 2010-7-15 16:01:46

学习学习

liuyinhe · 发表于 2010-8-8 10:07:02

学习一下　

sblisb · 发表于 2010-8-8 10:42:42

看一下,如果窗体上有不是表中的字段呢?

sblisb · 发表于 2010-8-8 10:46:36

Sub find_sub(frm As Form)
Dim rs As New ADODB.Recordset
frm.序号 = frm.OpenArgs
With rs
   .Open "SELECT * FROM " & sTbl & " WHERE 序号=" & frm.序号, CurrentProject.Connection
   If .EOF And .BOF Then
         MsgBox "没有找到序号为" & frm.序号 & " 值的记录, 请重输序号", vbExclamation + vbOKOnly, "查找"
         序号.SetFocus
   Else
   '赋值
         Call CopyValue(frm, rs)
         '格式化
         Call SetButt("查看", frm)
   End If
End With
End Sub
停在这句上.Open "SELECT * FROM " & sTbl & " WHERE 序号=" & frm.序号, CurrentProject.Connection
提示

coolhawk · 发表于 2010-8-9 00:02:53

支持！！！！！

lkn · 发表于 2010-8-12 02:07:21

学习学习

yori2007 · 发表于 2010-8-13 12:51:33

ZHENGLIAN · 发表于 2010-8-15 08:25:49

太需要了!谢谢!!!

xuke5001 · 发表于 2010-8-15 15:33:59

我顶你一下

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] [分享][源码]新增、修改、保存、撤销、删除功能不需写一句代码就可以实现!

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)