Hi All,
Please could assist in below code? I recon I have a conflict in the code as some controls should be displayed depending on previous selected data but in most cases it does not display. is there another way to white these codes?
Please could assist in below code? I recon I have a conflict in the code as some controls should be displayed depending on previous selected data but in most cases it does not display. is there another way to white these codes?
Code:
Private Sub Form_Current()
If Nz(Me.ControlledItem, "") = "Military" And Nz(Me.Country, "") <> "ZA" And Nz(Me.ImportExport, "") = "2" Then
Me.CP.Visible = True
Me.EUC.Visible = True
Me.EXP.Visible = True
Me.IMP.Visible = False
Me.TT.Visible = False
Me.RC.Visible = False
Me.CPAttachment.Visible = True
Me.CPAttached.Visible = True
Me.EUCAttachment.Visible = True
Me.EUCAttached.Visible = True
Me.EXPAttachment.Visible = True
Me.EXPAttached.Visible = True
Me.IMPAttachment.Visible = False
Me.IMPAttached.Visible = False
Me.TTAttachment.Visible = False
Me.TTAttached.Visible = False
Me.RCAttachment.Visible = False
Me.RCAttached.Visible = False
Me.CPL.Visible = True
Me.EUCL.Visible = True
Me.EXPL.Visible = True
Me.IMPL.Visible = False
Me.TTL.Visible = False
Me.RCL.Visible = False
Me.Refresh
Else
Me.CP.Visible = False
Me.EUC.Visible = False
Me.EXP.Visible = False
Me.IMP.Visible = False
Me.TT.Visible = False
Me.RC.Visible = False
Me.CPAttachment.Visible = False
Me.EUCAttachment.Visible = False
Me.EXPAttachment.Visible = False
Me.IMPAttached.Visible = False
Me.TTAttachment.Visible = False
Me.RCAttachment.Visible = False
Me.CPAttached.Visible = False
Me.EUCAttached.Visible = False
Me.EXPAttached.Visible = False
Me.IMPAttachment.Visible = False
Me.TTAttachment.Visible = False
Me.RCAttachment.Visible = False
Me.CPL.Visible = False
Me.EUCL.Visible = False
Me.EXPL.Visible = False
Me.IMPL.Visible = False
Me.TTL.Visible = False
Me.RCL.Visible = False
Me.Refresh
End If
If Nz(Me.ControlledItem, "") = "Dual" And Nz(Me.Country, "") <> "ZA" And Nz(Me.ImportExport, "") = "2" Then
Me.CP.Visible = True
Me.EUC.Visible = True
Me.EXP.Visible = True
Me.IMP.Visible = False
Me.TT.Visible = False
Me.RC.Visible = False
Me.CPAttachment.Visible = True
Me.CPAttached.Visible = True
Me.EUCAttachment.Visible = True
Me.EUCAttached.Visible = True
Me.EXPAttachment.Visible = True
Me.EXPAttached.Visible = True
Me.IMPAttachment.Visible = False
Me.IMPAttached.Visible = False
Me.TTAttachment.Visible = False
Me.TTAttached.Visible = False
Me.RCAttachment.Visible = False
Me.RCAttached.Visible = False
Me.CPL.Visible = True
Me.EUCL.Visible = True
Me.EXPL.Visible = True
Me.IMPL.Visible = False
Me.TTL.Visible = False
Me.RCL.Visible = False
Me.Refresh
Else
Me.CP.Visible = False
Me.EUC.Visible = False
Me.EXP.Visible = False
Me.IMP.Visible = False
Me.TT.Visible = False
Me.RC.Visible = False
Me.CPAttachment.Visible = False
Me.EUCAttachment.Visible = False
Me.EXPAttachment.Visible = False
Me.IMPAttached.Visible = False
Me.TTAttachment.Visible = False
Me.RCAttachment.Visible = False
Me.CPAttached.Visible = False
Me.EUCAttached.Visible = False
Me.EXPAttached.Visible = False
Me.IMPAttachment.Visible = False
Me.TTAttachment.Visible = False
Me.RCAttachment.Visible = False
Me.CPL.Visible = False
Me.EUCL.Visible = False
Me.EXPL.Visible = False
Me.IMPL.Visible = False
Me.TTL.Visible = False
Me.RCL.Visible = False
Me.Refresh
End If
If Nz(Me.ControlledItem, "") = "Military" And Nz(Me.Country, "") <> "ZA" And Nz(Me.ImportExport, "") = "1" Then
Me.CP.Visible = False
Me.EUC.Visible = False
Me.EXP.Visible = False
Me.IMP.Visible = True
Me.TT.Visible = False
Me.RC.Visible = False
Me.CPAttachment.Visible = False
Me.CPAttached.Visible = False
Me.EUCAttachment.Visible = False
Me.EUCAttached.Visible = False
Me.EXPAttachment.Visible = False
Me.EXPAttached.Visible = False
Me.IMPAttachment.Visible = True
Me.IMPAttached.Visible = True
Me.TTAttachment.Visible = False
Me.TTAttached.Visible = False
Me.RCAttachment.Visible = False
Me.RCAttached.Visible = False
Me.CPL.Visible = False
Me.EUCL.Visible = False
Me.EXPL.Visible = False
Me.IMPL.Visible = True
Me.TTL.Visible = False
Me.RCL.Visible = False
Me.Refresh
Else
Me.CP.Visible = False
Me.EUC.Visible = False
Me.EXP.Visible = False
Me.IMP.Visible = False
Me.TT.Visible = False
Me.RC.Visible = False
Me.CPAttachment.Visible = False
Me.EUCAttachment.Visible = False
Me.EXPAttachment.Visible = False
Me.IMPAttached.Visible = False
Me.TTAttachment.Visible = False
Me.RCAttachment.Visible = False
Me.CPAttached.Visible = False
Me.EUCAttached.Visible = False
Me.EXPAttached.Visible = False
Me.IMPAttachment.Visible = False
Me.TTAttachment.Visible = False
Me.RCAttachment.Visible = False
Me.CPL.Visible = False
Me.EUCL.Visible = False
Me.EXPL.Visible = False
Me.IMPL.Visible = False
Me.TTL.Visible = False
Me.RCL.Visible = False
Me.Refresh
End If
If Nz(Me.ControlledItem, "") = "Military" And Nz(Me.Country, "") <> "ZA" And Nz(Me.ImportExport, "") = "3" Then
Me.CP.Visible = False
Me.EUC.Visible = False
Me.EXP.Visible = False
Me.IMP.Visible = False
Me.TT.Visible = True
Me.RC.Visible = False
Me.CPAttachment.Visible = False
Me.CPAttached.Visible = False
Me.EUCAttachment.Visible = False
Me.EUCAttached.Visible = False
Me.EXPAttachment.Visible = False
Me.EXPAttached.Visible = False
Me.IMPAttachment.Visible = False
Me.IMPAttached.Visible = False
Me.TTAttachment.Visible = True
Me.TTAttached.Visible = True
Me.RCAttachment.Visible = False
Me.RCAttached.Visible = False
Me.CPL.Visible = False
Me.EUCL.Visible = False
Me.EXPL.Visible = False
Me.IMPL.Visible = False
Me.TTL.Visible = True
Me.RCL.Visible = False
Me.Refresh
Else
Me.CP.Visible = False
Me.EUC.Visible = False
Me.EXP.Visible = False
Me.IMP.Visible = False
Me.TT.Visible = False
Me.RC.Visible = False
Me.CPAttachment.Visible = False
Me.EUCAttachment.Visible = False
Me.EXPAttachment.Visible = False
Me.IMPAttached.Visible = False
Me.TTAttachment.Visible = False
Me.RCAttachment.Visible = False
Me.CPAttached.Visible = False
Me.EUCAttached.Visible = False
Me.EXPAttached.Visible = False
Me.IMPAttachment.Visible = False
Me.TTAttachment.Visible = False
Me.RCAttachment.Visible = False
Me.CPL.Visible = False
Me.EUCL.Visible = False
Me.EXPL.Visible = False
Me.IMPL.Visible = False
Me.TTL.Visible = False
Me.RCL.Visible = False
Me.Refresh
End If
If Nz(Me.ControlledItem, "") = "Dual" And Nz(Me.Country, "") <> "ZA" And Nz(Me.ImportExport, "") = "3" Then
Me.CP.Visible = False
Me.EUC.Visible = False
Me.EXP.Visible = False
Me.IMP.Visible = False
Me.TT.Visible = True
Me.RC.Visible = False
Me.CPAttachment.Visible = False
Me.CPAttached.Visible = False
Me.EUCAttachment.Visible = False
Me.EUCAttached.Visible = False
Me.EXPAttachment.Visible = False
Me.EXPAttached.Visible = False
Me.IMPAttachment.Visible = False
Me.IMPAttached.Visible = False
Me.TTAttachment.Visible = True
Me.TTAttached.Visible = True
Me.RCAttachment.Visible = False
Me.RCAttached.Visible = False
Me.CPL.Visible = False
Me.EUCL.Visible = False
Me.EXPL.Visible = False
Me.IMPL.Visible = False
Me.TTL.Visible = True
Me.RCL.Visible = False
Me.Refresh
Else
Me.CP.Visible = False
Me.EUC.Visible = False
Me.EXP.Visible = False
Me.IMP.Visible = False
Me.TT.Visible = False
Me.RC.Visible = False
Me.CPAttachment.Visible = False
Me.EUCAttachment.Visible = False
Me.EXPAttachment.Visible = False
Me.IMPAttached.Visible = False
Me.TTAttachment.Visible = False
Me.RCAttachment.Visible = False
Me.CPAttached.Visible = False
Me.EUCAttached.Visible = False
Me.EXPAttached.Visible = False
Me.IMPAttachment.Visible = False
Me.TTAttachment.Visible = False
Me.RCAttachment.Visible = False
Me.CPL.Visible = False
Me.EUCL.Visible = False
Me.EXPL.Visible = False
Me.IMPL.Visible = False
Me.TTL.Visible = False
Me.RCL.Visible = False
Me.Refresh
End If
If Nz(Me.ControlledItem, "") <> "Civil" And Nz(Me.Country, "") = "ZA" Then
Me.CP.Visible = False
Me.EUC.Visible = False
Me.EXP.Visible = False
Me.IMP.Visible = False
Me.TT.Visible = False
Me.RC.Visible = True
Me.CPAttachment.Visible = False
Me.CPAttached.Visible = False
Me.EUCAttachment.Visible = False
Me.EUCAttached.Visible = False
Me.EXPAttachment.Visible = False
Me.EXPAttached.Visible = False
Me.IMPAttachment.Visible = False
Me.IMPAttached.Visible = False
Me.TTAttachment.Visible = False
Me.TTAttached.Visible = False
Me.RCAttachment.Visible = True
Me.RCAttached.Visible = True
Me.CPL.Visible = False
Me.EUCL.Visible = False
Me.EXPL.Visible = False
Me.IMPL.Visible = False
Me.TTL.Visible = False
Me.RCL.Visible = True
Me.Refresh
Else
Me.CP.Visible = False
Me.EUC.Visible = False
Me.EXP.Visible = False
Me.IMP.Visible = False
Me.TT.Visible = False
Me.RC.Visible = False
Me.CPAttachment.Visible = False
Me.EUCAttachment.Visible = False
Me.EXPAttachment.Visible = False
Me.IMPAttached.Visible = False
Me.TTAttachment.Visible = False
Me.RCAttachment.Visible = False
Me.CPAttached.Visible = False
Me.EUCAttached.Visible = False
Me.EXPAttached.Visible = False
Me.IMPAttachment.Visible = False
Me.TTAttachment.Visible = False
Me.RCAttachment.Visible = False
Me.CPL.Visible = False
Me.EUCL.Visible = False
Me.EXPL.Visible = False
Me.IMPL.Visible = False
Me.TTL.Visible = False
Me.RCL.Visible = False
Me.Refresh
End If