Access Splash Screen start up error

Access Splash Screen start up error with VB Code

Page 1 of 1

1 Replies - 1811 Views - Last Post: 23 June 2008 - 12:46 PM Rate Topic: -----

#1 rtrgrl78   User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 2
  • Joined: 23-June 08

Access Splash Screen start up error

Posted 23 June 2008 - 12:43 PM


I'm experiencing a slight difficulty with a Splash Screen I am trying to create for

Microsoft Access, when it starts up, when you click on Lable Close I get an error message

reading 'Compile error: User-defined type not defined', this appears at the prompt in the

code I've highlighted in Bold. Any help with this is very much received, I've

gotten the code from an internet site that helps you design a Splash Screen. Many


The Code:
Option Compare Database
Option Explicit

Private Sub chkShowHide_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub Form_Current()

End Sub

Private Sub lblClose_Click()
	On Error GoTo Err_lblClose_Click

	' Close the splash screen &
	' Open the main database form, frmClients

	DoCmd.OpenForm "frmClients"

	Exit Sub

	MsgBox Err.Description
	Resume Exit_lblClose_Click

End Sub

Private Sub Form_Open(Cancel As Integer)

On Error GoTo FormOpen_Err
	If (CurrentDb().Properties("StartupForm") = "frmSplashScreen" Or _
		CurrentDb().Properties("StartupForm") = "Form.frmSplashScreen") Then
		Forms!frmSplashScreen!chkHideSplash = False
		Forms!frmSplashScreen!chkShowHide = True
	End If
	Exit Sub
	If Err = 3270 Then
		Forms!frmSplashScreen!chkShowHide = True
		Resume FormOpen_Exit
	End If
End Sub

Private Sub Form_Close()

On Error GoTo Form_Close_Err
	If Forms!frmSplashScreen!chkShowHide Then
		CurrentDb().Properties("StartupForm") = "frmClients"
		CurrentDb().Properties("StartupForm") = "frmSplashScreen"
	End If
Exit Sub

	If Err = 3270 Then
		Dim db As DAO.Database
		Dim prop As DAO.Property
		Set db = CurrentDb()
		Set prop = db.CreateProperty("StartupForm", dbText, "frmSplashScreen")
		db.Properties.Append prop
		Resume Next
	End If
End Sub

Is This A Good Question/Topic? 0
  • +

Replies To: Access Splash Screen start up error

#2 Jayman   User is offline

  • Student of Life
  • member icon

Reputation: 421
  • View blog
  • Posts: 9,532
  • Joined: 26-December 05

Re: Access Splash Screen start up error

Posted 23 June 2008 - 12:46 PM

Moved to Visual Basic. Please use :code: tags when posting code.
Was This Post Helpful? 0
  • +
  • -

Page 1 of 1