[Attachment(s) from Andi Ali included below]
From: Sofyan Efendi <sofyanefendi@gmail.com>
To: belajar-access@yahoogroups.com
Sent: Wednesday, April 4, 2012 9:46 AM
Subject: Re: [belajar-access] Re: Membuat Menu Utama yang selalu maximize mengikuti besarnya layar
mas, sudah saya coba tapi ada error nya. seperti gambar terlampir...
kenapa ya...
Mohon bantuannya.....
From: Sofyan Efendi <sofyanefendi@gmail.com>
To: belajar-access@yahoogroups.com
Sent: Wednesday, April 4, 2012 9:46 AM
Subject: Re: [belajar-access] Re: Membuat Menu Utama yang selalu maximize mengikuti besarnya layar
Dear Mas Andi, pertama buat dahulu di class module formnya, disimpan dipaling atas:
Option Compare Database
Option Explicit
Option Explicit
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName _
As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long
Private Const WM_COMMAND As Long = &H111
Private Const MIN_ALL As Long = 419
Private Const MIN_ALL_UNDO As Long = 416
ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName _
As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long
Private Const WM_COMMAND As Long = &H111
Private Const MIN_ALL As Long = 419
Private Const MIN_ALL_UNDO As Long = 416
Kemudian, pada event form on open, ditambahkan:
Private Sub Form_Open(Cancel As Integer)
On Error GoTo PenyebabError
On Error GoTo PenyebabError
'Call MinimizeAll
'If Me![flgHideWindow] = -1 Then
Dim lngReturn As Long
lngReturn = ShowWindow(Application.hWndAccessApp, 2)
Application.SetOption "ShowWindowsInTaskbar", False
'End If
Tutup_PenyebabError:
Exit Sub
'If Me![flgHideWindow] = -1 Then
Dim lngReturn As Long
lngReturn = ShowWindow(Application.hWndAccessApp, 2)
Application.SetOption "ShowWindowsInTaskbar", False
'End If
Tutup_PenyebabError:
Exit Sub
PenyebabError:
MsgBox "Terdapat error didalam program ini, dengan error number: " & Err.Number & " - " & Err.Description & " - " & Err.Source, vbCritical, AppTitle
Resume Tutup_PenyebabError
nol:
End Sub
MsgBox "Terdapat error didalam program ini, dengan error number: " & Err.Number & " - " & Err.Description & " - " & Err.Source, vbCritical, AppTitle
Resume Tutup_PenyebabError
nol:
End Sub
Kemudian, properties popup dan modal di formnya diset ke Yes yah.
Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
http://imopi.wordpress.com/
Sofyan Efendi
http://imopi.wordpress.com/
----- Original Message -----From: Andi AliSent: Tuesday, April 03, 2012 9:43 PMSubject: Re: [belajar-access] Re: Membuat Menu Utama yang selalu maximize mengikuti besarnya layarMakasi banyak mas...sudah bisa jalan.. selama ini saya sudah menggunakan code itu, namun salah penempatan.sekali lagi makasi mas atas info dan solusinya..kalo boleh mas bisa berbagi ilmu tentang bagaimana menghilangkan accses itu sendiri seperti yang mas infokan sebelumnya. kalo mas tidak keberatan.wassalam.
From: Sofyan Efendi <sofyanefendi@gmail.com>
To: belajar-access@yahoogroups.com
Sent: Tuesday, April 3, 2012 9:35 PM
Subject: [belajar-access] Re: Membuat Menu Utama yang selalu maximize mengikuti besarnya layar
O iya Mas, maaf ya kalau begitu, saya tidak tahu sebelumnya. Bila demikian, mungkin bisa dicoba mas:
Private Sub Form_Resize()
DoCmd.Maximize
End Sub
Wassalaamu'alaikum Wr Wb,
Sofyan Efendi
http://imopi.wordpress.com/
--- In belajar-access@yahoogroups.com, Andi Ali <aliandi05@...> wrote:
>
> Makasi mas atas solusinya...
>
> Gini mas, sebenarnya awalnya saya tidak menghiraukan masalah ini, tetapi sesuai permintaan para user di kantor yang agak sedikit terganggu jika aplikasi di minimize dan akan di maximize kembali "tampilan menunya akan mengecil dan kurang enak dipandang mata. harus mengkilik kembali tombol maximize, baru kembali ke semula"...
>
>
> makanya saya pengen secara otomatis aplikasi begitu di buka kebali setelah di minimize akan kembali seperti tampilan semula alias Maximize.
> ataupun mas kalo misalnya tidak bisa di maximize, setidaknya menu utamanya tidak menutupi taskbar windows. artinya selalu terlihat fullscreen di komputer mana pun. dan tidak ada bagian dari menu utama itu sendiri yang tertutupi.
>
> demikian mas.. mohon bantuannya.
>
>
> ________________________________
> From: Sofyan Efendi <sofyanefendi@...>
> To: belajar-access@yahoogroups.com
> Sent: Tuesday, April 3, 2012 8:35 PM
> Subject: [belajar-access] Re: Membuat Menu Utama yang selalu maximize mengikuti besarnya layar
>
>
> Â
> Bila menu utama masih berada dalam area window Office Access, hal tersebut tidak bisa diwujudkan. Bisa diwujudkan bila window Office Access nya dihilangkan. Cobalah download OPI Dictionary 2.0 di:
> http://trendmuslim.com/index.php?main_page=page&id=16
> Installernya murni menggunakan Microsoft Access. Disana tidak terlihat window Office Access nya saat proses installasi berlangsung. Tetapi, properties ini memaksa form menjadi popup = true dan modal = true, untuk semua form yang terakses oleh menu utama. Cukup ribet dan memusingkan...
>
> Hmm.. saya lebih menyarankan ikuti saja standarnya Access. Bila diminimize Accessnya, maka secara standar, menu utama akan ikut diminimize. Ini jauh lebih mudah, lebih cepat, trust me...
>
> Atau... bisakah Mas Andi jelaskan mengapa menginginkan hal tsb? Barangkali ada alasan tertentu yg menjadi pertimbangan...
>
> Opi.
>
> --- In belajar-access@yahoogroups.com, Andi Ali <aliandi05@> wrote:
> >
> > para suhu"... mohon pencerahannya... saya sedang membuat aplikasi asset buat kantor saya tapi ada kendala untuk menu utamanya. pertanyaan saya "bagaimana agar menu utama yang saya buat (Terlampir) tetap dalam keadaan maximize walaupun Office acces nya di minimize"
> >
> > nuhun...
> > matur suwon..
> > terima kasih..
> >
>
__._,_.___
Attachment(s) from Andi Ali
1 of 1 Photo(s)
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar