MS ACCESS MAILING LIST: Re: [belajar-access] form on top

Friday, January 4, 2013

Re: [belajar-access] form on top

kalau yang seperti ini cara pakainya gimana ya

diambil dari http://access.mvps.org/access/forms/frm0042.htm

1. To align the tops of two forms (at the position of the topmost form):

'********** Code Start ************
Public Sub AlignTops(ByRef frmA As Form, ByRef frmB As Form)
Dim fwA As New clFormWindow, fwB As New clFormWindow
fwA.hwnd = frmA.hwnd
fwB.hwnd = frmB.hwnd
If fwA.Top < fwB.Top Then
fwB.Top = fwA.Top
Else
fwA.Top = fwB.Top
End If

Set fwA = Nothing
Set fwB = Nothing
End Sub
'********** Code End ************
2. To move a form to the top right corner of the Access window:

'********** Code Start ************
Public Sub MoveToTopRight(ByVal strFormName As String)
Dim fwForm As New clFormWindow
Const SMALL_OFFSET = 5 'Used to position window slightly _
away from the Access MDI window border _
in order to avoid appearance of the Access _
window vertical scroll bar.
With fwForm
.hwnd = Forms(strFormName).hwnd
.Top = .Parent.Top
.Left = .Parent.Width - .Width - SMALL_OFFSET
End With
Set fwForm = Nothing
End Sub
'********** Code End ************

2013/1/3, Sofyan Efendi sofyanefendi@gmail.com>:
> Pop Up nya di set True mas
>
> Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> Sofyan Efendi
> ----- Original Message -----
> From: "him mah" himmah.mlg@gmail.com>
> To: "belajar-access" belajar-access@yahoogroups.com>
> Sent: Thursday, January 03, 2013 4:21 PM
> Subject: [belajar-access] form on top
>
>
>> dear all
>>
>> mau tanya lagi
>>
>> misal kita buka beberapa form dan kita ingin FormA selalu tampil di depan
>> kalau pakai property sheet ="MODAL", maka form lain tidak bisa
>> diapa-apain
>>
>> yang diinginkan adalah formA tetap tampil didepan dan form lain bisa
>> kita apa-apa kan, kira kira setting atau VBA nya seperti apa?
>>
>> terima kasih
>>
>>
>> ------------------------------------
>>
>> SPAM IS PROHIBITEDYahoo! Groups Links
>>
>>
>>
>
>