Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

【access小品】按月新增记录实例

时 间:2010-05-02 09:30:57
作 者:todaynew   ID:10802  城市:武汉
摘 要:新增记录
正 文:

点击下载此附件

Public Function IntRec(Tbname As String, Fldname As String, LYear As Long, LMonth As Long)
'功能:向表中插入当月按天数计算的记录数
'参数:Tbname---插入记录的表,Fldname---表中表示日期的字段,LYear---年, LMonth---月
'示例:IntRec("日记表","日期",me.年.value,me.月.value)
Dim MYdate1 As Date, MYdate2 As Date
Dim num As Long
Dim rs As New ADODB.Recordset
Dim i As Long
MYdate1 = DateSerial(LYear, LMonth, 1)
MYdate2 = DateSerial(LYear, LMonth + 1, 1)
num = DateDiff("d", MYdate1, MYdate2)

rs.Open Tbname, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("日期").Value = MYdate1
rs.Update
For i = 1 To num - 1
    rs.AddNew
    rs("日期").Value = DateAdd("d", 1, MYdate1 + i - 1)
    rs.Update
Next
rs.Close
End Function



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助