ListBox Rows Not Displaying Selected State Correctly After Many Requeries

[johnywhy]

this is very weird (and urgent).

when i select rows in a listbox control on a form
, using access vba, some rows behave exactly the opposite of how they're supposed to behave-- they APPEAR unselected when i select them, and selected when i unselect them.

oListBox.Selected(lngRow) = True 

However, when i check their Selected property with VBA they return the expected value (meaning the row Selected value is TRUE if i set it to TRUE, if tho it LOOKS UNselected).

video:
youtu.be/Ae0adXdmT48

It seems that the more times i requery the listbox, the worse the problem gets.

oListBox.Requery 

This problem seems unrelated to the number of times i select rows. Only seems related to multiple requeries. At first, it does not happen. Then with repeated requeries, the problem gets progressively worse.

i'm not using the "Form_" syntax anyplace (which can created unintended instances of forms).

also, this listbox query contains a vba function in a module, which in turn calls the code-behind of another form.

help!

note, i may post this question on other MS Access forums, so plz only answer in one place. thx!

[johnywhy]

Solved.

Problem: when VBA selects all rows in a listbox every time the listbox is requeried, selection behavior gets wonky: some selected rows do not appear selected.

Produces wonky selection behavior:
1. ListBox Where condition changes
2. Requery ListBox
3. Select All ListBox Rows
4. Repeat

Demo of problem:
https://drive.google.com/file/d/0B8F...lh4SDcyUk11bWc

instructions:
https://docs.google.com/document/d/1...avxFRMocvOZ1RY

the fix is to UNselect all rows in the target table before requerying it:

1. ListBox Where condition changes
2. UNselect All ListBox Rows
3. Requery ListBox
4. Select All ListBox Rows
5. Repeat

see debug-fix
https://drive.google.com/file/d/0B8F...3FucTZ0Qm15ekE

i think this might be a Microsoft Access Bug, because the behavior (selected rows appearing unselected) is abnormal.

i'll mark this thread solved, after anybody confirms my fix works.

thx!

(note to moderator: these links are not advertising or spam, they are safe. This thread can be marked solved. -thx)

[zmbd]

For a listbox control, this is indeed something unusual and most likely has to do with some other underlying formatting/calling script.

video:
youtu.be/Ae0adXdmT48

Please understand, this link is blocked for most if not all of the experts that are helping on Bytes from a secured network, such as myself, neither our IT staff nor our employers can afford to have... well... "those" types of videos available, even as an accident; thus, third party image and video sites are allways blocked.

It seems that the more times i requery the listbox, the worse the problem gets.

oListBox.Requery 

This problem seems unrelated to the number of times i select rows. Only seems related to multiple requeries. At first, it does not happen. Then with repeated requeries, the problem gets progressively worse.

<<Mod Mix and Mash>>
also, this listbox query contains a vba function in a module, which in turn calls the code-behind of another form.

Hmmm... it sounds as if the control isn't being really cleared as you had intended. I think we'll need to see the code behind the control to figure out the real issue(s)

i'm not using the "Form_" syntax anyplace (which can created unintended instances of forms).

I don't know where you received this information from; however, that is a myth. I've used this syntax for as long as I can remember without there ever being an issue with "unintended instances" of forms being created.

note, i may post this question on other MS Access forums, so plz only answer in one place. thx!

Sorry, that's not a reasonable request.

You post in a forum, that is where your replies to the question is going to be placed. You post in a dozen forums, you can very well expect to have to go to each forum yourself...

Also, cross posting isn't really considered to be proper edicate. Post to a forum, let them answer. If there is no reply or the replies are not helpful then move on.


From your other posts in p2pwox, MSAccess, TechSupport, amongst others:

i think i solved this.

Problem: when VBA selects all rows in a listbox every time the listbox is requeried, selection behavior gets wonky: some selected rows do not appear selected.

