VBA编程DAO应用

月亮　发表于：2013-11-23 14:17:16 　

Dim rs As DAO.Recordset

Dim strSQL As String

strSQL="SELECT tbl_zzml.zzmlID, tbl_zzml.zzmc, tbl_zzml.cp, tbl_zzml.kz, tbl_zzml.gg"
strSQL=strSQL & "FROM tbl_zzml"
strSQL=strSQL & "WHERE (((tbl_zzml.zzmc)=[me].[zzmc]) AND ((tbl_zzml.cp)=[me].[cp]) AND ((tbl_zzml.kz)=[me].[kz]) AND ((tbl_zzml.gg)=[me].[gg]));"
if not(rs.eof and rs.bof ) then

msgbox"记录已存在"

Exit sub

else

rs.zzmc=me.zzmc

rs.cp=me.cp

问题：在VBA中通过DAO怎样编程可运行这个查询，并实现判断存入表中

Top

殷小宝发表于：2013-11-25 11:00:15

问题有几个：1.[me].[cp])中的me应该用具体的窗体名。

2. not(rs.eof and rs.bof )这个逻辑错误，要么not rs.eof,要么not rs.bof

3.从SQL语句看，是查询符合条件的记录，应在查询中做。或者判断有没有记录：if dcount("*",strSQL)>0 then msgbox "记录已存在“，vbcritial,"提示“

4.不知道发帖者要实现什么功能。

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

[5分]VBA编程DAO应用