di programmo il 16 feb 2009, 19:01
Option Compare Database
Private Declare Function api_FindWindow32 Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As Any) As Long
Private Declare Function api_DestroyWindow32 Lib "user32" Alias "DestroyWindow" _
(ByVal Hwnd As Long) As Long
Dim lngReturn
Private Sub Form_Open(Cancel As Integer)
lngReturn = api_DestroyWindow32(api_FindWindow32("OArgDlg", 0&))
'DoCmd.RunCommand acCmdProperties
End Sub
Pierpaolo Romanelli