Search results

Wow, Dcount not Dlookup man I feel like a tard now.

OK looked up Dlookup but can't see to think on how to get it to work. here are the steps I would like for this form to run. 1. Form is open and waiting for a cards to be scanned 2. Employee scans card 3. customer not in "customer" table pops up window please enter in data 4. After data is in...

Ok I am making a form that an employee will scan a card and the number on the card will go into a text field once the number is entered. I need it to look it up in a table and see if that number is in there and if so and the customer information to another table. If not then open a new form...

ApplyListBoxFilter Nz(Me.Denom, ""), Nz(Me.Manufacturer, ""), Nz(Me.tbThemeSearch, "") Could you help me out with this what is this code doing?

Wow, that’s not even funny. Well now I know and knowing is half the battle. Well I knew there was a simpler way but I thought I would give it a try. There is enough if then statements to make your head hurt in mine. I have the logic down I just need to know all the little short cuts like...

Thanks for all the Help Here is the Code I came up with for all three input fields. I haven't put any documentation in yet. I am sure there is a better way of doing this but this works. I will also attach a sample data base with the working code if anybody would like to check it out. Option...

After I do a setfocus I don’t want the field to be all highlighted can I have a VB code to have replicate the right arrow or something of that nature? Thanks

how about this WHERE MFRcode LIKE '*7*' WHERE DenomFix LIKE '0.01*'

Ok changed it to Where3 = Where1 & Where2 Still doesn't work also "Debug.Print Where3" I put this right after the code and nothing happened where does this need to go and what should happen?

'construct a where clause as required If Nz(Me.Manufacturer.Text, "") <> "" Then Where1 = "WHERE MFRcode LIKE '*" & Me.Manufacturer.Column(0) & "*' " Where3 = Where1 + Where2 <- tried to combine the two End If Me.list.RowSource = _ "SELECT ID, Description, Par...

'construct a where clause as required If Nz(Me.Manufacturer.Text, "") <> "" Then Where1 = "WHERE MFRcode LIKE '*" & Me.Manufacturer.Column(0) & "*' " End If Me.list.RowSource = _ "SELECT ID, Description, Par, MaxCoins, PayLines " & _ "FROM MachineTypeQuery " & _...

in the rowsource what if I wanted two "where" to filter by how would I type that on the line I tried different ways but keep erroring out on me examples "where, where1" &_ where, where1 &_ can't seem to get it to work any help would be very helpful Thanks

Private Sub Form_Open(Cancel As Integer) 'run the change event of the textbox to make sure the list rowsource is correct tbThemeSearch_Change End Sub OK what is this for? Private Sub tbThemeSearch_Change() On Error GoTo handler Dim where As String 'construct a where clause as...

Wow, I think I can get the other dropdowns to work this is such a big help. Thank you so much

I have attched my database. Now this is stripped down I just want get the code working and will then move over to my main database. I am trying to filter a list box buy picking from combo boxes and then the last filter will be from typing in from a text box. Take a look and see if you can help...

I think I am going to use a combo box for the location because they shouldn't need to pick more then one city at a time. I think I could get this code to work just fine. Thanks for all the help.

OK I have one field that has manufactures and one that is location. Lets say they want one or two manufactures and they want only those manufactures in the Chicago area. So I would have one field that would list manufactures and another field for what city the manufacture is in. Hopefully...

Not Order but two filters in two different fields

what if you wanted to sort by two different fields set of radio buttons for one field and another set of radio buttons for another field would there be any way to split this loop for the two controls.

Thanks this helps alot to be able to see what the code is doing and why it's doing it.