Subform filter not working

[Becker]

I have a combo box with a list a values that when picked the form should filter to show the corresponding record from a table. Everything works fine when I open up the form by itself. However, I want this form to be a subform but when I put it in another form the filters quit working. Here is the code for the filter.

Private Sub finditem_AfterUpdate()
Dim strFilter As String, strOldFilter As String
    strOldFilter = Me.Filter
    If Me!finditem > "" Then _
        strFilter = strFilter & _
                    " AND ([Chemical] Like '" & _
                    Me!finditem & "*')"
    If strFilter > "" Then strFilter = Mid(strFilter, 6)
    If strFilter <> strOldFilter Then
        Me.Filter = strFilter
        Me.FilterOn = (strFilter > "")
    End If
End Sub

[zmbd]

Becker,

Replace the "Me" identifiers with the form's name (lines 3, 7, 10, etc...)

You'll find that forms that work fine by themselves with a Me reference will often break when used as a subform. I've found that replaceing the Me with the form's actual name often fixes this issue.

-z

[Becker]

I changed the code to

Private Sub finditem_AfterUpdate()
Dim strFilter As String, strOldFilter As String
    strOldFilter = Me.Filter
    If Forms!orderhistory!finditem > "" Then _
        strFilter = strFilter & _
                    " AND ([Chemical] Like '" & _
                    Forms!orderhistory!finditem & "*')"
    If strFilter > "" Then strFilter = Mid(strFilter, 6)
    If strFilter <> strOldFilter Then
        Forms!orderhistory.Filter = strFilter
        Forms!orderhistory.FilterOn = (strFilter > "")
    End If
End Sub

This doesn't seem to work. It says that it cannot find the form. I have this subform in another form with the exact same code I gave first and it works. Just this one doesn't work.

[ariful alam]

you can embed a macro having "requery" action in the "onchange" event of the combo box. this will requery the records of the sub-form every time when you change the value of the combo box.

[NeoPa]

Are you changing the form that is being filtered? Me only refers to the form that is associated with the module the code is running within. If you're referring to any other form then Me will simply be a wrong reference.

Otherwise, the Me reference should work fine.

[Becker]

It is the subform that is being filtered. It just happens to be viewed from within another form so me should work. Like I said if I open the subform by itself then the filter works, but if I open the main form to view the subform then the filter no longer works.

This is actually happening with both subforms on this main form.

[NeoPa]

Ariful,

What are you referring to? It doesn't appear to be anything in this thread.

I hope you're not encouraging the use of macros in an Access project? That is a very clumsy approach, and it certainly doesn't fit this question. MS push it because it makes their lives easier. There is no discernable reason why any expert should ever encourage such an approach, which is known to cause Access projects so many unnecessary problems (It is, after all, a severeley restricted approach to logic expression and development).

[NeoPa]

Becker:
It is the subform that is being filtered. It just happens to be viewed from within another form so me should work.

You fail to make it clear where the code is housed. That is the crux of the point I was making and I cannot proceed without an understanding of the situation, I'm afraid.

[Becker]

I have frmorder where users can go to place an order. On that same form is a subform "orderhistory" where they can scroll through past orders as they create new ones on the main form. On the subform they choose an item from a combo box. In the after update event on the combo box on the subform I have the following code.

Dim strFilter As String, strOldFilter As String
    strOldFilter = Me.Filter
    If Me!finditem > "" Then _
        strFilter = strFilter & _
                    " AND ([Chemical] Like '" & _
                    Me!finditem & "*')"
    If strFilter > "" Then strFilter = Mid(strFilter, 6)
    If strFilter <> strOldFilter Then
        Me.Filter = strFilter
        Me.FilterOn = (strFilter > "")
    End If

This code should filter the subform so that as they scroll through old records they only see the records for the item they selected.

If I open the subform by itself then the filter works. If I open the main form and then use the combo box and filter in the subform it no longer works. The combo box and code both lie within the subform. Everything that the code would effect lies within the subform. I apologize for me explaining skills. I hope this makes things more clear. Thanks.

[NeoPa]

That's now Crystal Becker.

I'm surprised only by the facts as you describe them. I would not expect this code to work any less effectively when run from a subform than it would when run from a main form. If it had references to the Forms collection then that wouldn't surprise me, but references to Me always refer to the associated form, and the form will have Filter and FilterOn properties both when run as a Main Form as well as a Sub-Form. I'm afraid I see nothing that explains the behaviour you describe. In your position I'd be interested in seeing exactly what's happening where. Not something I can easily help with from a distance though, I'm afraid.

