Untuk membuat sebuah form menjadi modal dan popup, saya gunakan fungsi sbb.
Function SetModalPopUp(ByVal strForm As String, ByVal bolChoose As Boolean)
DoCmd.OpenForm strForm, acDesign, , , , acHidden
Forms(strForm).Modal = bolChoose
Forms(strForm).PopUp = bolChoose
DoCmd.Close acForm, strForm, acSaveYes
End Function
dipakainya sbb:
Function testSet()
SetModalPopUp "frmLoginAdis", False
End Function
kalau mau semua form silahkan gunakan currentproject.allforms.
salam, MBA
----- Original Message -----
From: "End" <[email protected]>
To: <[email protected]>
Sent: Wednesday, February 24, 2010 17:22
Subject: [belajar-access] Object form set modal true
> Dear All,
> Mohon pencerahan bisa gak semua object form diset dalam modal true, tanpa
> menset semua form yang ada ??
