Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

运行以下程序时出错,请问是哪方面的问题?!万分感谢

niki  发表于:2007-10-24 16:20:52  
复制

Private Sub Form_Open(Cancel As Integer)
    Me.Caption = Me.OpenArgs               (<--出错区域!)
End Sub


Option Compare Database

Private Sub Form_Open(Cancel As Integer)
    Me.Caption = Me.OpenArgs
End Sub
Private Sub 预览_Click()
    If IsNull([开始日期]) Or IsNull([结束日期]) Then
        MsgBox "您必须输入开始时间和终止时间。"
        DoCmd.GoToControl "开始日期"
    Else
        If [开始日期] > [结束日期] Then
            MsgBox "截止日期必须大于开始日期。"
            DoCmd.GoToControl "开始日期"
        Else
            Me.Visible = False
        End If
    End If
    If IsNull([供应商名称]) Then
        MsgBox "您必须输入供应商名称。"
        DoCmd.GoToControl "供应商名称"
    End If
End Sub

 

 

    此窗体是为了某报表建立的,正常情况下,运行报表时,自动弹出此窗口,要求输入时间和供应商,然后出符合条件的报表。现在单独运行报表时没有任何反应,对报表进行设计也没有反应。追溯源头,单独运行此窗体时,显示:运行时错误“94”,无效使用Null;选择“调试”后,则显示错误语句为上面的红色字体。若直接查看此窗体的代码,则显示错误:Runtime Error   Program : C:\program Files\Microsoft Office\OFFICE11\MSACCESS.EXE  abnormal program termination  ,然后自动关闭整个程序。

    此数据库建好后运行了一段时间都正常,出现此问题后,本人重装过各个版本的OFFICE,仍然出错。换到其他电脑上测试,刚开始的时候可以使用,但是打开几次后也出现同样的错误。此ACCESS除了报表外,还有几个表、几个查询、几个窗体,已经组合成了一个完整的管理系统,其他都运行正常,只有报表和此窗体无法正常运行。

    请各位熟悉ACCESS的朋友们告诉我到底是哪个环节出了问题,这个问题如何解决?!万分感谢! 

帖子被bamboo修改于2007-10-24 16:24:26

 

Top
小龙女 发表于:2007-10-24 16:23:24

将Me.OpenArgs用一个全局变量来代替试试.

即在模块中声明一个变量,方法:

'假定是文本型

public strArgs as string



竹笛 发表于:2007-10-24 16:24:57
同意楼上的说法!

niki 发表于:2007-10-24 16:32:50

现在弹出:public 编辑错误,缺少表达式!



竹笛 发表于:2007-10-24 16:36:48

压缩并修复一下数据库.



niki 发表于:2007-10-24 16:42:29
压缩并修复过了,还是不行……

总记录:5篇  页次:1/1 9 1 :