PS. I don't imagine something as fundamental as this is version dependent. I use 2003 but I doubt later versions would change something as fundamental as this.

[Becker]

I am very new at access (taught myself 10 weeks ago) and am so confused by this. The form filter works well alone and well in another form but not in this form. I even started over and recreated the form and it still doesn't work. I guess I will just have to play around with it some more. Thanks for the time and trying though.

[zmbd]

Becker,
I am suspecting that there must be something funky with the parent/child.

In the PARENT form in the ONLOAD event place the following code:

Option Compare Database
Option Explicit
 
Private Sub Form_Load()
 
'<<<<<COPY THIS TO THE ONLOAD EVENT OF THE PARENT FORM!
'<<<<<REMOVE AFTER TROUBLE SHOOTING
'<<<<<Start the copy here:
Dim zctrlgrp As Controls
Dim zctrl As Control
Dim zprptygrp As Properties
Dim zprpty As Property
Dim zstr As String
Dim zfile As String
'
On Error GoTo zerror
'
'Open a text file for output
zfile = Environ("userprofile")
zfile = zfile & "\z_debugtext.txt"
Open zfile For Append As #1
'
'Get the properties for the the main form:
Print #1, "<Parent Form>" & vbCrLf
'
Set zctrlgrp = Me.Controls
Set zprptygrp = Me.Properties
'
'
Print #1, "Properties for Main Form: " & Me.Name
For Each zprpty In zprptygrp
    Print #1, "Prpty Name: " & zprpty.Name
    Print #1, "      Value: " & Nz(zprpty.Value, "(null)")
Next zprpty
Print #1, "·····································································" & vbCrLf
'
Print #1, ">Search for subforms and print their properties" & vbCrLf
'
'Let's look for subforms and list their properties
For Each zctrl In zctrlgrp
    If zctrl.ControlType = 112 Then
        zctrl.SetFocus
        Set zprptygrp = zctrl.Properties
        Print #1, "---------------------------------------------------"
        Print #1, "SubForm Name: " & zctrl.Name
        For Each zprpty In zprptygrp
            Print #1, "Prpty Name: " & zprpty.Name
            Print #1, "      Value: " & Nz(zprpty.Value, "(null)")
        Next zprpty
    End If
Next zctrl
Print #1, "·····································································"
'
Set zprptygrp = Nothing
Set zctrlgrp = Nothing
Close #1
MsgBox "Please locate and open the following file:" & vbCrLf & _
    zfile & vbCrLf & _
    "Post the contents to the forum you found this code on." & vbCrLf & _
    "-z"
Exit Sub
zerror:
Debug.Print "#error - resuming: " & Err.Description
Resume Next
'
'<<<<<<
'<<<<<<END THE COPY HERE
End Sub

This code should create at text file named "z_debugtext.txt" in the root of your user folder with the properties of the parent form and and subforms.

As there will be hundreds of lines in the file... just upload the text file.

The only other option is to zip and upload the DB.

-z

[Becker]

Although not code, here is the contents of the file in the code brackets, for simplicities sake.

·····································································
<Parent Form> 
 
Properties for Main Form: ordering chemicals 
Prpty Name: RecordSource 
      Value: Ordering Information 
Prpty Name: Caption 
      Value:  
Prpty Name: PopUp 
      Value: False 
Prpty Name: Modal 
      Value: False 
Prpty Name: DisplayOnSharePointSite 
      Value: 1 
Prpty Name: DefaultView 
      Value: 0 
Prpty Name: ViewsAllowed 
      Value: 0 
Prpty Name: AllowFormView 
      Value: True 
Prpty Name: AllowDatasheetView 
      Value: False 
Prpty Name: AllowPivotTableView 
      Value: False 
Prpty Name: AllowPivotChartView 
      Value: False 
Prpty Name: AllowLayoutView 
      Value: True 
Prpty Name: Picture 
      Value: (none) 
Prpty Name: PictureTiling 
      Value: False 
Prpty Name: PictureAlignment 
      Value: 2 
Prpty Name: PictureType 
      Value: 0 
Prpty Name: PictureSizeMode 
      Value: 0 
