[Last Call] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 816
  • Last Modified:

me.show in vb6 or vba in MS Access

Hi experts.

How do I go about using Me.Show behind an Access form?
0
leta37
Asked:
leta37
  • 3
  • 3
  • 2
  • +1
1 Solution
 
DatabaseMX (Joe Anderson - Microsoft MVP, Access and Data Platform)Commented:
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 recovery tool for Microsoft Active Directory

Veeam Explorer for Microsoft Active Directory provides fast and reliable object-level recovery for Active Directory from a single-pass, agentless backup or storage snapshot — without the need to restore an entire virtual machine or use third-party tools.

 
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 MVP, Access and Data Platform)Commented:
"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

Featured Post

Free recovery tool for Microsoft Active Directory

Veeam Explorer for Microsoft Active Directory provides fast and reliable object-level recovery for Active Directory from a single-pass, agentless backup or storage snapshot — without the need to restore an entire virtual machine or use third-party tools.

  • 3
  • 3
  • 2
  • +1
Tackle projects and never again get stuck behind a technical roadblock.
Join Now