Hi,
You may need some code like this to work it out:
Private Sub Form_Open(Cancel As Integer)
Const conInchesToTwips = 1440
Dim intRight As Integer
Dim intDown As Integer
Dim intWidth As Integer
Dim intHeight As Integer
Dim intMyInt As Integer
DoCmd.Restore
intMyInt = Me.Width / 4220 '...
Hi,
Just put the following properties to the corresponding values:
Pop up = yes
Modal = yes
I think it will work it.
I am sorry, who told you that google is a good friend.
Hi,
change the code of closing form to the following:
Dim iform As Form
Dim lngIncrement As Long
Dim lngOpt As Long
lngOpt = 1
Set iform = Me
If lngOpt >= 0 Then
lngIncrement = 100
Call WipeEffect(iform, lngOpt, lngIncrement)...