Public Function sCopyMDF(sSvrName As String, sUID As String, sPWD As String, sMDFName As String) As String
'********************************************************************
'这个函数将检查MSDE ...
Public Function sStartMSDE(sSvrName As String, sUID As String, sPWD As String) As String
'********************************************************************
'这个子程序将启动 MSDE. 如果服务器已经 ...
Private Sub Command5_Click()
Me.Child0.SetFocus
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
Dim obj As Object
Set obj = CreateObject(excel.application)
obj.workbooks.Add
o ...
'摘自 Allen Browne 的技巧 Declare Function abOpenClipboard Lib User32 Alias OpenClipboard (ByVal Hwnd As Long) As Long
Declare Function abCloseClipboard Lib User32 Alias CloseClipboard () As Long
De ...