This is not true for all listboxes... it appears to be something particular to your project. I have many listboxes where they are often requeried. None of the currently selected/unselected rows are effected. Infact, the new rowsource record is simply appended to the end of the list (which quite often in code I will select, why add it to the list if the user isn't going to select it for later use ?)

i think this might be a Microsoft Access Bug, because the behavior (selected rows appearing unselected) is abnormal.

No, this isn't a general bug in the Access Software. It is something that is occuring in your application.

[johnywhy]

Yes, my mistake, i do mean ListBoxes. Sorry about that. I would have changed the OP title and body, if i could.

I already provided the code samples you requested.

Not sure if we're talking about the same form syntax issue. The form syntax issue i'm referring to is covered here.

You might disagree that this is a Microsoft bug, but the solution i posted does solve the problem, so this thread can be marked solved.

[zmbd]

Yes, my mistake, i do mean ListBoxes. Sorry about that. I would have changed the OP title and body, if i could.

By the power of the Moderator I wave my fingers.... and presto-chango - no more grids and only a list of things.
(^_^)
(sorry, it's close to lunch and I'm having a most stressful day today; thus, I need a little levity (^_^) )

I already provided the code samples you requested.

I'm sorry, I simply do not see the code that you are referring to, unless you mean those two little orphans in the OP? Or in the links that you have given that I have clearly indicated are not available to many of us that operate from within a secured IT-Environment.

Instead of the third part posts, the code would have to be inserted directly within the thread text.

Not sure if we're talking about the same form syntax issue. The form syntax issue I’m referring to is covered here:

Sorry, I had to remove your link as it was broken/malformed. In any case, I'll have to revisit this syntax to see what is happening. So long as one is only using single instances this really shouldn't be an issue; however, that is a topic for another thread.

You might disagree that this is a Microsoft bug,

In this case, it is not that I personally disagree – that this is not a bug is by definition: in that only your particular case does this condition seem to be occurring, instead of as a general error, then this is not a bug in the software per-say; however, the root cause cannot be determined by what little information you've provided within the available thread.

but the solution i posted does solve the problem, so this thread can be marked solved

Yes it did solve your issue; however, it does leave the original/root cause undiscovered. (^_^)

[johnywhy]

i updated the link referring to form syntax, see post above.

this is not a bug is by definition: in that only your particular case does this condition seem to be occurring, instead of as a general error.

but you don't know that yet.

apologies, i'd have to do a lot of work to paste in the code, because the sample involves tables, forms with behind code, queries, and a code module. it's not just about the code, it's about the whole application.

sorry, not trying to exclude people behind firewalls, but the solution i found works for me. i'm sorry about people behind firewalls.

this problem is solved for me.

is it your policy that you personally, the mod, confirm that all solutions in this forum are correct solutions, before you allow the OP to mark the thread 'solved'?

if this will help, i exported all db objects as text files (including forms, tables, queries, and modules), according to the instructions here. Instructions are also there for how to import these text files into a db, but i can't guarantee it will work.

Here are the text files for the db that fails:

Form_Units.txt

Version =20
VersionRequired =20
Checksum =-468999832
Begin Form
    PopUp = NotDefault
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    AutoCenter = NotDefault
    NavigationButtons = NotDefault
    DividingLines = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    ScrollBars =0
    TabularCharSet =204
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridX =24
    GridY =24
    Width =9120
    DatasheetFontHeight =11
    ItemSuffix =53
    Left =9675
    Top =1710
    Right =18795
    Bottom =8835
    DatasheetGridlinesColor =15062992
    Tag ="FilterTable=Units"
    RecSrcDt = Begin
        0xc19249016dd0e340
    End
    GUID = Begin
        0x6c90a421f33ce645b31ba707404de7d0
    End
    NameMap = Begin
        0x0acc0e550000000042a64ffe62be314bb40a24e56b50b25a00000000546e537a ,
        0xb55ce440000000000000000055006e00690074007300000000000000f7d532fe ,
        0x5b608941bf5165311c3d5ef500000000594fe84fba5ce4400000000000000000 ,
        0x570061007200650068006f007500730065007300000000000000cc7564c10f9c ,
        0xfc4ca1cb742a4e87fe370700000042a64ffe62be314bb40a24e56b50b25a5500 ,
        0x6e006900740049004400000000000000407d525408941546ba2febbadb91c3f0 ,
        0x07000000f7d532fe5b608941bf5165311c3d5ef554004a004300000000000000 ,
        0x673a46815e60574bac1cdcfb7133b09a0700000042a64ffe62be314bb40a24e5 ,
        0x6b50b25a54004a00430000000000000000000000000000000000000000000000 ,
        0x0c000000050000000000000000000000000000000000
    End
    Caption ="AHRI Compliance System"
    DatasheetFontName ="Calibri"
    PrtMip = Begin
        0x6801000068010000680100006801000000000000201c0000e010000001000000 ,
        0x010000006801000000000000a10700000100000001000000
    End
    PrtDevMode = Begin
        0x005398afe33e0000bff99088000000004836410000000000a4e1417afc070000 ,
        0x010400069c007803032f010001000100ea0a6f086400010001002c0102000100 ,
        0x2c01030000004c65747465720007000000036a00000000000000000000000000 ,
        0x2005931900000000000000000000000000000000010000000000000001000000 ,
        0x0200000001000000ffffffff4749533400000000000000000000000044494e55 ,
        0x220020015c031c00cad2f6720000000000000000000000000000000000000000 ,
        0x0000000000000000090000000000000000000100000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x00000000000000000000000001000000000000000000000020010000534d544a ,
        0x00000000100010017b00300046003400310033003000440044002d0031003900 ,
        0x430037002d0037006100620036002d0039003900410031002d00390038003000 ,
        0x4600300033004200320045004500340045007d000000496e70757442696e0046 ,
        0x4f524d534f5552434500524553444c4c00556e69726573444c4c00496e746572 ,
        0x6c656176696e67004f464600496d61676554797065004a5045474d6564004f72 ,
        0x69656e746174696f6e00504f52545241495400436f6c6c617465004f46460052 ,
        0x65736f6c7574696f6e004f7074696f6e3100506170657253697a65004c455454 ,
        0x455200436f6c6f724d6f64650032346270700000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000001c0000005634444d ,
        0x0100000000000000000000000000000000000000
    End
    PrtDevNames = Begin
        0x0800290047000100000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x00000000000000504f525450524f4d50543a0000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x00000000000000000000000000000000000000000000000000000000000000
    End
    AllowDatasheetView =0
    FilterOnLoad =0
    ShowPageMargins =0
    DatasheetAlternateBackColor =16053492
    DatasheetGridlinesColor12 =15062992
    PrtDevModeW = Begin
        0x00004b000000000000506103000000008000000000000000f08a420000000000 ,
        0xd00000d000000000e0584a0000000000feffffffffffffff403a01b1f7070000 ,
        0x01040006dc007803032f010001000100ea0a6f086400010001002c0102000100 ,
        0x2c01030000004c006500740074006500720000000000000077ad80b0f7070000 ,
        0x7098f701000000005001ce0c000000005001ce0c0000000000004f0800000000 ,
        0x5f00000000000000000000000000000000000000010000000000000001000000 ,
        0x0200000001000000ffffffff4749533400000000000000000000000044494e55 ,
        0x220020015c031c00cad2f6720000000000000000000000000000000000000000 ,
        0x0000000000000000090000000000000000000100000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x00000000000000000000000001000000000000000000000020010000534d544a ,
        0x00000000100010017b00300046003400310033003000440044002d0031003900 ,
        0x430037002d0037006100620036002d0039003900410031002d00390038003000 ,
        0x4600300033004200320045004500340045007d000000496e70757442696e0046 ,
        0x4f524d534f5552434500524553444c4c00556e69726573444c4c00496e746572 ,
        0x6c656176696e67004f464600496d61676554797065004a5045474d6564004f72 ,
        0x69656e746174696f6e00504f52545241495400436f6c6c617465004f46460052 ,
        0x65736f6c7574696f6e004f7074696f6e3100506170657253697a65004c455454 ,
        0x455200436f6c6f724d6f64650032346270700000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000001c0000005634444d ,
        0x0100000000000000000000000000000000000000
    End
    PrtDevNamesW = Begin
        0x0400250043000100000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x00000000000050004f0052005400500052004f004d00500054003a0000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x00000000000000000000000000000000000000000000
    End
    NoSaveCTIWhenDisabled =1
    Begin
        Begin Label
            BackStyle =0
            TextAlign =1
            FontSize =18
            ForeColor =-2147483617
            FontName ="Segoe UI"
        End
        Begin CommandButton
            FontSize =11
            FontWeight =400
            ForeColor =-2147483630
            FontName ="Calibri"
            BorderLineStyle =0
        End
        Begin OptionButton
            SpecialEffect =2
            BorderLineStyle =0
            LabelX =230
            LabelY =-30
        End
        Begin CheckBox
            SpecialEffect =2
            BorderLineStyle =0
            LabelX =230
            LabelY =-30
        End
        Begin OptionGroup
            SpecialEffect =3
            BorderLineStyle =0
        End
        Begin TextBox
            FELineBreak = NotDefault
            BorderLineStyle =0
            LabelX =-1800
            FontSize =11
            BorderColor =12632256
            FontName ="Calibri"
            AsianLineBreak =1
        End
        Begin ListBox
            BorderLineStyle =0
            LabelX =-1800
            FontSize =11
            BorderColor =12632256
            FontName ="Calibri"
            AllowValueListEdits =1
            InheritValueList =1
        End
        Begin ComboBox
            BorderLineStyle =0
            LabelX =-1800
            FontSize =11
            BorderColor =12632256
            FontName ="Calibri"
            AllowValueListEdits =1
            InheritValueList =1
        End
        Begin UnboundObjectFrame
            SpecialEffect =2
            OldBorderStyle =1
            ThemeFontIndex =1
            BackThemeColorIndex =1
            BorderThemeColorIndex =1
            BorderShade =65.0
            ForeThemeColorIndex =2
            ForeShade =50.0
            GridlineThemeColorIndex =1
            GridlineShade =65.0
        End
        Begin CustomControl
            OldBorderStyle =1
            BackThemeColorIndex =1
            BorderThemeColorIndex =1
            BorderShade =65.0
            GridlineThemeColorIndex =1
            GridlineShade =65.0
        End
        Begin ToggleButton
            FontSize =11
            FontWeight =400
            ForeColor =-2147483630
            FontName ="Calibri"
            BorderLineStyle =0
        End
        Begin FormHeader
            CanGrow = NotDefault
            Height =660
            BackColor =4874710
            Name ="FormHeader"
            GUID = Begin
                0xeee4270f3e774040b1c6d74015841a7c
            End
            Begin
                Begin Label
                    OverlapFlags =85
                    Left =60
                    Top =60
                    Width =2025
                    Height =525
                    ForeColor =-2147483610
                    Name ="Auto_Title0"
                    Caption ="Run Reports"
                    GUID = Begin
                        0x233be54eece5ff4a8eb561de13838aa9
                    End
                    LayoutCachedLeft =60
                    LayoutCachedTop =60
                    LayoutCachedWidth =2085
                    LayoutCachedHeight =585
                End
            End
        End
        Begin Section
            CanGrow = NotDefault
            Height =6480
            BackColor =11525325
            Name ="Detail"
            GUID = Begin
                0x9cebdf4edf9c8143a0fdab3dc6a13230
            End
            Begin
                Begin ListBox
                    ColumnHeads = NotDefault
                    OverlapFlags =85
                    TextFontCharSet =204
                    MultiSelect =1
                    IMESentenceMode =3
                    ColumnCount =4
                    Left =480
                    Top =1440
                    Width =8088
                    Height =4740
                    BorderColor =13936755
                    Name ="lstUnits"
                    RowSourceType ="Table/Query"
                    RowSource ="SELECT Units.UnitID, [Warehouses].TJC FROM Units INNER JOIN Warehouses ON Units."
                        "TJC=[Warehouses].TJC WHERE (((TJCs()) Like \"*,\" & [Warehouses].TJC & \",*\"));"
                        " "
                    ColumnWidths ="3600;2160;1440;1440"
                    Tag ="Fx=Filtered; UnfilteredAll=True"
                    GUID = Begin
                        0xc2e3428740ab9244b1cadeb2493d5e34
                    End
                    GridlineWidthLeft =0
                    GridlineWidthTop =0
                    GridlineWidthRight =0
                    GridlineWidthBottom =0
                    AllowValueListEdits =0
 
                    LayoutCachedLeft =480
                    LayoutCachedTop =1440
                    LayoutCachedWidth =8568
                    LayoutCachedHeight =6180
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =0
                    Left =480
                    Top =900
                    Width =1920
                    Height =532
                    FontWeight =500
                    Name ="Label47"
                    Caption ="Units"
                    GUID = Begin
                        0x757df33acf4c4f4394939959f2875902
                    End
                    GridlineWidthLeft =0
                    GridlineWidthTop =0
                    GridlineWidthRight =0
                    GridlineWidthBottom =0
                    LayoutCachedLeft =480
                    LayoutCachedTop =900
                    LayoutCachedWidth =2400
                    LayoutCachedHeight =1432
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =4560
                    Top =780
                    TabIndex =1
                    Name ="btnAll"
                    Caption ="All"
                    OnClick ="[Event Procedure]"
                    GUID = Begin
                        0x79ddebaf0cabe742b6677669902e96b8
                    End
 
                    LayoutCachedLeft =4560
                    LayoutCachedTop =780
                    LayoutCachedWidth =6000
                    LayoutCachedHeight =1140
                    WebImagePaddingLeft =2
                    WebImagePaddingTop =2
                    WebImagePaddingRight =1
                    WebImagePaddingBottom =1
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =6480
                    Top =780
                    TabIndex =2
                    Name ="btnNone"
                    Caption ="None"
                    OnClick ="[Event Procedure]"
                    GUID = Begin
                        0x9396c2d828e64946a9688ce7cdc6444a
                    End
 
                    LayoutCachedLeft =6480
                    LayoutCachedTop =780
                    LayoutCachedWidth =7920
                    LayoutCachedHeight =1140
                    WebImagePaddingLeft =2
                    WebImagePaddingTop =2
                    WebImagePaddingRight =1
                    WebImagePaddingBottom =1
                End
            End
        End
        Begin FormFooter
            Visible = NotDefault
            Height =240
            BackColor =15986404
            Name ="FormFooter"
            GUID = Begin
                0xb91452f47d2ce74aa9089cbde328fff1
            End
        End
    End
End
CodeBehindForm
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Compare Database
Option Explicit
 
 
Private Sub btnAll_Click()
    Select_AllListItems lstUnits
End Sub
 
 
Private Sub btnNone_Click()
    Clear_ListSelection lstUnits
End Sub

form_warehouses.txt

Version =20
VersionRequired =20
Checksum =-805133871
Begin Form
    PopUp = NotDefault
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    AutoCenter = NotDefault
    NavigationButtons = NotDefault
    DividingLines = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    ScrollBars =0
    TabularCharSet =204
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridX =24
    GridY =24
    Width =5820
    DatasheetFontHeight =11
    ItemSuffix =53
    Left =3210
    Top =1740
    Right =9030
    Bottom =8385
    DatasheetGridlinesColor =15062992
    Tag ="FilterTable=Hospitals"
    RecSrcDt = Begin
        0xc19249016dd0e340
    End
    GUID = Begin
        0xd83a58df8f612f479175164bc81ab95e
    End
    NameMap = Begin
        0x0acc0e5500000000f7d532fe5b608941bf5165311c3d5ef500000000594fe84f ,
        0xba5ce4400000000000000000570061007200650068006f007500730065007300 ,
        0x000000000000407d525408941546ba2febbadb91c3f007000000f7d532fe5b60 ,
        0x8941bf5165311c3d5ef554004a00430000000000000000000000000000000000 ,
        0x0000000000000c000000050000000000000000000000000000000000
    End
    Caption ="AHRI Compliance System"
    DatasheetFontName ="Calibri"
    PrtMip = Begin
        0x6801000068010000680100006801000000000000201c0000e010000001000000 ,
        0x010000006801000000000000a10700000100000001000000
    End
    PrtDevMode = Begin
        0x005398afe33e0000bff99088000000004836410000000000a4e1417afc070000 ,
        0x010400069c007803032f000001000100ea0a6f086400010001002c0102000100 ,
        0x2c01030000004c65747465720007000000036a00000000000000000000000000 ,
        0x2005931900000000000000000000000000000000010000000000000001000000 ,
        0x0200000001000000ffffffff4749533400000000000000000000000044494e55 ,
        0x220020015c031c00cad2f6720000000000000000000000000000000000000000 ,
        0x0000000000000000090000000000000000000100000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x00000000000000000000000001000000000000000000000020010000534d544a ,
        0x00000000100010017b00300046003400310033003000440044002d0031003900 ,
        0x430037002d0037006100620036002d0039003900410031002d00390038003000 ,
        0x4600300033004200320045004500340045007d000000496e70757442696e0046 ,
        0x4f524d534f5552434500524553444c4c00556e69726573444c4c00496e746572 ,
        0x6c656176696e67004f464600496d61676554797065004a5045474d6564004f72 ,
        0x69656e746174696f6e00504f52545241495400436f6c6c617465004f46460052 ,
        0x65736f6c7574696f6e004f7074696f6e3100506170657253697a65004c455454 ,
        0x455200436f6c6f724d6f64650032346270700000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000001c0000005634444d ,
        0x0100000000000000000000000000000000000000
    End
    PrtDevNames = Begin
        0x0800290047000100000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x00000000000000504f525450524f4d50543a0000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x000000000000000000000000000000
    End
    AllowDatasheetView =0
    FilterOnLoad =0
    ShowPageMargins =0
    DatasheetAlternateBackColor =16053492
    DatasheetGridlinesColor12 =15062992
    PrtDevModeW = Begin
        0x00004b000000000000506103000000002900000000000000f08a420000000000 ,
        0x9c00009c00000000c0024a0000000000feffffffffffffff403a01b1f7070000 ,
        0x01040006dc007803032f000001000100ea0a6f086400010001002c0102000100 ,
        0x2c01030000004c006500740074006500720000000000000077ad80b0f7070000 ,
        0x7098f701000000005001d90b000000005001d90b000000000000a20900000000 ,
        0x6800000000000000000000000000000000000000010000000000000001000000 ,
        0x0200000001000000ffffffff4749533400000000000000000000000044494e55 ,
        0x220020015c031c00cad2f6720000000000000000000000000000000000000000 ,
        0x0000000000000000090000000000000000000100000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x00000000000000000000000001000000000000000000000020010000534d544a ,
        0x00000000100010017b00300046003400310033003000440044002d0031003900 ,
        0x430037002d0037006100620036002d0039003900410031002d00390038003000 ,
        0x4600300033004200320045004500340045007d000000496e70757442696e0046 ,
        0x4f524d534f5552434500524553444c4c00556e69726573444c4c00496e746572 ,
        0x6c656176696e67004f464600496d61676554797065004a5045474d6564004f72 ,
        0x69656e746174696f6e00504f52545241495400436f6c6c617465004f46460052 ,
        0x65736f6c7574696f6e004f7074696f6e3100506170657253697a65004c455454 ,
        0x455200436f6c6f724d6f64650032346270700000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000001c0000005634444d ,
        0x0100000000000000000000000000000000000000
    End
    PrtDevNamesW = Begin
        0x0400250043000100000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x00000000000050004f0052005400500052004f004d00500054003a0000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x00000000000000000000000000000000000000000000
    End
    NoSaveCTIWhenDisabled =1
    Begin
        Begin Label
            BackStyle =0
            TextAlign =1
            FontSize =18
            ForeColor =-2147483617
            FontName ="Segoe UI"
        End
        Begin CommandButton
            FontSize =11
            FontWeight =400
            ForeColor =-2147483630
            FontName ="Calibri"
            BorderLineStyle =0
        End
        Begin OptionButton
            SpecialEffect =2
            BorderLineStyle =0
            LabelX =230
            LabelY =-30
        End
        Begin CheckBox
            SpecialEffect =2
            BorderLineStyle =0
            LabelX =230
            LabelY =-30
        End
        Begin OptionGroup
            SpecialEffect =3
            BorderLineStyle =0
        End
        Begin TextBox
            FELineBreak = NotDefault
            BorderLineStyle =0
            LabelX =-1800
            FontSize =11
            BorderColor =12632256
            FontName ="Calibri"
            AsianLineBreak =1
        End
        Begin ListBox
            BorderLineStyle =0
            LabelX =-1800
            FontSize =11
            BorderColor =12632256
            FontName ="Calibri"
            AllowValueListEdits =1
            InheritValueList =1
        End
        Begin ComboBox
            BorderLineStyle =0
            LabelX =-1800
            FontSize =11
            BorderColor =12632256
            FontName ="Calibri"
            AllowValueListEdits =1
            InheritValueList =1
        End
        Begin Subform
            BorderLineStyle =0
            BorderThemeColorIndex =1
            GridlineThemeColorIndex =1
            GridlineShade =65.0
            BorderShade =65.0
            ShowPageHeaderAndPageFooter =1
        End
        Begin ToggleButton
            FontSize =11
            FontWeight =400
            ForeColor =-2147483630
            FontName ="Calibri"
            BorderLineStyle =0
        End
        Begin FormHeader
            CanGrow = NotDefault
            Height =720
            BackColor =4874710
            Name ="FormHeader"
            GUID = Begin
                0x686d26c44c0fe14fa6e8ba44e89a22de
            End
            Begin
                Begin Label
                    OverlapFlags =85
                    Left =60
                    Top =60
                    Width =2025
                    Height =525
                    ForeColor =-2147483610
                    Name ="Auto_Title0"
                    Caption ="Run Reports"
                    GUID = Begin
                        0xaa3f2542fa202d47a6c7929658ce51f7
                    End
                    LayoutCachedLeft =60
                    LayoutCachedTop =60
                    LayoutCachedWidth =2085
                    LayoutCachedHeight =585
                End
            End
        End
        Begin Section
            CanGrow = NotDefault
            Height =5940
            BackColor =11525325
            Name ="Detail"
            GUID = Begin
                0x271ae52f606d6344bca0886e397f0117
            End
            Begin
                Begin ListBox
                    ColumnHeads = NotDefault
                    OverlapFlags =85
                    TextFontCharSet =204
                    MultiSelect =1
                    IMESentenceMode =3
                    ColumnCount =3
                    Left =483
                    Top =716
                    Width =4807
                    Height =4623
                    BorderColor =13936755
                    Name ="lstWarehouses"
                    RowSourceType ="Table/Query"
                    RowSource ="SELECT [Warehouses].TJC FROM Warehouses; "
                    ColumnWidths ="3600;720;720;720;0"
                    OnClick ="[Event Procedure]"
                    Tag ="Fx=Filtered; UnfilteredAll=False"
                    GUID = Begin
                        0x71fa1286d914c544acc486ec65649d62
                    End
                    GridlineWidthLeft =0
                    GridlineWidthTop =0
                    GridlineWidthRight =0
                    GridlineWidthBottom =0
                    AllowValueListEdits =0
 
                    LayoutCachedLeft =483
                    LayoutCachedTop =716
                    LayoutCachedWidth =5290
                    LayoutCachedHeight =5339
                    Begin
                        Begin Label
                            OverlapFlags =85
                            TextAlign =0
                            Left =480
                            Top =180
                            Width =2025
                            Height =525
                            FontWeight =500
                            Name ="HospitalID_Label"
                            Caption ="Warehouses"
                            GUID = Begin
                                0xe21e99a7aacabf45abc90c7bf8da591f
                            End
                            GridlineWidthLeft =0
                            GridlineWidthTop =0
                            GridlineWidthRight =0
                            GridlineWidthBottom =0
                            LayoutCachedLeft =480
                            LayoutCachedTop =180
                            LayoutCachedWidth =2505
                            LayoutCachedHeight =705
                        End
                    End
                End
            End
        End
        Begin FormFooter
            Visible = NotDefault
            Height =240
            BackColor =15986404
            Name ="FormFooter"
            GUID = Begin
                0xcef0c693f27e8f468cbf4a105bfb8b7f
            End
        End
    End
End
CodeBehindForm
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Compare Database
Option Explicit
 
Dim msItemsSelected As String
 
 
Public Function TJCs() As String
' return string of selected orgs (Warehouses)
    TJCs = Get_CommaString(lstWarehouses)
End Function
 
 
Private Sub lstWarehouses_Click()
    Forms("Units").lstUnits.Requery
    Select_AllListItems Forms("Units").lstUnits, Forms("Units").btnAll
End Sub

Module_Fx.txt

Option Compare Database
Option Explicit
 
 
 
Sub Clear_ListSelection(oList As ListBox)
' clear listbox selection
    PaintOff oList
 
    Dim Itm
    For Each Itm In oList.ItemsSelected
        oList.Selected(Itm) = False
    Next Itm
 
    ScrollToTop oList
    PaintOn oList
End Sub
 
 
Sub PaintOff(oList As ListBox)
' turn off screen updating
    DoCmd.Echo False
    oList.Visible = False
End Sub
 
 
Sub PaintOn(oList As ListBox)
' turn on screen updating
    oList.Visible = True
    DoCmd.Echo True
End Sub
 
 
Function TJCs()
    TJCs = Forms("Warehouses").TJCs
End Function
 
 
Function Get_CommaString(oList As ListBox) As String
' return selected items in listbox as comma-delim string
 
    oList.Requery
    If (oList.ItemsSelected.Count = 0) Then Exit Function
 
    ' get col num
    Dim iCol As Integer
    iCol = 0
 
    ' starting delim
    Dim sList As String
    sList = ","
 
    Dim vSelectionNumber As Variant, vListItem As Variant, sSelectedItem As String
    For Each vSelectionNumber In oList.ItemsSelected
        vListItem = oList.Column(iCol, vSelectionNumber)
        sList = sList & vListItem & ","
    Next vSelectionNumber
 
    ' hack leading and trailing comma
    sList = Mid$(sList, 2, Len(sList) - 2)
    Get_CommaString = sList
End Function
 
 
Sub Select_AllListItems(oList As ListBox, Optional btnSafe As CommandButton)
' select all items in list
    If TypeName(btnSafe) <> "Nothing" Then btnSafe.SetFocus
    PaintOff oList
 
    Dim lngRow As Long
    For lngRow = 0 To oList.ListCount - 1
        oList.Selected(lngRow) = True
    Next
 
    ScrollToTop oList
    PaintOn oList
End Sub
 
 
Sub ScrollToTop(oListBox As ListBox)
' for multiselect listboxes
    oListBox.Selected(0) = True
End Sub

Query_~sq_cCopy Of Hospitals~sq_clstHospitals.txt

dbMemo "SQL" ="SELECT Hospitals.TJC\015\012FROM Hospitals;\015\012"
dbMemo "Connect" =""
dbBoolean "ReturnsRecords" ="-1"
dbInteger "ODBCTimeout" ="60"
dbText "KeepLocal" ="T"
Begin
End
 

Query_~sq_cCopy Of Units~sq_clstUnits.txt

dbMemo "SQL" ="SELECT Units.UnitID, Hospitals.TJC\015\012FROM Units INNER JOIN Hospitals ON Uni"
    "ts.[TJC] = Hospitals.TJC\015\012WHERE (((TJCs()) Like \"*,\" & [Hospitals].[TJC]"
    " & \",*\"));\015\012"
dbMemo "Connect" =""
dbBoolean "ReturnsRecords" ="-1"
dbInteger "ODBCTimeout" ="60"
dbText "KeepLocal" ="T"
Begin
End
 

Query_~sq_cUnits~sq_clstUnits.txt

dbMemo "SQL" ="SELECT Units.UnitID, [Warehouses].TJC\015\012FROM Units INNER JOIN Warehouses ON"
    " Units.TJC=[Warehouses].TJC\015\012WHERE (((TJCs()) Like \"*,\" & [Warehouses].T"
    "JC & \",*\"));\015\012"
dbMemo "Connect" =""
dbBoolean "ReturnsRecords" ="-1"
dbInteger "ODBCTimeout" ="60"
dbText "KeepLocal" ="T"
Begin
End
 

Table_Units.txt

"UnitID","TJC","TJCdbl"
"1ne-gil",4546.00,4546.00
"1su",4676.00,4676.00
"2an-ms",10076.00,10076.00
"2bn-onc",10076.00,10076.00
"2cn-med",10076.00,10076.00
"2d",9920.00,9920.00
"2dn-o",10076.00,10076.00
"2e-ms",10076.00,10076.00
"2nd",2868.00,2868.00
"2neb-icus",4546.00,4546.00
"2ne-pacu",4546.00,4546.00
"2ne-surg",4546.00,4546.00
"2n-icum",4546.00,4546.00
"2n-ms",10161.00,10161.00
"2s-ms",10076.00,10076.00
"2sne-ss-if",4546.00,4546.00
"2s-pacu",4546.00,4546.00
"2s-surg",4546.00,4546.00
"2w-ms",2720.00,2720.00
"3an-t",10076.00,10076.00
"3bn-vp",10076.00,10076.00
"3c-ar",2720.00,2720.00
"3cn-n-s",10076.00,10076.00
"3dn-ar",10076.00,10076.00
"3e-sd",10076.00,10076.00
"3ne-ld",4546.00,4546.00
"3ne-nicu",4546.00,4546.00
"3n-t",4546.00,4546.00
"3rd",2868.00,2868.00
"3s-t",10076.00,10076.00
"3w-t",2720.00,2720.00
"4e-brges",2720.00,2720.00
"4e-ms",10076.00,10076.00
"4mc",4676.00,4676.00
"4mso",4676.00,4676.00
"4mst",4676.00,4676.00
"4ne-mb",4546.00,4546.00
"4n-ms",10161.00,10161.00
"4s-ms",4546.00,4546.00
"4s-t",4546.00,4546.00
"4s-t",10076.00,10076.00
"4w-tcu",2720.00,2720.00
"5c-mb",2720.00,2720.00
"5e-ld",2720.00,2720.00
"5n-ar-pt-ot",4546.00,4546.00
"5ne-ms",4546.00,4546.00
"5n-ms",10161.00,10161.00
"5s-ms",4546.00,4546.00
"5t-ms",10161.00,10161.00
"6ne-onc",4546.00,4546.00
"6s-t",4546.00,4546.00
"7ne-ped",4546.00,4546.00
"ais",2868.00,2868.00
"angio",4676.00,4676.00
"aou",4676.00,4676.00
"bb",4676.00,4676.00
"bb-lab",4546.00,4546.00
"bc",4546.00,4546.00
"bdxc",10161.00,10161.00
"bl-dn",4546.00,4546.00
"brges-op",2720.00,2720.00
"card",2720.00,2720.00
"card",10161.00,10161.00
"card",470962.00,470962.00
"card-pulm",2868.00,2868.00
"card-rehab",2868.00,2868.00
"card-stl",4676.00,4676.00
"cardx",4546.00,4546.00
"car-pul",4676.00,4676.00
"cc",4546.00,4546.00
"ccc",2720.00,2720.00
"ccl",4546.00,4546.00
"ccl",4676.00,4676.00
"ccl",10076.00,10076.00
"ccl",10161.00,10161.00
"ccu",2868.00,2868.00
"cdou",4676.00,4676.00
"cdu",2720.00,2720.00
"cdu-op",2720.00,2720.00
"chdp",10161.00,10161.00
"cl",9920.00,9920.00
"cl",470962.00,470962.00
"clin",447939.00,447939.00
"coup",9920.00,9920.00
"cp",2720.00,2720.00
"cp",447939.00,447939.00
"cr",10076.00,10076.00
"c-rehab",10161.00,10161.00
"c-rehab",470962.00,470962.00
"cs",10161.00,10161.00
"cs-mri",4546.00,4546.00
"cto",447939.00,447939.00
"cv",10076.00,10076.00
"cvi",470962.00,470962.00
"cvor",470962.00,470962.00
"cvu",470962.00,470962.00
"dadc",4676.00,4676.00
"dcc",470962.00,470962.00
"dial",10161.00,10161.00
"di-pro",2868.00,2868.00
"dou",470962.00,470962.00
"ds",10161.00,10161.00
"ed",2720.00,2720.00
"ed",2868.00,2868.00
"ed",4546.00,4546.00
"ed",4676.00,4676.00
"ed",9920.00,9920.00
"ed",10076.00,10076.00
"ed",10161.00,10161.00
"ed",470962.00,470962.00
"edo",4676.00,4676.00
"edou",4676.00,4676.00
"edou-cdou",4676.00,4676.00
"edx",10076.00,10076.00
"endo-gil",10161.00,10161.00
"eng",2868.00,2868.00
"gi-bl",2720.00,2720.00
"gil",9920.00,9920.00
"gil",10076.00,10076.00
"gil",470962.00,470962.00
"gilab",4676.00,4676.00
"gyn",10161.00,10161.00
"hair",9920.00,9920.00
"hc",2868.00,2868.00
"hc",4546.00,4546.00
"hc",447939.00,447939.00
"hh",4676.00,4676.00
"hr-ob",470962.00,470962.00
"hskp",2868.00,2868.00
"ic",10076.00,10076.00
"iccu-2",10161.00,10161.00
"iccu-7",10161.00,10161.00
"icu",4676.00,4676.00
"icu",9920.00,9920.00
"icu",470962.00,470962.00
"icu-b",10161.00,10161.00
"img",447939.00,447939.00
"img",470962.00,470962.00
"inf",447939.00,447939.00
"int",447939.00,447939.00
"ir",10076.00,10076.00
"ir",470962.00,470962.00
"ir-spl",2720.00,2720.00
"iru",2720.00,2720.00
"it-4mso",4676.00,4676.00
"it-sds",4676.00,4676.00
"lab",2720.00,2720.00
"lab",2868.00,2868.00
"lab",10076.00,10076.00
"lab",470962.00,470962.00
"lab-bb",10161.00,10161.00
"lab-opd",4676.00,4676.00
"lc",10161.00,10161.00
"ld",2868.00,2868.00
"ld",4676.00,4676.00
"ld",9920.00,9920.00
"ld",10076.00,10076.00
"ld",10161.00,10161.00
"ld",470962.00,470962.00
"mb",10161.00,10161.00
"mi",10076.00,10076.00
"mi-ir",4546.00,4546.00
"m-or",10161.00,10161.00
"mri",2720.00,2720.00
"mri",10076.00,10076.00
"mri",470962.00,470962.00
"mri-rad",10161.00,10161.00
"ms2",470962.00,470962.00
"ms3",470962.00,470962.00
"ms4",470962.00,470962.00
"ms-e",9920.00,9920.00
"ms-w",9920.00,9920.00
"neurodx",2720.00,2720.00
"nicu",4676.00,4676.00
"nicu",9920.00,9920.00
"nicu",10161.00,10161.00
"nicu",470962.00,470962.00
"nicu-nsy",10076.00,10076.00
"ni-us",4546.00,4546.00
"ns1",6499.00,6499.00
"ns2",6499.00,6499.00
"ns3",6499.00,6499.00
"nsy",2868.00,2868.00
"nsy",470962.00,470962.00
"nutr",2868.00,2868.00
"odc",10076.00,10076.00
"onc",470962.00,470962.00
"opdx",4546.00,4546.00
"opr",10076.00,10076.00
"opt",470962.00,470962.00
"or",2720.00,2720.00
"ortho",9920.00,9920.00
"os",4546.00,4546.00
"os",4676.00,4676.00
"os",470962.00,470962.00
"pacu",2720.00,2720.00
"pacu",2868.00,2868.00
"pacu",9920.00,9920.00
"pacu",10076.00,10076.00
"pacu",10161.00,10161.00
"pacu",470962.00,470962.00
"pal",2868.00,2868.00
"pava",10076.00,10076.00
"pavb",10076.00,10076.00
"pavc",10076.00,10076.00
"pcu-6",10161.00,10161.00
"pcu-7",10161.00,10161.00
"ped",4676.00,4676.00
"ped",9920.00,9920.00
"ped",10161.00,10161.00
"ped",470962.00,470962.00
"peds",2868.00,2868.00
"pharm",2868.00,2868.00
"pharm",4546.00,4546.00
"pharm",4676.00,4676.00
"phm",2720.00,2720.00
"phm",10076.00,10076.00
"phm",10161.00,10161.00
"phm",447939.00,447939.00
"phm",470962.00,470962.00
"picu",470962.00,470962.00
"pl",2720.00,2720.00
"pl-abg",10076.00,10076.00
"pol",10161.00,10161.00
"pom",4676.00,4676.00
"pp",10076.00,10076.00
"pp",470962.00,470962.00
"pr",10076.00,10076.00
"ptot-ohc",4546.00,4546.00
"pt-ots",4676.00,4676.00
"pt-ot-sp",2720.00,2720.00
"pt-wd",10161.00,10161.00
"ql",447939.00,447939.00
"rad",470962.00,470962.00
"rad-ct",10161.00,10161.00
"rad-dx",10161.00,10161.00
"rad-mri-us-nm",4676.00,4676.00
"rad-nm",10161.00,10161.00
"rad-onc",10161.00,10161.00
"rad-us",10161.00,10161.00
"rd-oc",447939.00,447939.00
"rehab-e",2868.00,2868.00
"rehb-svc",10161.00,10161.00
"resbro",4676.00,4676.00
"res-pulm",10161.00,10161.00
"rr",4676.00,4676.00
"rs",9920.00,9920.00
"rv-el",2868.00,2868.00
"rv-wp",2868.00,2868.00
"scvi",10076.00,10076.00
"scvr",10076.00,10076.00
"sds",2720.00,2720.00
"sds",4676.00,4676.00
"sds",9920.00,9920.00
"sds",470962.00,470962.00
"s-lab",10161.00,10161.00
"spc",2868.00,2868.00
"spec-rad",10161.00,10161.00
"ss",10076.00,10076.00
"ss",10161.00,10161.00
"surg",2868.00,2868.00
"surg",4676.00,4676.00
"surg",9920.00,9920.00
"surg",10076.00,10076.00
"surg-m",470962.00,470962.00
"tcc",4676.00,4676.00
"tele",9920.00,9920.00
"umc",447939.00,447939.00
"vasdx",4546.00,4546.00
"vroc",4546.00,4546.00
"wc",470962.00,470962.00
"whc",2868.00,2868.00
"whc",9920.00,9920.00
"wh-han",4676.00,4676.00
"wh-her",4676.00,4676.00
"wnd-c",470962.00,470962.00
"ww-bc",4676.00,4676.00
 

Table_Warehouses.txt

"TJC"
2720.00
2868.00
4546.00
4676.00
6499.00
9920.00
10076.00
10161.00
447939.00
470962.00
 

After importing:
-Open the Warehouse form first.

-Then open the Units form.

-Arrange the forms side-by-side.

-Then click inside the Warehouses listbox repeatedly, to select and deselect rows randomly. As you click, you’ll see the Units list update, and all rows get selected. That’s the correct behavior.

-After about 20 clicks, you’ll see the Units list begin to display weirdly. Sometimes, it will appear empty. Sometimes, it will update, but nothing will get selected.

-View the VBA modules to understand how it works.

-You can comment out the echo, .visible, and scrollToTop code. On the developer’s computer, this will not prevent the display corruption.

Let me know if you are able to import the files above, and i will send you the text files for the solution.

[zmbd]

well... that will take a little bit to digest. (^_^)
we really only need the code that directly affects the listbox.

-

is it your policy that you personally, the mod, confirm that all solutions in this forum are correct solutions, before you allow the OP to mark the thread 'solved'?

Moderators can see what has been done and we peer review so never-fear, things are rarely just "done" without someone following-up.

The reasons I reset your post from being best answer:
1) The root cause hasn't been determined. This is the primary reason. Without establishing the root cause, it is difficult to determine if your own solution is actually the best.

2) Reporting an unconfirmed bug in the software as part of your solution. This more of a contributing/supporting factor - unless some other supporting information becomes available to confirm this as a software glitch.

[johnywhy]

i didn't "report" a bug, it just seems to be a bug to me.

unless some other supporting information becomes available to confirm this as a software glitch.

I believe my problem and solution, when compared, support the bug hypothesis, but you can judge for yourself.