Prpty Name: Width 
      Value: 26055 
Prpty Name: AutoCenter 
      Value: False 
Prpty Name: AutoResize 
      Value: True 
Prpty Name: FitToScreen 
      Value: True 
Prpty Name: BorderStyle 
      Value: 2 
Prpty Name: RecordSelectors 
      Value: False 
Prpty Name: NavigationButtons 
      Value: False 
Prpty Name: NavigationCaption 
      Value:  
Prpty Name: DividingLines 
      Value: False 
Prpty Name: ScrollBars 
      Value: 3 
Prpty Name: ControlBox 
      Value: False 
Prpty Name: CloseButton 
      Value: False 
Prpty Name: MinButton 
      Value: False 
Prpty Name: MaxButton 
      Value: False 
Prpty Name: MinMaxButtons 
      Value: 0 
Prpty Name: Moveable 
      Value: False 
Prpty Name: SplitFormSize 
      Value: 0 
Prpty Name: SplitFormOrientation 
      Value: 0 
Prpty Name: SplitFormSplitterBar 
      Value: False 
Prpty Name: SplitFormDatasheet 
      Value: 0 
Prpty Name: SplitFormPrinting 
      Value: 0 
Prpty Name: SaveSplitterBarPosition 
      Value: False 
Prpty Name: SubdatasheetExpanded 
      Value: False 
Prpty Name: SubdatasheetHeight 
      Value: 0 
Prpty Name: GridX 
      Value: 24 
Prpty Name: GridY 
      Value: 24 
Prpty Name: LayoutForPrint 
      Value: False 
Prpty Name: Orientation 
      Value: 0 
Prpty Name: RecordsetType 
      Value: 0 
Prpty Name: FetchDefaults 
      Value: True 
Prpty Name: Filter 
      Value: ([Chemical] Like '2" rack bar*') 
Prpty Name: FilterOn 
      Value: False 
Prpty Name: FilterOnLoad 
      Value: False 
Prpty Name: OrderBy 
      Value:  
Prpty Name: OrderByOn 
      Value: False 
Prpty Name: OrderByOnLoad 
      Value: True 
Prpty Name: DataEntry 
      Value: False 
Prpty Name: AllowAdditions 
      Value: True 
Prpty Name: AllowDeletions 
      Value: True 
Prpty Name: AllowEdits 
      Value: True 
Prpty Name: AllowFilters 
      Value: True 
Prpty Name: OnCurrent 
      Value:  
Prpty Name: OnCurrentEmMacro 
      Value:  
Prpty Name: OnLoad 
      Value: [Event Procedure] 
Prpty Name: OnLoadEmMacro 
      Value:  
Prpty Name: OnClick 
      Value:  
Prpty Name: OnClickEmMacro 
      Value:  
Prpty Name: AfterUpdate 
      Value:  
Prpty Name: AfterUpdateEmMacro 
      Value:  
Prpty Name: BeforeUpdate 
      Value:  
Prpty Name: BeforeUpdateEmMacro 
      Value:  
Prpty Name: BeforeInsert 
      Value:  
Prpty Name: BeforeInsertEmMacro 
      Value:  
Prpty Name: AfterInsert 
      Value:  
Prpty Name: AfterInsertEmMacro 
      Value:  
Prpty Name: BeforeDelConfirm 
      Value:  
Prpty Name: BeforeDelConfirmEmMacro 
      Value:  
Prpty Name: OnDelete 
      Value:  
Prpty Name: OnDeleteEmMacro 
      Value:  
Prpty Name: AfterDelConfirm 
      Value:  
Prpty Name: AfterDelConfirmEmMacro 
      Value:  
Prpty Name: OnDirty 
      Value:  
Prpty Name: OnDirtyEmMacro 
      Value:  
Prpty Name: OnGotFocus 
      Value:  
Prpty Name: OnGotFocusEmMacro 
      Value:  
Prpty Name: OnLostFocus 
      Value:  
Prpty Name: OnLostFocusEmMacro 
      Value:  
Prpty Name: OnDblClick 
      Value:  
Prpty Name: OnDblClickEmMacro 
      Value:  
Prpty Name: OnMouseDown 
      Value:  
Prpty Name: OnMouseDownEmMacro 
      Value:  
Prpty Name: OnMouseUp 
      Value:  
Prpty Name: OnMouseUpEmMacro 
      Value:  
