Search results

On certain fields, I wanted to allow for a partial string, so used "like" instead of "=". For example, I wanted to be able to enter a partial bldg # so bldg# 12 or 1201 would both be picked up in the search. For my purposes, it was necessary to do that.

That's true. I'd have to account for that with additional code in the query.

I use a separate "search" form that builds the query based on answers from combo boxes. The code snippet I posted was just the between for the dates. I'm sure you'd recognize what I am doing. I just thought it would be too much code at once for the poster to digest. SELECT [tbl_IDS_MAIN ].*...

([Inspection_Date] Between Forms!frm_Search_Db!txtStart_Date And Forms!frm_Search_Db!txtEnd_Date) To search between two dates, I use the above query on my search form called frm_Search_db. txtStart_Date is the name of the textbox I use to display the start date (unbound) and conversely...

I use a query in my training db that selects those that are within 60 days of needed training. In this case EEO which is required annually. I then only send a notice to those that have not been previously notified via a previous report. SELECT Employees.* FROM Employees WHERE...

I use the BETWEEN (for dates normally) in a query all the time, but find that VBA does not like the term; even when using an IIF statement.

Private Sub CmdPrintCurrent_Click() On Error GoTo Err_Link StrCriterion = "[ID]=" & Me![ID] If Me.Dirty Then Me.Dirty = False End If DoCmd.OpenReport "YourReportName", acPreview, , StrCriterion Exit_Link: Exit Sub Err_Link: If Err = 3075 Then MsgBox "No Record Found, Please...

Generally speaking, I like to use one form for both. Typically I'll have a combobox to select the record I want to bring up. Once the record is visible (bookmarked) I can edit at will. I also have a separate command button to delete the current record. Works for me ...

I'm pretty sure that's the problem. Just to add to your answer. Double click on the listbox in design mode, the properties will open. Then go to the "format" tab.

Me.Yourlistboxname.Requery Will requery the listbox only. If that's what you want, then you are correct.

No problem. Happy to help.

Private Sub Cborecord_AfterUpdate() On Error GoTo Err_Combo_AU Me.RecordsetClone.FindFirst "[ID] = " & Me![Cborecord] Me.Bookmark = Me.RecordsetClone.Bookmark Exit_Combo_AU: Exit Sub Err_Combo_AU: If Err = 3077 Then Resume Exit_Combo_AU Else MsgBox...

That's it. I go to a record from a combobox using similar code.

You could force the save by saving the record when you move to another form. For example: If Me.Dirty = True Then Me.Dirty = False Me.YourformName.Requery End if

DoCmd.OpenForm "formName"

Re: [Solved] Including "In Between" Information In Query Another way to skin the cat. I use this in a program where I want to find the inspections between two dates (extracted from a search form) ([Inspection_Date] Between Forms!frm_Search_Db!txtStart_Date And Forms!frm_Search_Db!txtEnd_Date)

The form. Or, if you prefer, you could requery the specific field. Me.textboxname.requery

I suppose we're all animals of habit. It's how I was taught, and I guess what I'm comfortable with. That's not to say that you haven't made some excellent points. All of which I will incorporate in my new designs. Thanks again for the input.

DoCmd.GoToRecord , , acNewRec Me.Unit_Name = Me.Combo16.Column(1) Me.Unit_Subdivision = Me.Combo16.Column(2) Me.BldgNumber = Me.Combo16.Column(3) Me.Inspection_Type = Me.Combo16.Column(4) Me.Inspector_Name = Me.Combo16.Column(5) Me.Construction_Level = Me.Combo16.Column(6) I use a "new Record"...

I run the delete query so I can specify the current record as the delete target with the where statement. But I agree, I should have checked for is dirty before proceeding.