me.show in vb6 or vba in MS Access

Hi experts.

How do I go about using Me.Show behind an Access form?
leta37Asked:
Who is Participating?
 
DatabaseMX (Joe Anderson - Microsoft Access MVP)Connect With a Mentor Database ArchitectCommented:
Where are you finding Me.Show ??

No such method or property that I know of ...

mx
0
 
Ryan ChongCommented:
0
 
leta37Author Commented:
im trying to be fancy and use a fade in/out for a splash screen in access, the form load has:

Private Sub Form_Load()
ApplyDropShadow Me.hwnd
TranslucentForm Me, 0
For i = 0 To 255 Step 5
dummy = TranslucentForm(Me, CByte(i))
DoEvents
Me.Show
Sleep 25
Next
dummy = TranslucentForm(Me, 255)
End Sub


and it stopes on Me.Show with a compile error
0
Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

 
leta37Author Commented:
i think the code is more aimed at VB6
0
 
Ryan ChongCommented:
What if you simply remove line:

Me.Show

from above script?
0
 
wiswalldCommented:
In access you would have to create a splash screen and set a timer event to close after a certain time and open the new form. You are trying to use visual basic language which is not the same in access as VB6.
0
 
DatabaseMX (Joe Anderson - Microsoft Access MVP)Database ArchitectCommented:
"and it stopes on Me.Show with a compile error"

Because there is no such method or property (Show) ****

mx
0
 
leta37Author Commented:
yup

i took out the me.show - and it seems to just delay the load then it pops up - i am thinking the me.show is a 'update' of sorts to make the form show
0
 
Ryan ChongCommented:
try put your scripts into Form_Activate() instead, like:


Dim isLoaded As Boolean


Private Sub Form_Activate()

If isLoaded  then exit sub

ApplyDropShadow Me.hwnd
TranslucentForm Me, 0
For i = 0 To 255 Step 5
dummy = TranslucentForm(Me, CByte(i))
DoEvents
Sleep 25
Next
dummy = TranslucentForm(Me, 255)

isLoaded = true

End Sub
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.