Access交流中心

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

ACCESS创建交叉表查询并在窗体录入时提示的宏

海刚  发表于:2012-12-22 07:16:16  
复制

我现在有A、B两个表都有一个Model的字段,现在要在A表的窗体中录入Model时,去查询B表中有没有这个Model,如果没有就不提示,如果有就提示B表没有,然后如果不在B表录入,也不影响A表的录入,不知道怎样写,请帮忙看看,谢谢!如附件Access

 

 

Top
金宇 发表于:2012-12-24 10:45:56

点击下载此附件

示例中即可以使用宏实现,也可以使用窗体中的vba代码实现,可以在按钮的单击事件中使用如下代码。


    If Nz(DLookup("ID", "表2", "Model='" & Me.Model & "'"), 0) > 0 Then
        MsgBox "B表中存在相同的Model"
        Exit Sub
    Else
       DoCmd.RunCommand acCmdSaveRecord
       DoCmd.GoToRecord , "", acNewRec
    End If




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