access窗体中怎么分页？

用 DLOOKUP 函数即可

IF ISNULL(DLOOKUP("USERPWD","mytable","username='" &USERNAME变量 &"' and USERPWD='" &USERPWD变量 &"'")) =true then

msgbox "您的密码或者用户名错误"

else

msgbox "登录成功"

docmd.openform "登录成功后的窗体名"

end if

代码如下：

<%

'创建数据库连接对象

set conn=server.createobject("adodb.connection")

'打开数据库，如果数据库没有密码 可以省略

conn.open("DRIVER=Driver do Microsoft Access (*.mdb)UID=adminpwd=dbq="&server.mappath("MyMDB.mdb"))

'创建结果集对象

set rs=server.createobject("adodb.recordset") 

strsql="select * from table" '设置sql 查询语句 

rs.open strsql,conn,1,1  ‘使用结果集RS执行strsql语句

%>

然后是分页属性的设置

<% 

rs.PageSize=3 ‘设置页码 

pagecount=rs.PageCount '获取总页码 

page=int(request("page")) '接收页码 

if page<=0 then page=1 '判断 

if request("page")="" then page=1 

rs.AbsolutePage=page '设置本页页码 

%>

再然后是body里的分页显示

<% 

if rs.bof and rs.eof then 

    response.write("NULL") 

else 

    for i=1 to rs.PageSize 

        response.write rs("name") 

        response.write("<hr>") 

        rs.movenext 

    next 

end if 

%>

最后是显示分页控制按钮

<%if page=1 and not page=pagecount then%> 

    首页|前一页| <a href="log1.asp?page=<%=page+1%>">后一页</a>| <a href="log1.asp?page=<%=pagecount%>">末页</a> 

<%elseif page<>1 and not page=pagcount then%> 

    <a href="log1.asp?page=1">首页</a>| <a href="log1.asp?page=<%=page-1%>">前一页</a>| <a href="log1.asp?page=<%=page+1%>">后一页</a>| <a href="log1.asp?page=<%=pagecount%>">末页</a> 

<%elseif page=pagecount then%> 

    <a href="log1.asp?page=1">首页</a>| <a href="log1.asp?page=<%=page-1%>">前一页</a>| 下一页| 末页 

<%end if%>

其中：

rs.pagesize：记录的条数

rs.recordcount：记录总数

rs.pagecount：总页数

rs.AbsolutePage=Page 这个是设置当前页

以上都是关键点，一定记清楚。

小提示：MyMDB.mdb 为数据库 table1表名 rs(1).name等等之类的是取记录集中的值 这些都可以自由更改，需要参照实际情况，其余的都可以直接复制 把注释删掉就ok。

---