Code:

Option Compare Database
Option Explicit

Private Sub cmdRed_Click()
    Me.shpRectangle.BackColor = RGB(255, 0, 0)
End Sub

Private Sub cmdWhite_Click()
    Me.shpRectangle.BackColor = RGB(255, 255, 255)
End Sub

Private Sub CustomerID_AfterUpdate()
    'Update ShipTo controls based on value selected in CustomerID combo box.
    With Me
        .txtShipName = .cboCustomerID.Column(1)
        .txtShipAddress = .txtAddress
        .txtShipCity = .txtCity
        .txtShipRegion = .txtRegion
        .txtShipPostalCode = .txtPostalCode
        .txtShipCountry = .txtCountry
    End With

End Sub

Private Sub CustomerID_BeforeUpdate(Cancel As Integer)
' Display message if CustomerID combo box is blank.

    Dim strMsg As String, strTitle As String
    Dim intStyle As Integer
    
    If IsNull(Me.cboCustomerID) Or Me.cboCustomerID = "" Then
        strMsg = "You must pick a value from the Bill To list."
        strTitle = "Bill To Customer Required"
        intStyle = vbOKOnly
        MsgBox strMsg, intStyle, strTitle
        Cancel = True
    End If

End Sub