Prpty Name: OnMouseMove 
      Value:  
Prpty Name: OnMouseMoveEmMacro 
      Value:  
Prpty Name: OnKeyUp 
      Value:  
Prpty Name: OnKeyUpEmMacro 
      Value:  
Prpty Name: OnKeyDown 
      Value:  
Prpty Name: OnKeyDownEmMacro 
      Value:  
Prpty Name: OnKeyPress 
      Value:  
Prpty Name: OnKeyPressEmMacro 
      Value:  
Prpty Name: OnUndo 
      Value:  
Prpty Name: OnUndoEmMacro 
      Value:  
Prpty Name: OnOpen 
      Value: [Event Procedure] 
Prpty Name: OnOpenEmMacro 
      Value:  
Prpty Name: OnClose 
      Value: [Event Procedure] 
Prpty Name: OnCloseEmMacro 
      Value:  
Prpty Name: OnResize 
      Value:  
Prpty Name: OnResizeEmMacro 
      Value:  
Prpty Name: OnActivate 
      Value:  
Prpty Name: OnActivateEmMacro 
      Value:  
Prpty Name: OnDeactivate 
      Value:  
Prpty Name: OnDeactivateEmMacro 
      Value:  
Prpty Name: OnUnload 
      Value:  
Prpty Name: OnUnloadEmMacro 
      Value:  
Prpty Name: OnError 
      Value:  
Prpty Name: OnErrorEmMacro 
      Value:  
Prpty Name: OnMouseWheel 
      Value:  
Prpty Name: MouseWheelEmMacro 
      Value:  
Prpty Name: OnFilter 
      Value:  
Prpty Name: OnFilterEmMacro 
      Value:  
Prpty Name: OnApplyFilter 
      Value:  
Prpty Name: OnApplyFilterEmMacro 
      Value:  
Prpty Name: OnTimer 
      Value:  
Prpty Name: OnTimerEmMacro 
      Value:  
Prpty Name: TimerInterval 
      Value: 0 
Prpty Name: OnSelectionChange 
      Value:  
Prpty Name: SelectionChangeEmMacro 
      Value:  
Prpty Name: BeforeRender 
      Value:  
Prpty Name: BeforeRenderEmMacro 
      Value:  
Prpty Name: AfterFinalRender 
      Value:  
Prpty Name: AfterFinalRenderEmMacro 
      Value:  
Prpty Name: AfterRender 
      Value:  
Prpty Name: AfterRenderEmMacro 
      Value:  
Prpty Name: AfterLayout 
      Value:  
Prpty Name: AfterLayoutEmMacro 
      Value:  
Prpty Name: OnConnect 
      Value:  
Prpty Name: OnConnectEmMacro 
      Value:  
Prpty Name: OnDisconnect 
      Value:  
Prpty Name: OnDisconnectEmMacro 
      Value:  
Prpty Name: BeforeQuery 
      Value:  
Prpty Name: BeforeQueryEmMacro 
      Value:  
Prpty Name: OnQuery 
      Value:  
Prpty Name: QueryEmMacro 
      Value:  
Prpty Name: OnDataChange 
      Value:  
Prpty Name: DataChangeEmMacro 
      Value:  
Prpty Name: OnDataSetChange 
      Value:  
Prpty Name: DataSetChangeEmMacro 
      Value:  
Prpty Name: OnCmdExecute 
      Value:  
Prpty Name: CommandExecuteEmMacro 
      Value:  
Prpty Name: OnCmdBeforeExecute 
      Value:  
Prpty Name: CommandBeforeExecuteEmMacro 
      Value:  
Prpty Name: OnCmdEnabled 
      Value:  
Prpty Name: CommandEnabledEmMacro 
      Value:  
Prpty Name: OnCmdChecked 
      Value:  
Prpty Name: CommandCheckedEmMacro 
      Value:  
Prpty Name: OnViewChange 
      Value:  
Prpty Name: ViewChangeEmMacro 
      Value:  
Prpty Name: OnPivotTableChange 
      Value:  
Prpty Name: PivotTableChangeEmMacro 
      Value:  
Prpty Name: BeforeScreenTip 
      Value:  
Prpty Name: BeforeScreenTipEmMacro 
      Value:  
Prpty Name: Cycle 
      Value: 0 
Prpty Name: RecordLocks 
      Value: 0 
