Access交流中心

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

窗体调用(导致Access自身的提示信息没有了)

袁传奇  发表于:2018-02-08 15:59:27  
复制

大家好,

           请教大家一些vba的问题,  现在我做了一个主菜单的窗体1 可以连接多个(窗体2,窗体3,窗体4 等)

我从窗体1调用打开窗体2(窗体的意思就是一个Access单独文件调用并打开另一个Access单独文件)在窗体2中进行 增删改查的操作

当我插入一条数据时有些字段不能为null 你插入空的时候会有系统自带的提示信息   但是现在提示信息不显示。。字段空的时候也不通过,也没有提示信息


但是我单独 打开窗口2的时候 插入数据就会有提示信息  真不知道为什么


上网也找了 没有什么方法  


On Error Resume Next
    Select Case lng起動MDB番号
        Case 1
            str路径 = 路径名1
        Case 2
            str路径 = 路径名2
        Case 3
            str路径 = 路径名3
        Case 4
            str路径 = 路径名4
    End Select
   
    Set objAccess = New Access.Application
    objAccess.OpenCurrentDatabase str路径
    objAccess.RunCommand acCmdAppMaximize
   
    Set objAccess = Nothing


路径名1       对应着存放Access文件的路径


 

Top
总记录:0篇  页次:0/0 9 1 :