Set rowsource of combobox

[diegomarino]

Hi


i have a form that i use to filter other forms (actually i'm building it)

when i open this for it gets the recordsource of the form i want to filter (generally based on a query like "SELECT field1,field2 FROM something ORDER by somelse)

i have a combobox that gets the fields of this recordsource, i select a field and then i want to set the rowsource of another combobox to all values in this field

do you suggest something?

[June7]

Sounds like cascading combobox (aka dependent combobox) - a very common topic. Yours has twists in that the table source and fields of primary combobox change. This does get complicated. Need some way to identify table. One way is to set form Tag property with name of table then reference that property in code.

[diegomarino]

thanks
the problem is that some forms recordsource's is a table, other are based on queries.
Some times i have calculated fields, so i'm building a complex structure

Private Sub Form_Open(Cancel As Integer)   
      If Me.OpenArgs <> "" Then
      Me.Caption = Mid(Me.OpenArgs, InStr(Me.OpenArgs, "\") + 1)
      Origin = Left(Me.OpenArgs, InStr(Me.OpenArgs, "\") - 1)
      MsgBox (Origin)
      Me.FldFilt.RowSource = Origin
      If Origin Like "SELECT*" Then
         If Origin Like "*order by*" Then
            FldOrigin = Mid(Origin, InStr(Origin, "From"), (Len(Origin) - InStr(Origin, "FROM") - 1) - (Len(Origin) - InStr(Origin, "Order by"))) ' estraggo la stringa sql fino all'eventuale "order by"
            MsgBox (FldOrigin)
         Else
            FldOrigin = Mid(Origin, InStr(Origin, "From"))
         End If
      Else
         FldOrigin = Origin
      End If
   End If
End Sub

openargs is the concatenation of the name of the form i want to filter and its recordsource

Private Sub Value1CB_GotFocus()   If FldOrigin = Origin Then
      Me.Value1CB.RowSource = "SELECT " & "[" & Me.FldFilt & "]" & " FROM " & "[" & FldOrigin & "]"
   Else
      Me.Value1CB.RowSource = "SELECT " & "[" & Me.FldFilt & "]" & " " & FldOrigin
   End If
End Sub

actually is working pretty good right now

[ArviLaanemets]

You can have an unbound combo to set filter for form. User can select from list of different filters, and combo's AfterUpdate event set's according filter for form, like:

The combo has RowSource like "1, 'FilterComment1', 2, 'FilterComment2, ..."

YourUnboundCombo_AfterUpdate()

Select Case Me.YourUnboundCombo
Case 1
Me.Filter = "SomeField1 = SomeValue1"
Case 2
Me.Filter = "SomeField2 = SomeValue2"        
...             
End Select
Me.FilterOn = True
End Sub

[diegomarino]

thanks
actually i upload criteria in a "filter" table that i see as subform. My filters are very complex, so i have many criteria for every field