Prpty Name: RibbonName 
      Value:  
Prpty Name: Toolbar 
      Value:  
Prpty Name: ShortcutMenu 
      Value: True 
Prpty Name: MenuBar 
      Value:  
Prpty Name: ShortcutMenuBar 
      Value:  
Prpty Name: HelpFile 
      Value:  
Prpty Name: HelpContextId 
      Value: 0 
Prpty Name: HasModule 
      Value: True 
Prpty Name: UseDefaultPaperSize 
      Value: False 
Prpty Name: FastLaserPrinting 
      Value: True 
Prpty Name: Tag 
      Value:  
Prpty Name: PaletteSource 
      Value: (Default) 
Prpty Name: KeyPreview 
      Value: False 
Prpty Name: AllowEditing 
      Value: True 
Prpty Name: DefaultEditing 
      Value: 2 
Prpty Name: AllowUpdating 
      Value: 0 
Prpty Name: RowHeight 
      Value: -1 
Prpty Name: DatasheetFontName 
      Value: Calibri 
Prpty Name: DatasheetFontHeight 
      Value: 11 
Prpty Name: DatasheetFontWeight 
      Value: 400 
Prpty Name: DatasheetFontItalic 
      Value: False 
Prpty Name: DatasheetFontUnderline 
      Value: False 
Prpty Name: DatasheetGridlinesBehavior 
      Value: 3 
Prpty Name: DatasheetGridlinesColor 
      Value: 15062992 
Prpty Name: DatasheetCellsEffect 
      Value: 0 
Prpty Name: DatasheetForeColor 
      Value: 0 
Prpty Name: ShowGrid 
      Value: True 
Prpty Name: DatasheetBackColor 
      Value: 16777215 
Prpty Name: DatasheetAlternateBackColor 
      Value: 16053492 
Prpty Name: DatasheetBorderLineStyle 
      Value: 1 
Prpty Name: HorizontalDatasheetGridlineStyle 
      Value: 1 
Prpty Name: VerticalDatasheetGridlineStyle 
      Value: 1 
Prpty Name: DatasheetColumnHeaderUnderlineStyle 
      Value: 1 
Prpty Name: Hwnd 
      Value: 7078650 
Prpty Name: Count 
      Value: 32 
Prpty Name: LogicalPageWidth 
      Value: 11520 
Prpty Name: Visible 
      Value: True 
Prpty Name: Painting 
      Value: True 
Prpty Name: PrtMip 
      Value: U U U U   ? ?   U   ?    
Prpty Name: PrtDevMode 
      Value:                 ????c???d?? ???                         E ??        ??"?????              T                                                                                                                                                                                                                                                        ? ??  ?HP LaserJet P2050 Series PCL6 ?????????E??????????????????e???????e????????????e????????????g?????????????????????????????????????????????????????????????????????????????????????????n?????????e???e?F?????n???????????????????x??????????R?????????g?????????O????e????????????????????????????g??????e???????o?????????d??e????????????s????T????????????n?????????????p??e????????????d??e????????????????o????????????s?????????????????????????????????N???????????????N????????p????2?????????e??????????a?????????????????????????????6??????????e??????g???????????????e?????????????????????????????????e???????????e??????????????????????l??????????g??e????????r??e???????????????e???????????b???????????s?????????????????????????????????????????????E????????????????E???????r???????????????e????????t???????????????????????????????e1??????????????????????????????s????E????????????????????????????e?????????h??e??????????????3??????????????????????????????????????????????s???????????????n???????e????????????n??????????????????????????s????????????????????g?????????????????E??????????????????E??????????????E????????????E???????????????????5??????????r???????????????l??????s???????????????????s???????????r????????????????????????4?????????????e??????????????????e                                                                 ? ?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
Prpty Name: PrtDevNames 
      Value: &i                                                ???1 
Prpty Name: FrozenColumns 
      Value: 1 
Prpty Name: Bookmark 
      Value: ?  
Prpty Name: Name 
      Value: ordering chemicals 
Prpty Name: PaintPalette 
      Value: (null) 
Prpty Name: OpenArgs 
      Value: (null) 
Prpty Name: Dirty 
      Value: False 
Prpty Name: WindowWidth 
      Value: 11025 
Prpty Name: WindowHeight 
      Value: 12135 
Prpty Name: CurrentView 
      Value: 1 
