Office中国论坛/Access中国论坛

标题: 求教：关于窗体上文本框显示子窗体中表的某两个字段的乘积和 [打印本页]

作者: 阳春面 时间: 2011-12-30 10:44
标题: 求教：关于窗体上文本框显示子窗体中表的某两个字段的乘积和
本人最近设计了一个窗体，里面有一个列表框，可以显示当前数据库中的所有表，下面的子窗体可以根据列表框中选中的表名称来打开相应的表。
现在我想在主窗体上设计一个文本框，可以显示当前打开表的“单价”和“数量”2个字段的乘积总和。
并且我想设计个复选框，对当前表进行筛选
具体筛选条件是：所有选中项=表中“添加应用”字段为-1的项
未选中项=表中“添加应用”字段为0的项
请老师不吝赐教！
另附草稿：
[attach]47855[/attach]

作者: Henry D. Sy 时间: 2011-12-30 11:07
[attach]47856[/attach]

作者: Henry D. Sy 时间: 2011-12-30 11:10
怎么换账号上来呀，凌晨三点钟不用了，为何？

作者: 阳春面 时间: 2011-12-30 11:45
别提了，那个账号密码忘了。。。我重新申了一个。。。。

作者: Henry D. Sy 时间: 2011-12-30 12:54

阳春面发表于 2011-12-30 11:45
别提了，那个账号密码忘了。。。我重新申了一个。。。。

Private Sub List0_Click()
Dim tbln As String
Dim bln As Boolean
Dim sSQL As String
Dim Qdf As DAO.QueryDef
Set Qdf = CurrentDb.QueryDefs("A")
If Not IsNull(Me.List0) Then
tbln = Me.List0
If Not IsNull(Me.Check153) Then
bln = Me.Check153
sSQL = "select * from " & tbln & " Where 添加应用=" & bln
Else
sSQL = "select * from " & tbln
End If
Qdf.SQL = sSQL
Me.b1.SourceObject = "查询.A"
Me.Text151.ControlSource = ""
Me.Text151 = DSum("单价*数量", "A")
End If
Qdf.Close
Set Qdf = Nothing
End Sub

复制代码

[attach]47859[/attach]

作者: 阳春面 时间: 2011-12-30 13:13

Henry D. Sy 发表于 2011-12-30 12:54

谢谢老师，辛苦了！回去学习消化！呵呵~
自动登录害死人啊。。以后还是自己输入账号密码吧~

作者: 至少还有你 时间: 2015-5-24 20:58
学习看看。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)