ACCESS存取图片完整示例

不看不看

附件中包含一个excel、一个名字为“1”空的access、、一个名字为“1”的jpg图片

 

DDgNS4VJ.rar (30.49 KB, 下载次数: 159)

2008-10-19 21:13 上传

点击文件名下载附件
ACCESS存取图片完整示例

 

不好意思，当中

Private Sub UserForm_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Control As MSForms.Control, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal State As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
Application.Visible = True
End Sub

换成

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Visible = True
End Sub

[此贴子已经被作者于2008-10-19 21:30:05编辑过]

不看不看

加上循环，就可以批量存入取出了，自己弄吧！！

wayy

支持一下，谢楼主分享

wayy

看不懂，不看兄研究的越来越广了哈[em05][em05]

不看不看

不好意思

Private Sub UserForm_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Control As MSForms.Control, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal State As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
Application.Visible = True
End Sub

换成

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Visible = True
End Sub

wayy

QUOTE:

以下是引用不看不看在2008-10-19 21:29:00的发言：

不好意思

Private Sub UserForm_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Control As MSForms.Control, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal State As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
Application.Visible = True
End Sub

换成

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Visible = True
End Sub

是不是关闭时程序在隐藏状态呀？[em07]

不看不看

QUOTE:

以下是引用wayy在2008-10-19 21:31:00的发言：

QUOTE:

以下是引用不看不看在2008-10-19 21:29:00的发言：

不好意思

Private Sub UserForm_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Control As MSForms.Control, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal State As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
Application.Visible = True
End Sub

换成

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Visible = True
End Sub

是不是关闭时程序在隐藏状态呀？[em07]

是附件中的窗体关闭事件弄错了

不看不看

还可以把整张的excel工作薄存到里面那！！

不看不看

这么个好东东没几个顶的，真是太可惜了，自己再顶一次！！[em03]

wxyqxxz2007

好东西,顶,顶,顶[em17]