View Single Post
  #2 (permalink)  
Old February 18th, 2004, 05:54 PM
SerranoG SerranoG is offline
Friend of Wrox
Points: 4,007, Level: 26
Points: 4,007, Level: 26 Points: 4,007, Level: 26 Points: 4,007, Level: 26
Activity: 0%
Activity: 0% Activity: 0% Activity: 0%
 
Join Date: Jun 2003
Location: Lansing, Michigan, USA.
Posts: 1,151
Thanks: 2
Thanked 14 Times in 14 Posts
Send a message via ICQ to SerranoG Send a message via AIM to SerranoG
Default

Put this on the form's ON OPEN event, assuming that the textbox that holds the initials is called Me.txtInitials:
Code:
   Dim strInitials as String

   strInitials = ""
   Do While strInitials = ""
      strInitials = Trim(InputBox("Please enter your initials.","User Initials"))
   Loop
   Me.txtInitials = strInitials
   Me.txtInitials.SetFocus
   The do loop is there to prevent someone from entering nothing as initials. It will keep asking until the person enters something. If you don't specify a box location, the input box will default to dead center of the screen.



Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division
Reply With Quote