Search results

I've attached a sample db with a Search form that will search all fields specified in the underlying query for a listbox. Start by opening the Customers form. Click the find button to open the frmSearch. Type the search criteria in the textbox. The listbox will filter based on what is typed...

He already looked at his recordsource and it didn't contain a select statement. It is set to table tblAgent

send it to cgaborik@christensenfarms.com and let me know which field you added that isn't showing up and I PROMISE not to laugh, I was a newbie once too!

It's probably something really simple that we're missing. Would you be opposed to sending me a copy of the db? You can take all the data out if you wish.

In answer to your first question, while you are in your code window, select Tools then References and make sure you have referenced the Microsoft DAO Object Library. To answer your second question, no I don't think there is a better way to programmatically add a record to a table than by using a...

Doesn't matter if you have any saved queries. Exactly what is in the Form's Recordsource property?

Are you using Access's find form, or a custom find form? This is very doable if you build your own custom form to find records.

Just an idea On the form that the employee uses to add documents, use a combobox for the document selection, then you can use the OnNotInList event, or an AddNew button to allow them to add a document to the master Document table.

Just to be sure, look at the RecordSource property for the form and make sure it isn't a query that doesn't include your new field.

You need to replace "checkbox" in the code with the name of the checkbox control on your form. Also, to clarify, YourID should be replaced with the name of the ID field that uniquely identifies your the record. Let me know if you have any more problems and I can help you with the code. It should...

Private Sub FIXTIME_BEFOREUpdate If FIXDATE=HLPDATE Then if fixtime<hlptime then MsgBox ("The Fix Time must be Later or equal to the Help Time") Cancel=TRUE end if end if end sub

I was a little late with my post. Both methods will work.

Try: If Listbox1.ItemsSelected.Count=0 then MsgBox "You must select a change type" GoTo Line1 End If

Private Sub FIXDATE_BEFOREUpdate If FIXDATE < HLPDATE Then MsgBox ("The Fix Date must be Later or equal to the Help Date") Cancel=TRUE end sub Private Sub FIXTIME_BEFOREUpdate If FIXTIME < HLPTIME and FIXDATE<>HLPDATE Then MsgBox ("The Fix Time must be Later or equal to the Help Time")...

Did you declare it public within a sub? Like Private Sub MySub() Public myVariable as string Code End Sub ? If so, that's your problem. Declare Public variables in the declarations section of the module (i.e. at the top of all code) OUTSIDE of all of the procedures. Like Option Explicit...

I think I see what the problem is. Me![MHLineID] should refer to a control named MHLineID on the form you are linking from and txtLineID should be the name of a field in the recordsource from the form you are linking to. Normally, you wouldn't name a field in your table txtLineID, so I'm...

Try something like this: Dim obj As AccessObject, dbs As Object, strReportName As String Set dbs = Application.CurrentProject ' Search for AccessObject objects in AllReports collection. For Each obj In dbs.AllReports strReportName = obj.Name DoCmd.OpenReport...

Here's an example DB

Yes it's possible using comboboxes. Create comboboxes for each field in your subform. The rowsource for each combobox would be "Select Distinct YourFieldName from YourTable" This will add each unique value from the table to your combobox list. In the after update event of the combo box...

It looks like your MHLineID is a string value so try stLinkCriteria = "[txtLineID] ='" & Me![MHLineID] & "'" it's hard to see, but that's doublequote [txtLineID] = singlequote doublequote & Me![MHLineID] & doublequote singlequote doublequote