Select Case Me.OpenArgs
Case "Receipt"
With Me
.lblReceipt.Visible = True
.lblTransfer.Visible = False
.lblAdjustment.Visible = False
.EntityFK.Visible = False
.EntityFK_Label.Visible = False
.VendorsFK.Visible = True
.VendorsFK_Label.Visible = True
.TranTypeFK.RowSource = "SELECT TranTypePK, TranType from tblTranTypes WHERE TranTypePK<=2"
.TranTypeFK.ColumnCount = 2
.TranTypeFK.ColumnWidths = "0;1cm"
.TranTypeFK.DefaultValue = 1
End With