Hi, This is how I did it, I have a checkbox Sale
Private Sub Form_Current()
Me.sfrmBuy.Visible = Nz(Me.Sale, False)
Me.sfrmSales.Visible = Not Nz(Me.Sale, False)
Private Sub List210_Click()
On Error GoTo List210_Err
Me.sfrmBuy.Visible = Nz(Me.Sale, False)...