Recent content by mvos

You're welcome :)

True but it proves the point :) I've just re-read your previous post The Me.ControlName should be the same for each one. You've put in the various subform names. You need to put in the name of the control, it may be something like Child1

LOL Put this line just before the Select Case line Msgbox Me.FeeElection and check that the result matches the numbers in your case statements

If it hasn't already, create a field in your table based on an autonumber (ideally this should be the Primary Key). This would be the field to sort on.

Right click over the control that holds the subform on the main form and open the properties window. Select the All tab, the first entry (Name) contains the name of the subform control. That's what you should be using.

Running out of ideas here :) You could try creating a new field in the table and running an update query to copy the data into the new field. Then see what the resulting new field looks like.

OK just change the Case "40%" to Case .4

Hi, You need to use the sorting and grouping option on the report. It is available on the design toolbar.

Can I suggest an alternative way. What is the datatype of the percentage field, is it text? If so then Select Case Me.FeeElection Case "40%" Me.SubFormControl.SourceObject = "40%Subform" Case "20%" Me.SubFormControl.SourceObject = "20%Subform" Case Else Me.SubFormControl.SourceObject =...

What happens if you try to a calculation on the field, say [MyField] * 2 ?

Hi, Try going into Tools>Options and on the view tab check hidden objects

Is the combo bound to the correct field to match the field you are searching on?

Hi, Try this on the OnCurrent event of form1 Dim rs as object With Forms![Form2] Set rs = .RecordsetClone rs.Findfirst "[MyField] = " & Me.MyControl .BookMark = rs.BookMark End With Set rs = Nothing

You're welcome :)

I would go back to Dim rs as Object. It sounds as if the findfirst is not finding a match, you could try this to test it Set rs = Me.Recordset.Clone rs.FindFirst "[NSN] = '" & Me![Combo36] & "'" If Not rs.NoMatch Then Me.Bookmark = rs.Bookmark Else Msgbox "No Match Found" End If