表中同一字段分组合并 查询 ACCESS
DCONCAT 域字符串合并函数
...MK2-风 之谷
科技改變未來.人人都在改變中.
1.添加引用Microsoft
Private Sub E_mail_DblClick(Cancel As Integer)
Dim otlk As Outlook.Application
Dim mailitem As Outlook.mailitem
Set otlk = New Outlook.Application
...
一直找了很久才找到的方法..多得国外牛人写了一个OCX控件.本来想自己利用API调用的.但太复杂了..但我不会放弃.总有一天自己用API做一个出来....
想要方法和源码的人.留言或加我.....

很多人在学习 ACCESS 或EXCEL 时.觉得VBA中的函数 太难了.不知如何学..
这里教大家一个学习的方法.
首先进入VBA的模式(这个都不懂进入.就不要学了 = ='')

收到QQ群51166283 一位小鸟的要求.传了一份MDB文件给我.问我它的下拉菜单是怎样做的.
当然.第一件事按住SHIFT键打开该文件.看一下设计就知怎做了.. 但不幸是.被作者封了SHIFT了..
于是去找寻破解SHIFT键的方法..呵.道然在MS的站上有方法.但看了一下代码.有问题.不是用来破解其他MDB文件.只能破自己(-_-'' 汗..有屁用.自已能进.就不用破了).于是改了一下打开方式.调用其他文件.运行一下FUNCTION..OK搅掂.. SHIFT键被取消了..文件可以看到设计了....
...
找了很久才找到的代码呢.真正调用外部任何文件...这个是调用外部图片.以预设关联的看图软件打开..
Function a()
CreateObject("wscript.shell").Run ("c:\23.jpg")
End Function
大家可以在模块中测试
最新评论及回复