Dear All,
Buat Pembelajaran aja ....
Udah Ketemu euy....
Coding nya begini sedikit modifikasi ....
di module
**************************************
Public Declare Function ShellExecute Lib _
"shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As
String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) _
As Long
Public Enum StartWindowState
START_HIDDEN = 0
START_NORMAL = 4
START_MINIMIZED = 2
START_MAXIMIZED = 3
End Enum
Public Function ShellDocument(sDocName As String, _
Optional ByVal Action As String =
"Open", _
Optional ByVal Parameters As
String = vbNullString, _
Optional ByVal Directory As String
= vbNullString, _
Optional ByVal WindowState As StartWindowState) _
As Boolean
Dim Response
Response = ShellExecute(&O0, Action, sDocName, _
Parameters, Directory, WindowState)
Select Case Response
Case Is < 33
ShellDocument = False
Case Else
ShellDocument = True
End Select
End Function
***********************************************
di event menu click :
***********************************************
Call ShellDocument("trainingpermanen.adp", "Open", _
"", App.Path, START_MAXIMIZED)
***********************************************
Oke Problem SOLVED
================================================
--- Ryan Sugara <[EMAIL PROTECTED]> wrote:
> Dear All,
>
> Udah lama nih gak ikutan posting, rekan2,
> aku punya aplikasi yang di buat di access project
> (.adp), dimana databasenya pake SQL Server, nah aku
> ingin aplikasi ini terintegrasi dengan Program VB
> yang
> aku buat, jadi ketika klik menu program di program
> VB
> ku itu maka aplikasi yang di Ms. Access Project akan
> muncul.
>
> Aku udah menggunakan function seperti ini :
>
******************************************************
> Public Declare Function ShellExecute Lib _
> "shell32.dll" Alias "ShellExecuteA" _
> (ByVal hwnd As Long, ByVal lpOperation As String, _
> ByVal lpFile As String, ByVal lpParameters As
> String,
> _
> ByVal lpDirectory As String, ByVal nShowCmd As Long)
> As Long
>
>
******************************************************
>
> kemudian di : event menu clicknya seperti ini :
>
> *********************************************
> ShellExecute Me.hwnd, "open", app.path &
> "\TrainingPermanen.adp", _ "", "", vbNormal
> *********************************************
>
> Permasalahan yang terjadi, logo Ms. Access tampil,
> selanjutnya menghilang, tetapi ketika aku cek di
> Proses Task Manager, Ms. Accessnya aktif.
>
> Bagaimana rekan2, any can solve my problem?
>
> Best Regard,
>
>
> Ryan Van Roy
>
>
> __________________________________________________
> Do You Yahoo!?
> Tired of spam? Yahoo! Mail has the best spam
> protection around
> http://mail.yahoo.com
>
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
