Customize your Main Menu or Switchboad
Finally, place the code below in the On_Open event of the Forms and Reports that you placed the Image Control on.
Add a personal greeting to the Switchboard or Main Menu...

1. Go to Design View of your Main Menu (or Switchboard)
2. Create a Text Box (and please give it a meaningful name, i.e. txtGreeting)
3. Copy and paste the below string in the Control Source of your Text Box

="Good " & IIf(Hour(Time()) < 12, "Morning", IIf(Hour(Time()) < 16, "Afternoon", "Evening")) & "  " & Environ("Username")

4. Close and save your changes
5. Open your Switchboard or Main Menu
Adding\changing the Logo...

You can allow Client's to insert their own logo on the Switchboard or Main Menu (and, if you like Reports).  This is especially a nice touch as Users will be able to personalize the database as their own.

The first thing you will need is a separate table the holds the Client's information, i.e. tblCompanyProfile, and then create a Form based on said table.

Then place an Image Control on all the Forms and Reports that will  display the Logo and set Picture to (NONE) and Size Mode to Clip. Note, you may need to resize the image to fit.  (For the purpose of this example, the Image Control is named imgLogo.)
Adding the Date to the Switchboard or Main Menu...

1. Go to Design View of your Main Menu (or Switchboard)
2. Create a Text Box (and please give it a meaningful name, i.e. txtTodaysDate)
3. Copy and paste the below string in the Control Source of the Text Box

=Format(Date(),"dddd mmmm d"", ""yyyy")

4. Close and save your changes
5. Open your Main Menu (or Switchboard)
Place the code below  in the On_Open event of the Form created for the Company's information.
The difficult I do immediately, the impossible takes a little bit longer.
Forms
Tips (Main)
Home
Let your Client customize the form labels
Linking Subforms to an Unbound Control(s) on the Main (Parent) Form
Auto-Add new child records when adding a new record on the Main (Parent) Form
Simple Bar Chart using Shapes
Simulate a Drop Down box (not a Combo Box) as seen on Web Pages
Implement a Log-On form to control what the User sees
Make Controls resize with a Form
Switch Windows
Assign *Permissions* based on Users Levels
New User Form
Add *Favorites* to a Continuous Form
Custom Record Selectors
Searching Records
Private Sub Form_Current()
On Error Resume Next
    If IsNull([txtImagePath]) Then Exit Sub
        Me.imgImage.Picture = Me.txtImagePath
End Sub
Images should not be stored in the database as they tend to take up a lot of space and can quickly grow the database beyond the 2 gig limit.
If IsNull(DLookup("[cpImagePath]", "tblCompanyProfile", "[cpMainCompany]=True")) Then Exit Sub
Me.imgLogo.Picture = DLookup("[cpImagePath]", "tblCompanyProfile", "[cpMainCompany]=True")
There are several ways to control displaying an images...

Microsoft's DisplayImage()

Add Logo to Forms and/or Reports (This is the one I prefer.)
This site uses cookies to collect data on usage. By continuing to browse this site you consent to this policy. Find out more here.