Prpty Name: CurrentSectionTop 
      Value: 11325 
Prpty Name: CurrentSectionLeft 
      Value: 0 
Prpty Name: SelLeft 
      Value: 0 
Prpty Name: SelTop 
      Value: 0 
Prpty Name: SelWidth 
      Value: 0 
Prpty Name: SelHeight 
      Value: 0 
Prpty Name: CurrentRecord 
      Value: 0 
Prpty Name: PictureData 
      Value: (null) 
Prpty Name: InsideHeight 
      Value: 11310 
Prpty Name: InsideWidth 
      Value: 10590 
Prpty Name: PicturePalette 
      Value: (null) 
Prpty Name: AllowDesignChanges 
      Value: True 
Prpty Name: WindowTop 
      Value: 240 
Prpty Name: WindowLeft 
      Value: 4890 
Prpty Name: ImageData 
      Value: ??  ???  
 Ÿl???lÄ ¤?Ÿl??l ??Ÿl?????????????   ¿ ????? ??Ÿl???????????????????????????????l ? 
 ?l  
····································································· 
 
>Search for subforms and print their properties 
 
--------------------------------------------------- 
SubForm Name: OrderSub 
Prpty Name: EventProcPrefix 
      Value: OrderSub 
Prpty Name: Name 
      Value: OrderSub 
Prpty Name: ControlType 
      Value: 112 
Prpty Name: Visible 
      Value: True 
Prpty Name: SourceObject 
      Value: OrderSub 
Prpty Name: LinkMasterFields 
      Value: Chemical 
Prpty Name: LinkChildFields 
      Value: Chemical 
Prpty Name: Width 
      Value: 6360 
Prpty Name: Height 
      Value: 7560 
Prpty Name: Top 
      Value: 0 
Prpty Name: Left 
      Value: 7800 
Prpty Name: BorderStyle 
      Value: 0 
Prpty Name: OldBorderStyle 
      Value: 0 
Prpty Name: BorderLineStyle 
      Value: 0 
Prpty Name: BorderWidth 
      Value: 0 
Prpty Name: BorderColor 
      Value: 12632256 
Prpty Name: SpecialEffect 
      Value: 0 
Prpty Name: GridlineStyleTop 
      Value: 0 
Prpty Name: GridlineStyleBottom 
      Value: 0 
Prpty Name: GridlineStyleLeft 
      Value: 0 
Prpty Name: GridlineStyleRight 
      Value: 0 
Prpty Name: GridlineColor 
      Value: 0 
Prpty Name: GridlineWidthTop 
      Value: 1 
Prpty Name: GridlineWidthBottom 
      Value: 1 
Prpty Name: GridlineWidthLeft 
      Value: 1 
Prpty Name: GridlineWidthRight 
      Value: 1 
Prpty Name: TopPadding 
      Value: 30 
Prpty Name: BottomPadding 
      Value: 30 
Prpty Name: LeftPadding 
      Value: 30 
Prpty Name: RightPadding 
      Value: 30 
Prpty Name: HorizontalAnchor 
      Value: 0 
Prpty Name: VerticalAnchor 
      Value: 0 
Prpty Name: CanGrow 
      Value: True 
Prpty Name: CanShrink 
      Value: False 
Prpty Name: DisplayWhen 
      Value: 0 
Prpty Name: FilterOnEmptyMaster 
      Value: True 
Prpty Name: Enabled 
      Value: True 
Prpty Name: Locked 
      Value: False 
Prpty Name: OnEnter 
      Value:  
Prpty Name: OnEnterEmMacro 
      Value:  
Prpty Name: OnExit 
      Value:  
Prpty Name: OnExitEmMacro 
      Value:  
Prpty Name: TabIndex 
      Value: 16 
Prpty Name: TabStop 
      Value: True 
Prpty Name: StatusBarText 
      Value:  
Prpty Name: Tag 
      Value:  
Prpty Name: Section 
      Value: 0 
Prpty Name: InSelection 
Prpty Name: Layout 
      Value: 0 
Prpty Name: LayoutID 
      Value: 0 
--------------------------------------------------- 
SubForm Name: orderhistory 
Prpty Name: EventProcPrefix 
      Value: orderhistory 
Prpty Name: Name 
      Value: orderhistory 
Prpty Name: ControlType 
      Value: 112 
