Find a record using combo box using different table for values

[Dal Jeanis]

I'm working on it. I'm finding macros very mysterious. With VBA I always know where the activity is coming from.



Okay, my first act would be to update the macro for cboFilterFormExpenseType : AfterUpdate .

Delete the action Searchfor, and add two actions: ApplyFilter and then Requery.

The filter should be something like

"[Expense Type] = " & [Forms]![Expenses]![cboFilterFormExpenseType]

or possibly

"[Expense Type] = [Forms]![Expenses]![cboFilterFormExpenseType]"

[maxmaggot]

Thanks Mike.

Its 4 a.m. here so I'm gonna hit the hay. I'll update you tomorrow on progress. Thanks so much for the help. It really is appreciated

[Dal Jeanis]

K. I deleted the embedded macro behind the AfterUpdate, then activated some VBA that does the same thing. Appears to work.

Private Sub cboFilterFormExpenseType_AfterUpdate()
    Me.Filter = "[Expense Type] = " & Me.cboFilterFormExpenseType.Column(0)
    Me.FilterOn = True
    Me.Requery
End Sub

And here's the code to turn off the filters.

Private Sub cmdShowAllExpenses_Click()
    Call SwitchFilterOff
    Me.cboFilterFormExpenseType.SetFocus
    Me.cboFilterFormExpenseType = Null
End Sub

Private Sub SwitchFilterOff()
    Me.FilterOn = False
    Me.Filter = ""
End Sub

Now, one thing I noticed is that you're calling a few routines "functions" that don't return values. It ain't a function if it ain't returning a value.

Don't try to fix it now, since it's working, but all of those should be subs instead, and they should be invoked with "Call Subname" rather than just "FunctionName".

Sweet dreams, and let me know if you need anything else. I'll be on holiday tomorrow, but I'll try to check back in the morning (my time) anyway.

By the way, my name's Dal.

[maxmaggot]

Thanks again. Where did I get Mike?????? Sleep deprivation.

[maxmaggot]

Thanks so much Dal,
Everything worked out great. It won't let me add anymore to your reputation until I spread the wealth but I will do ASAP.

Really appreciate the help you have given me.

[Dal Jeanis]

Congratulations, you made your deadline!

Yeah, by 4 AM I don't know what will come out of my fingers. No offense taken.

I'm deleting the db off my machine. For any new questions, please start a new thread.

[maxmaggot]

Thanks Dal. Life saver