The difficult I do immediately, the impossible takes a little bit longer.

Code Snippets...

VBA
Most code here has been tested and, in some cases, used.  Any code untested will be marked accordingly.  We offer no support for the code or your ability to implement it.  If you require assistance please post in one of the newsgroups listed here.  It is strongly recommended you test the code in a copy of your database.  In other words, use at your own risk!
  = Click to show where Code Block was used...
Create a Custom ID...
Add a custom Record Count...
Limit the amount of Records that can be entered in a Continuous Form...
Change Control Source of Combo Box based on previous Combo Box...
Sort Records using Labels...
Private Sub lblBuyerName_Click()
On Error Resume Next
     Me.txtBuyerName.SetFocus

         If Me.lblBuyerName.BackColor = -2147483633 Then
              DoCmd.RunCommand acCmdSortDescending
              Me.lblBuyerName.BackColor = 6697728  'Golden Yellow
              Me.lblBuyerName.Caption = vbCrLf & " Buyer's Name " & Chr(118)
              Me.lblLastLogDate.Caption = "Last" & vbCrLf & "Log Date"
              Me.lblState.Caption = vbCrLf & "State"
         Else
              DoCmd.RunCommand acCmdSortAscending
              Me.lblBuyerName.BackColor = -2147483633  'Transparent
              Me.lblBuyerName.Caption = vbCrLf & " Buyer's Name " & Chr(94)
              Me.lblLastLogDate.Caption = "Last" & vbCrLf & "Log Date"
              Me.lblState.Caption = vbCrLf & "State"
         End If
End Sub
Traffic Light changes colors based on conditions (well, really Image changes)...

Original Image

Background (and lights) changed in Paint to match form

Private Sub Form_Current()
On Error Resume Next
'From http://www.access-diva.com
If Me.txtEndDate < Date Then
     Me.imgTrafficLight.Picture = "C:/GTC/Images/TrafficLightRed.png"
     Me.txtNoContract = "Expired Contract!"
Else
     Me.txtNoContract = ""
End If

If Me.chkOverride = -1 Then
     Me.imgTrafficLight.Picture = "C:/GTC/Images/TrafficLightRed.png"
Else
     If Me.txtEndDate > Date Or IsNull([txtInvoicePaidDate]) Then
          Me.imgTrafficLight.Picture = "C:/GTC/Images/TrafficLightYellow.png"

          If Me.txtEndDate > Date And Not IsNull([txtInvoicePaidDate]) Then
               Me.imgTrafficLight.Picture = "C:/GTC/Images/TrafficLightGreen.png"
          End If
     End If
End If

End Sub

The code below demonstrates how *change* the light based on Contract parameters...

Cool Tip

As you can see I don't store my images in the database.  I create a subfolder *Image* to store all images including logos used in the database on forms and reports.  (I name all logos *MyLogo.png* so I have less coding to amend.)

In the past it caused bloating which would push your database to it's max size (2 GIG) very quickly, especially if your database is image intensive. Try this link which has MANY samples of how to insert/display images in forms and reports without storing them in the database...  Image Handling

aaaaaaaaaaaaiii