[已解决]excel组合框读取access数据？

sblisb · 发表于 2014-9-25 15:59

我想用一个组合框来选择输入内容，内容在Info.dbf文件中，不用时组合框隐藏起来，点到要输入的单元格时出现组合框，自动展开组合框，组合框和当前单元格一样大小，选中内容后自动写入单元格，然后自动跳到下一列，请大家指教如何做？ C列要根据B列的单格内容来联动，就是只显示前一单元格已输入的省份的市名。

excel access.rar (17.49 KB, 下载次数: 22)

sblisb · 发表于 2014-9-27 20:27

本帖最后由 sblisb 于 2014-9-30 11:28 编辑

找到一个示例，哪位帮我改改？

xdragon · 发表于 2014-9-29 15:27

这个最佳答案由 xdragon 给出，感谢 xdragon 的回答。

单击隐藏图章

没看你的实例哈，你看看

sblisb · 发表于 2014-9-30 11:23

xdragon 发表于 2014-9-29 15:27
没看你的实例哈，你看看

非常感谢
如果数据库有密码为1234，密码要加在哪？

   Dim conn As Object, rst As Object, sql$
   Set conn = CreateObject("adodb.connection")
   Set rst = CreateObject("adodb.recordset")
   conn.Open "dsn=ms access database;dbq=" & ThisWorkbook.Path & "\Info.mdb"
   sql = "select distinct " & columnheader & " from " & tbl_name
   If Len(sqlwhere) Then sql = sql & " where " & sqlwhere
为什么四个角及中间会有一个圆？能去除吗？

xdragon · 发表于 2014-9-30 11:38

conn.Open "dsn=ms access database;dbq=" & ThisWorkbook.Path & "\Info.mdb;pwd=1234"
加密在后面加上pwd=1234就好了

至于你说的圆，我这里并没有。。。你试试把我里面有一句.select这行删除试试看

sblisb · 发表于 2014-9-30 14:13

本帖最后由 sblisb 于 2014-9-30 14:15 编辑

xdragon 发表于 2014-9-30 11:38
conn.Open "dsn=ms access database;dbq=" & ThisWorkbook.Path & "\Info.mdb;pwd=1234"
加密在后面加 ...

谢谢，
我加了这句Application.SendKeys "%{down}" '自动展开数据有效性
如果有新数据，有没可能在这个框中对access表加一条记录

xdragon · 发表于 2014-9-30 14:26

sblisb 发表于 2014-9-30 14:13
谢谢，
我加了这句Application.SendKeys "%{down}" '自动展开数据有效性
如果有新数据，有没可能在这个 ...

你这个应该是限制别人输入的，要加也要另外开个维护的界面吧？{:241:}否则随便输入一个字符也加进access里了

		自动登录	找回密码
密码			注册

[已解决]excel组合框读取access数据？

相关帖子