performing an operation via a button from different list

[tara99]

I have few list boxes. and I have few buttons which should do the same operation for any of the selected items from any list box.

For example I have a view button which open a report for any selection from a list.

behind the view button I have this code

 
If (Len([List1]) > 0) Then
        DoCmd.OpenReport stDocName1, acPreview
    ElseIf (Len([List2]) > 0) Then
        DoCmd.OpenReport stDocName2, acPreview
    ElseIf (Len([List3]) > 0) Then
        DoCmd.OpenReport stDocName3, acPreview
    ElseIf (Len([List4]) > 0) Then
        DoCmd.OpenReport stDocName4, acPreview
    Else
        MsgBox "Please select an item from any of the lists provided then press the button", vbCritical, "Warning"
    End If
 

the problem is that it only let me view the report for the first selection,
for example I select an item from list1, it works fine and I see the reports, but when i go and select an item from list2 two, it still shows me the same report from the first selection.

Any ideas why?

Regards,

[pks00]

I have few list boxes. and I have few buttons which should do the same operation for any of the selected items from any list box.

For example I have a view button which open a report for any selection from a list.

behind the view button I have this code

 
If (Len([List1]) > 0) Then
        DoCmd.OpenReport stDocName1, acPreview
    ElseIf (Len([List2]) > 0) Then
        DoCmd.OpenReport stDocName2, acPreview
    ElseIf (Len([List3]) > 0) Then
        DoCmd.OpenReport stDocName3, acPreview
    ElseIf (Len([List4]) > 0) Then
        DoCmd.OpenReport stDocName4, acPreview
    Else
        MsgBox "Please select an item from any of the lists provided then press the button", vbCritical, "Warning"
    End If
 

the problem is that it only let me view the report for the first selection,
for example I select an item from list1, it works fine and I see the reports, but when i go and select an item from list2 two, it still shows me the same report from the first selection.

Any ideas why?

Regards,

Most probably due to your ElseIf's?

Why dont u just do if statements without doing any else in

    Dim bReportDone as Boolean
 
    bReportDone = False
 
    If (Len([List1]) > 0) Then
        DoCmd.OpenReport stDocName1, acPreview
        bReportDone = True
    End if
 
    If (Len([List2]) > 0) Then
        DoCmd.OpenReport stDocName2, acPreview
        bReportDone = True
    End if
 
    If (Len([List3]) > 0) Then
        DoCmd.OpenReport stDocName3, acPreview
        bReportDone = True
    End if
 
    If (Len([List4]) > 0) Then
        DoCmd.OpenReport stDocName4, acPreview
        bReportDone = True
    End if
 
    If bReportDone = False Then
        MsgBox "Please select an item from any of the lists provided then press the button", vbCritical, "Warning"
    End If
 
 

[NeoPa]

Tara,

pks00's answer will enable you to run multiple reports (for all lists that have anything selected).
If you only want to run the report for the list just selected then you will need to deselect any other lists first.

BTW To use the Select Case statement where the options are based on different variables, you can use code like this :-

Select Case TRUE
    Case Len(List1)>0
        {code}
    Case Len(List2)>0
        {code}
End Select

Select Case is generally recommended over any complicated If structure as it's more manageable and (generally considered) more readable.

Have fun.

[tara99]

Tara,

pks00's answer will enable you to run multiple reports (for all lists that have anything selected).
If you only want to run the report for the list just selected then you will need to deselect any other lists first.

BTW To use the Select Case statement where the options are based on different variables, you can use code like this :-

Select Case TRUE
    Case Len(List1)>0
        {code}
    Case Len(List2)>0
        {code}
End Select

Select Case is generally recommended over any complicated If structure as it's more manageable and (generally considered) more readable.

Have fun.

Hi Neopa

Can you please explain more what do I have to do/
tnx

[pks00]

Have I got my understanding wrong

Do u want to run all the selected reports or just one from any selected item in any list?

I thought it was the former

[NeoPa]

Hi Neopa

Can you please explain more what do I have to do/
tnx

I will try to answer specific questions but I'm not inclined to do the whole job for you.
If you can explain clearly what it is you need to know or understand I will help if I can.