Office中国论坛/Access中国论坛

标题: 怎样判定列表框没有被选定 [打印本页]

作者: zhaoxiaolin 时间: 2006-12-24 03:53
标题: 怎样判定列表框没有被选定
我有一个列表框,来源于一个表,我想修改表中的记录,就是在列表框中选定什么就修改什么,如若列表框没有被选定,说提示未选定记录

作者: fan0217 时间: 2006-12-24 05:16
多选：

Sub Main()
Dim ctl As Control, varItm As Variant
Set ctl = Me.List0
For Each varItm In ctl.ItemsSelected
Debug.Print ctl.ItemData(varItm)
Next
End Sub

单选：

If IsNull(Me.List0.Value) Then
MsgBox "你没有选择！"
End If

或者：

Me!Listbox.Selected(０) ：判断其值即可True 或者False。

[此贴子已经被作者于2006-12-23 21:23:43编辑过]

作者: zhaoxiaolin 时间: 2006-12-25 19:49
谢谢fan0217,不过还是有一个小问题解决,请帮忙再看一下

我有两个列表框(分别用列1 和列2表示,其中列2数据来源随着列1的的选定而改变,当开始打开窗体时,fan0217程序可以解决,但假如点击列1的第一条记录,列2无记录,点列1的第二条记录,有记录的话,然后再回到列1的第一条记录,这个程序就无效了,不知怎样解决

作者: fan0217 时间: 2006-12-25 21:48
例子发上来

作者: tz-chf 时间: 2006-12-26 00:09
没选定不就是-1嘛

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