Access交流中心

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

如何做个按钮自动提取省和市

fresun　发表于：2014-03-28 14:06:29 　

全国各省和各市的数据库也有了(看表2)..

现在需要提取地址的简称, 我想在窗体上做一个按钮,

一键按下去,把表1的地址, 自动分解成省和市, 分别填在另两个格子上. 详见图和附件. 我发过一次相同内容的,再发一次,请大侠们帮我做一下这个按钮.点击下载此附件

在水一方发表于：2014-03-28 16:05:44

使用查询：

省: DLookUp("省","表2","[省] like '" & Left([地址],2) & "' & '*'")

市: Mid([地址],Len([省])+1)

使用代码：

Me.省=DLookUp("省","表2","[省] like '" & Left([地址],2) & "' & '*'")

Me.市= Mid([地址],Len([省])+1)

点击下载此附件

Top

在水一方发表于：2014-03-28 16:09:43

如果“市” 后面还有内容就用下面的表达式

市: Mid([地址],Len([省])+1,InStr([地址],'市')-Len([省]))

Top

小赵发表于：2014-03-28 17:58:42

网站有现成的示例：中国省市县数据库,中国最新省份,城市数据库示例http://www.accessoft.com/article-show.asp?id=7802

Top

fresun 发表于：2014-03-28 20:37:59

我需要的是一键自动提取省和市,所以最佳答案给在水版主. 已经调试成功!!!

另外我的市那个空格稍微修改了一下,因为"市"的数据库,我也输入过了.所以用这个也调试成功了. 因为有些地方,不是市, 比如内蒙古有锡林郭勒盟.

'Me.市 = DLookup("市", "省市表", "[市] like '" & Mid([联系地址], Len([省]) + 1, 2) & "' & '*'")

Top

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

Access软件网版权所有 CopyRight 2006-2030
上海盟威软件有限公司提供支持
沪ICP备12024966号-4