Problem with Form Timer

Tech-Archive recommends: Fix windows errors by optimizing your registry

From: Louis Herndon (anonymous_at_discussions.microsoft.com)
Date: 09/10/04 

Date: Fri, 10 Sep 2004 08:05:33 -0700

Hello,

I am designing a database for our Financial Dept. As it
will be used by many users, I am trying to make it as
professional as well as functional as possible. By
request of our CFO, I am attempting to make this as close
to an application as I can, as opposed to a hum-drum
database. Here is my problem:

I have made a startup splash screen that basically slowly
expands our company name with our logo as a background.
This works fine, and I then want it to pause a second or
two, and then automatically close and open the login
screen. This works as well, the only thing I am lacking
is the pause. As soon as the banner expands, it closes
immediately, not giving a chance to really see what the
banner says. Here is my code, and any help would be
appreciated:

Option Compare Database
Option Explicit
Private Sub Form_Timer()
    On Error GoTo Form_Timer_Error
    Me.TimerInterval = 0
    If Me!lblWait.Visible = False Then
      Call ShowMe
    End If
    DoCmd.Close acForm, "frmTest"----> How do I input the
pause???
Form_Timer_Exit:
  Exit Sub
    
Form_Timer_Error:
  MsgBox "Error in Test Form@Error when Timer expires = "
& Err.Number & "@ie:" & vbCrLf & Err.Description
  Resume Form_Timer_Exit
  
  
End Sub
Private Sub ShowMe()

  Dim i As Long
    Me!lblWait.Visible = False
    Me!lblWait.Width = 1
    Me!lblWait.Visible = True
    Me!fraLink.Visible = True
    
    For i = 1 To 4000 Step 40
        Me!lblWait.Width = i
        Me.Repaint
        Call jpDelay(1)
    Next
    
  End Sub

Relevant Pages

  • RE: jpgs not showing on forms
    ... Rather than embed the pictures in the database store the paths to the JPEG ... Private Sub cmdAddImage_Click ... Dim strAdditionalTypes As String, strFileList As String ... Private Sub cmdDeleteImage_Click ...
    (microsoft.public.access.gettingstarted)
  • Problem with Form Timer
    ... I am designing a database for our Financial Dept. ... is the pause. ... Private Sub Form_Timer ...
    (microsoft.public.access.formscoding)
  • Re: Need Help - How to do a "make table query" by code
    ... Can this code be included in my "Private Sub" at the end of my existing ... If it does have to be a "Public Sub" how do I go about creating a "public ... Can you tell me if it is possible using code in one database to delete the ... Public Sub DeleteForeignData() ...
    (microsoft.public.access.modulesdaovba)
  • Re: SqlNotificationInfo
    ... Private Sub btnGetData_Click(ByVal sender As System.Object, ... Éric Moreau, MCSD, Visual Developer - Visual Basic MVP ... the only result I've had is to lock up the database. ...
    (microsoft.public.dotnet.framework.adonet)
  • Re: Record not being deleted in dbase, even tho the display on datagrid is deleted..
    ... database then affecting the delete before letting it refresh the datagrid. ... > Private Sub Page_Load(ByVal Sender As System.Object, ...
    (microsoft.public.dotnet.general)