Search results

Now, while the form is open, the last filter applied remains and the user can't get back to all records displayed. Could I create a button "Clear Filters" that has some vba and resets them both to blank, regardless of whether they were used or not? Then all records can show.

I applied the same code but tweeked it to number format (only one column). Now either combo can be used one after the other without issue: Private Sub Combo40_AfterUpdate() Me.Filter = "(([NonConformID]) = " & Me.Combo40 & ")" Me.FilterOn = True End Sub Private Sub Combo40_Change()...

Purfect, now, what happens if there's another combo box that is filtering on another field and potentially, a person could use the first filter then decide to use the other filter for a different result. I tried to use a standard combo box but it wouldn't override the first search. Is there...

Not sure if this is causing a problem, when using the wizard to initially set up the combo box, I use Find record on form based on the value I selected in my combo box. This has a key column hidden which is numeric. The field selected is alph/numeric - test field. However, the hidden column is...

I think I may have discovered what the prob is. When I open the db, it has the security warning below the ribbon - vba is disabled. Once enabled this works. Is there a way to have the db setup so any user that opens it will not have that security warning. As is, won't be user friendly.

The field is definitely text, holds both text & number. Not sure what's going on? It's filtering but only returning a blank form with #### in the primary field.

That's what I did but thought it must've been wrong. When I select the item, nothing is returned even thought there are records. Code below Me.Filter = "(([JDEItemNO]) = '" & Me.Combo57 & "')" Me.FilterOn = True

Is this adjusted on the combo box in the header? Currently has a macro - searchforrecords which is standard. How do I get the combo box to work as a filter for all rather than just each instance?

I can add a combo box to the header to lookup an item on the main form, however, how do I get all records to be returned for a specific item if there are a number of them? E.g. 25 records of which 3 have the item code NLA2222011. Currently, the lookup will just show all 25 records in a list...

Yeah, that's the thing, I have checked that 'On Not on List' with the following, as above Private Sub Cause_NotInList(NewData As String, Response As Integer) MsgBox "Double-click this field to add an entry to the list." Response = acDataErrContinue End Sub But still get that error...

Just some clarification, if the user enters in a word that's not on the list, the following error occurs: The expression On Not in List you entered as the even property setting produced the following error: Object or class does not support the set of events. How can I trap this so the user is...

Hey thanks for your input. John, thanks for the example, that's sorted it. Works a treat!!!

I've got a lookup field on my main data entry form "Supplier Issue Detail" where a type of 'cause' for the issue can be selected. This is restricted to the records in the 'Cause' table. How can I add to the 'Cause' table on the fly if a particular cause doesn't exist in the drop down list...

Thank you for your help, but I'm new to VBA so I'm not sure of the terminology that you're refering to. Are you able to help with how this is written? Also, I guess there needs to be some sort of loop that keeps pulling out an email until there are none left, inserting them intot he To: field...

Hi, I have the following that currently takes the email address from the field Contact on a form, however, I now want to be able to pull off multiple emails should there be, from a subform. Is this possible? This is the current one. .To = Forms![nonconformity]![Contact] Form -...

Also, just noticed that Msg "Message sent Sucessfully" displays in Access even thought the email is still open and hasn't been sent.

Thanks for clarifying that Paul, thought I wasn't meant to use that. In regards to the errors, I don't know which part of the script they're occuring as it doesn't show up like in the past, just a Msg box occuring. I can only assume it's the result of the commenting out of the Resume Next. When...

Hi Paul There's so many ways of writing these things!!! :-) I copied your code. By commenting out the kill, all that means is the file is constantly overwritten rather than being removed. No issue for me. However, I'd prefer it to be removed as that file will be in everyone's root directory...

Someone gave this fix... Const olFormatHTML = 2 All good now

'Create e-mail item Set objMail = olApp.CreateItem(olMailItem) With objMail 'Set body format to HTML .BodyFormat = olFormatHTML .To = Forms![non conformity]![Contact] .Subject = "Task Assigned" .Body = "Text" .display End With MsgBox "Operation completed successfully" End Sub When I run this...