Private Sub PartnerID_AfterUpdate()
Dim R As Integer
Me.StovaristeID.RowSource = Me.StovaristeID.RowSource
R = Me.StovaristeID.ListCount
If R = 0 Then
Me.StovaristeID.Visible = False
Else
Me.StovaristeID.Visible = True
End If
End Sub