问题:这样的窗体界面可以实现吗(问题解决了)

hljthzbc · 发表于 2010-9-9 09:50:38

我把隐藏菜单加到窗体1上了,看看在办法解决吗

hljthzbc · 发表于 2010-9-8 08:13:36

那位版主再过问一下,看看怎么解决

hljthzbc · 发表于 2010-9-10 08:17:12

这个我实现不会的,再帮我一下吧,求你了
帮我一下吧,
问题是:1页数组合框翻页查询
2.每页记录数,可更改

hjb016 · 发表于 2010-9-10 08:41:17

每页记录数最多也只能20.你就只有20个子窗体.再加就出错了.

hljthzbc · 发表于 2010-9-10 08:56:08

我想一要解决:
问题1.页码组合框,以后要很多人的.可以通过翻页查询
问题2.页记录可以更改的,最多不超过20页

hljthzbc · 发表于 2010-9-10 09:06:04

本帖最后由 hljthzbc 于 2010-9-10 09:07 编辑

可惜我不会改呀

' 示  例: 子窗体记录分页显示
' 作  者: t小雨(tcl013@126.com)
' 日  期: 2009-07-23

Private Sub TxtPageRecCount_AfterUpdate()
Dim i As Integer

If Nz(Me.TxtPageRecCount) = "" Then
      Me.TxtPageRecCount = 1
ElseIf Me.TxtPageRecCount < 1 Then
      Me.TxtPageRecCount = 1
ElseIf Me.TxtPageRecCount > 100 Then
      Me.TxtPageRecCount = 100
End If
i = Me.CmbPageCount.ListIndex
Me.CmbPageCount.RowSource = CreatePageString(rst, Me.TxtPageRecCount)
If i >= Me.CmbPageCount.ListCount Then i = Me.CmbPageCount.ListCount - 1
Me.CmbPageCount = Me.CmbPageCount.ItemData(i)
CmbPageCount_AfterUpdate

End Sub

页码组合框

Private Sub CmbPageCount_AfterUpdate()
Me.订单_浏览.Form.Painting = False
ChangeRstPage Me.订单_浏览.Form, rst, "订单ID", Me.TxtPageRecCount, Me.CmbPageCount.ListIndex + 1
Me.订单_浏览.Form.Painting = True

End Sub

hjb016 · 发表于 2010-9-10 09:07:57

正在帮你处理...

hjb016 · 发表于 2010-9-10 09:40:58

你帮你修改好了.

hljthzbc · 发表于 2010-9-10 09:54:01

太谢谢了,是你帮我全部解决了,这个也是我太笨了.不会代码.在此也祝你心情愉快.

hjb016 · 发表于 2010-9-10 10:05:55

这个也不能这样说,你要多学基础的.你这样一头就扎进去,代码又看不懂,你总不能一个程序都让人家帮你做的吧!

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

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

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

[窗体] 问题:这样的窗体界面可以实现吗(问题解决了)

本帖子中包含更多资源

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