[求助]多选的错误

jasonyuqing

           我前两天用还好好的~~~~不知道怎么就不能用了~~~~大家看看怎么回事?谢谢了[em06]

fan0217

什么跟什么啊，[em06][em06][em06][em06]

jasonyuqing

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

jasonyuqing

拜托高手帮帮忙看看啊~~~~我苦恼  啊~~~~~~`[em06]

skylark

To jasonyuqing:

丢失了Function IsLoaded(ByVal strFormName As String) As Integer函数模块!

jasonyuqing

我下载了您做的文件~~可是问题好像还是没解决么?怎么回事?

jasonyuqing

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

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



请大家帮帮忙,谢谢了

skylark

不明白,我这是好的,请其他朋友看一下?

我的文件里模块有吗?如没有插入模块,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重传

skylark

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


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

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

请大家帮帮忙,谢谢了

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

jasonyuqing

我知道~~你写的模块没有问题~~~~就是在进入能修改的页面以后,其实页面是锁住的,点了修改以后解锁,但是在点击那些多选的CHECKBOX时,会出现问题,截图在上传的文件里.您看看