Prpty Name: Visible 
      Value: True 
Prpty Name: SourceObject 
      Value: orderhistory 
Prpty Name: LinkMasterFields 
      Value: Chemical 
Prpty Name: LinkChildFields 
      Value: Chemical 
Prpty Name: Width 
      Value: 9255 
Prpty Name: Height 
      Value: 8640 
Prpty Name: Top 
      Value: 0 
Prpty Name: Left 
      Value: 13200 
Prpty Name: BorderStyle 
      Value: 0 
Prpty Name: OldBorderStyle 
      Value: 0 
Prpty Name: BorderLineStyle 
      Value: 0 
Prpty Name: BorderWidth 
      Value: 0 
Prpty Name: BorderColor 
      Value: 12632256 
Prpty Name: SpecialEffect 
      Value: 0 
Prpty Name: GridlineStyleTop 
      Value: 0 
Prpty Name: GridlineStyleBottom 
      Value: 0 
Prpty Name: GridlineStyleLeft 
      Value: 0 
Prpty Name: GridlineStyleRight 
      Value: 0 
Prpty Name: GridlineColor 
      Value: 0 
Prpty Name: GridlineWidthTop 
      Value: 1 
Prpty Name: GridlineWidthBottom 
      Value: 1 
Prpty Name: GridlineWidthLeft 
      Value: 1 
Prpty Name: GridlineWidthRight 
      Value: 1 
Prpty Name: TopPadding 
      Value: 30 
Prpty Name: BottomPadding 
      Value: 30 
Prpty Name: LeftPadding 
      Value: 30 
Prpty Name: RightPadding 
      Value: 30 
Prpty Name: HorizontalAnchor 
      Value: 0 
Prpty Name: VerticalAnchor 
      Value: 0 
Prpty Name: CanGrow 
      Value: True 
Prpty Name: CanShrink 
      Value: False 
Prpty Name: DisplayWhen 
      Value: 0 
Prpty Name: FilterOnEmptyMaster 
      Value: True 
Prpty Name: Enabled 
      Value: True 
Prpty Name: Locked 
      Value: False 
Prpty Name: OnEnter 
      Value:  
Prpty Name: OnEnterEmMacro 
      Value:  
Prpty Name: OnExit 
      Value:  
Prpty Name: OnExitEmMacro 
      Value:  
Prpty Name: TabIndex 
      Value: 17 
Prpty Name: TabStop 
      Value: True 
Prpty Name: StatusBarText 
      Value:  
Prpty Name: Tag 
      Value:  
Prpty Name: Section 
      Value: 0 
Prpty Name: InSelection 
Prpty Name: Layout 
      Value: 0 
Prpty Name: LayoutID 
      Value: 0 
····································································· 
 

I hope this helps you help me because I am stumped. Thanks.

[Becker]

I just barely recreated the main form, again. This time I put the two subforms in, in a different order. Now the subform that I was having troubles with filters correctly, but now the other subform will not filter.

[NeoPa]

Putting it in [ CODE ] tags is fine, and a good idea. Both easily visible and copyable for use if required :-)

[zmbd]

Becker:

The code tags are fine and helps if the text needs to be copied out (which I did) and they isolate some of the funky charators that the properties can have in them.


"ordering chemicals" has a default filter set, may be a red-herring; however, let's start by removing that filter from the form.

-z

[zmbd]

and that's what I get for haveing to walk away from the post...

The order shouldn't matter unless one is modifying the recordset before the other updates...

at this point I'll need to see the actual database...

can you make a copy, strip the data down to something generic and post the DB?
-z

[Becker]

I removed the default filters on the forms. Not sure why they were there but taking them off didn't change anything. Here is a copy of the database. The form Ordering_Chemicals is the one with the issues. The form Purchasing_Chemicals is a very similar one that does what ordering_chemicals will not. Thanks for your help!

[zmbd]

Becker,

I took only a quick look at the DB you posted. With the way your database is designed, I doubt if you will get this to work. However, I just had a call from one of my site analytical labs that requires me to get the BFH out on an instrument so I won’t be able to really dig much more until later this evening.

In the meantime, I respectfully suggest that you consider starting from scratch. PLEASE understand, I really do mean this as a constructive statement and not with any intent of malice.
You need to read thru this: A Tutorial for Access
And you need to read thru: Database Normalization and Table Structures.
-Z