Search results

the code is in the above post... If Not IsNull(Me.Month.Value) Then Set ctl = Me.Month For Each varItem In ctl.ItemSelected strWhere = strWhere & "(Month([ContEndDate]) Like " & ctl.ItemData(varItem) & "," & ") AND " Next varItem End If this is the piece I've been tweaking

No one has any suggestion. The code is set up to keep a user from ebing able to exit a form that they have made entries on without undo the entries or saving them... but I have several fields that when new data is entered they refresh or requery the form (depends on the field which happens)...

Thanks for the details. So, the box was a textbox, I did try changing it to a listbox, but when I select more than 1 values I get all results instead of just the selected. example if I select 6 I get all the lines for any item in month 6 ... but if I select 6 and 7 I get lines for items in...

Do I have to use a List Box? I currently have a text box that I want the user to key in the month numericly so March = 3 When I made the adjustments per your db I'm getting a runtime error 3075 syntax error(missing operator) in query expression '[Status]= 'Active' And (Month([ContEndDate])...

Mike, So I'm looking for something similar, maybe we can work this out together :) I built a filter with the following code Dim strWhere as String If Not IsNull(Me.Month.Value) Then strWhere = strWhere & "(Month([ContEndDate]) Like " & Me.Month.Value & ") AND " And I'd like to...

vbaInet, Thanks for the hint... it actually ended up being that 1 records value didn't have a long enough value... it was 1 digit short... was a lot of records to comb through Thanks

I tried to use the option of a query when I first created the VBA code. I wasn't able to get it to function. I need the 'Code' field to autopopulate after the user selects 'Region' on the form. I was hoping someone would have a suggestion as to why if I change the data in the table it would...

The field is an Alphanumeric field so I thought I needed to parse out the alpha to allow the code to identify the numeric value Example format of the field is below: NAMN0023 APMN0102

As I said this code did function before I reloaded the data, and I call the field 'autonumber' but it is not the standard autonumber field access creates. In the data Type it is a text field called 'code' and I have the VBA code to create a value ... semantics that I called it autonumber Also...

Hey all, I have an odd situation with some code I have for an Alpha Numeric autonumber field The below code looks at a field determines the highest number, which is in the last 4 positions and then returns the next value- 'autonumber Private Sub Region_AfterUpdate() If Me.NewRecord Then...

Hi, So I'm trying to work out some issues in my db related to using the example that GHudson posted here: http://www.access-programmers.co.uk/forums/showthread.php?t=38364&highlight=Mouse I have two fields on my form that use a DLookup to retrieve a calculated value from a query. When I use...