Option Compare Database
Option Explicit

Private Sub Form_Load()
    UpdateRating GetCustomProp("Rating")
    Me.btnPostFeedback.Enabled = False
    Me.lblStatus.Visible = Me.cboRating > 0
End Sub

Private Sub btnPostFeedback_Click()
    FollowHyperlink "http://office.microsoft.com/en-us/suggestions.aspx?AssetID=" & GetCustomProp("AssetID") & "&Type=0&Rating=" & Me.cboRating
    SetCustomProp "Rating", Me.cboRating
    DoCmd.Close acForm, Me.Name
End Sub

Public Function UpdateRating(iRating As Integer)
    Me.cboRating = iRating
    cboRating_AfterUpdate
End Function

Private Sub cboRating_AfterUpdate()
    Dim i As Integer
    For i = 1 To 5
        Me.Controls("imgRated" & i).Visible = Me.cboRating >= i
    Next
    Me.btnPostFeedback.Enabled = Me.cboRating > 0
End Sub

Public Function SelectRating()
    UpdateRating Right(Screen.ActiveControl.Name, 1)
End Function

Function GetCustomProp(prpName As String) As Variant
    On Error Resume Next
    GetCustomProp = CurrentDb.Containers("Databases").Documents("UserDefined").Properties(prpName).Value
    If Err.Number <> 0 Then GetCustomProp = Null
End Function

Sub SetCustomProp(prpName As String, prpValue)
    CurrentDb.Containers("Databases").Documents("UserDefined").Properties(prpName).Value = prpValue
End Sub