Office中国论坛/Access中国论坛

标题: [求助]多选的错误 [打印本页]

作者: jasonyuqing 时间: 2006-7-3 20:15
标题: [求助]多选的错误
我前两天用还好好的~~~~不知道怎么就不能用了~~~~大家看看怎么回事?谢谢了[em06]

作者: fan0217 时间: 2006-7-3 20:28
什么跟什么啊，[em06][em06][em06][em06]

作者: jasonyuqing 时间: 2006-7-3 21:45
[attach]18838[/attach]

东西忘了上传了~~~SORRY SORRY~~~~~~

作者: jasonyuqing 时间: 2006-7-4 19:04
拜托高手帮帮忙看看啊~~~~我苦恼啊~~~~~~`[em06]

作者: skylark 时间: 2006-7-4 20:36
标题: 回复：（jasonyuqing）[求助]多选的错误
To jasonyuqing:

丢失了Function IsLoaded(ByVal strFormName As String) As Integer函数模块!
[attach]18860[/attach]

作者: jasonyuqing 时间: 2006-7-4 22:21
我下载了您做的文件~~可是问题好像还是没解决么?怎么回事?

作者: jasonyuqing 时间: 2006-7-4 23:19
我仔细看了看~~~您指出的是个问题~~但我希望解决的是在你这个问题的基础上能够实现多选的情况

现在的情况是在点了修改以后,多选不能实现, 一直报错,我又不晓得错在哪里?以前我的代码也这样就可以用的,郁闷了

请大家帮帮忙,谢谢了

作者: skylark 时间: 2006-7-4 23:23
标题: 回复：（jasonyuqing）[求助]多选的错误
不明白,我这是好的,请其他朋友看一下?

我的文件里模块有吗?如没有插入模块,Copy以下的语句:

Option Compare Database
Option Explicit
Function IsLoaded(ByVal strFormName As String) As Integer
' Returns True if the specified form is open
' in Form view or Datasheet view.

Const OBJ_STATE_CLOSED = 0
Const DESIGN_VIEW = 0

If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> OBJ_STATE_CLOSED Then
      If Forms(strFormName).CurrentView <> DESIGN_VIEW Then
         IsLoaded = True
      End If
End If
End Function

另我将模块1改成Macro1重传

[attach]18864[/attach]

作者: skylark 时间: 2006-7-4 23:36

以下是引用jasonyuqing在2006-7-4 15:19:00的发言：

我仔细看了看~~~您指出的是个问题~~但我希望解决的是在你这个问题的基础上能够实现多选的情况

现在的情况是在点了修改以后,多选不能实现, 一直报错,我又不晓得错在哪里?以前我的代码也这样就可以用的,郁闷了

请大家帮帮忙,谢谢了

你可否抓图上来,报错的图,我这按了修改没有反映,我以为你的文件只是文件的部分窗体等,可能就帮不了你了!

作者: jasonyuqing 时间: 2006-7-5 01:28
我知道~~你写的模块没有问题~~~~就是在进入能修改的页面以后,其实页面是锁住的,点了修改以后解锁,但是在点击那些多选的CHECKBOX时,会出现问题,截图在上传的文件里.您看看[attach]18868[/attach]

作者: jasonyuqing 时间: 2006-7-5 16:40
拜托哪位高手看看呀～～～～～

作者: linehan 时间: 2006-7-6 06:21
o

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