[ 求救]为何下面这段代码在我机器上不能运行?

ljwei692 · 发表于 2003-12-3 19:37:00

Private Sub CmdBrowse_Click()
Dim cdl As CommonDialog
= ==> Set cdl = New CommonDialog'
Dim db As AccessObject
cdl.InitDir = CurrentProject.Path
cdl.ShowOpen
Me.txtFilename.SetFocus
Me.txtFilename = cdl.FileName
End Sub

老显示这个提示:

zhengjialon · 发表于 2003-12-3 22:22:00

有没有引用这个控件先啊？

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

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[Access本身] [ 求救]为何下面这段代码在我机器上不能运行?

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)