Search results

Add another Employees table to your relationship grid, It will probably automatically be aliased as Employees_1. Then create your relationship with Tech and Employees_1

Try this instead: If (IsNull([Forms]![SCHEMEJOBS-NoLineJOB]![COMPLETED DATE]))or ([Forms]![SCHEMEJOBS-NoLineJOB]![COMPLETED DATE]="") Then <some_statements> End If

Go Pat! Beat me to the punch. To implement prompting the user for values Dim dbs As DAO.Database Dim rst As DAO.Recordset Dim qd As DAO.QueryDef Set dbs = CurrentDb Set qd = dbs.QueryDefs!qryQCMainSizeCheck qd.Parameters![YourParm1] = InputBox("Enter YourParm1") qd.Parameters![YourParm2] =...

You can't open a recordset based on a query that requires parameter values, without actually passing the parameter values before opening the recordset. Where will the parameter values come from? Do you still want the user to enter them, or should the values be taken from the form? If you want...

In the form's Open Event, create a recordset clone of the forms underlying recordset. Test the recordset for EOF (no records). If so, message box then cancel. Dim rst As Recordset Set rst = Me.RecordsetClone If rst.EOF Then MsgBox "Your Message Here." Cancel = 1 End If

The recordsource for your subform should be a query joining the ContactID from the sourcematch table with the source information from the source table. Such a query's SQL statement would look like: SELECT sourcematchTBL.ContactID, sourceTBL.* FROM sourceTBL RIGHT JOIN sourcematchTBL ON...

You need the timer control to make the code work. This can be accomplished by either using the timer event of a form (any form) or adding a timer control to a form (any form). But from my understanding and experience, you need some sort of form to open to run the timer. You can always set the...

If you are using the SendObject method to send an email, change the last parameter value of true to false. This parameter value is for EditMessage. If it is set to true, you're procedure is not going to autosend the message, but will wait for the user to edit the message before sending. By...

Or a little more precisely rstMyRecordset.MoveFirst Do Until rstMyRecordset.EOF YourCodeHere rstMyRecordset.MoveNext Loop

Make sure that the AutoExpand property for the combo box is set to true

If you set the timer interval for 1000, it will run the timerevent every second. I have tested this, so I know it works. If Format(Now(), "hh:mm:ss") = "15:47:00" Then MsgBox "It Works!" End If This will pop up a message box at exactly 3:47 pm (15:47:00) You need to add 12 hours to...

Have you referenced the Outlook Object library? Tools, references, check the Outlook Object library in the list.

Depending on what you want to do, you either need to run an update query to uncheck all of the check boxes in the table after you append the records, or run a delete query to delete the checked records you just appended.

The first thing that jumps at me is that your code won't know what qryCreateForm is. It seems like what you need to do is create a recordset from the query and loop through that. Also you would refer to each FIELD in the recordset, and I think if you are adding more than one control, you should...

Okay. Simple enough. Open your report in design view, open the properties for the report and click the ellipsis (...) beside the record source property to open the query builder for the report. I'd like to start from scratch to avoid any confusion, so remove any tables or fields appearing in the...

Is there ever a time when the report will not be opened from the form with the specified criteria? If not then you would just refer to the form fields in the query parameter for the report. If you will view ever need to view the report without the filtering parameters, the best way would be to...

It looks like you have a confusing mess of code. Let's break down what you are attempting to accomplish into smaller pieces. I'm going to assume a few things, please let me know if I'm right or wrong. 1. You have a report named: rptGroupAssignedbyDate 2. From your form, you want to open the...

Dim db As Database Dim rst As Recordset Dim myarray() As Variant Dim i As Integer Set db = CurrentDb Set rst = db.OpenRecordset("YourTable", dbOpenSnapshot) rst.MoveFirst i = 0 Do Until rst.EOF ReDim Preserve myarray(i) myarray(i) = rst.Fields("YourColumn") i = i + 1...

Try Forms![Main Form]![frmDelete].Form.RecordSource = "qryRMA1Delete" me.requery

Is this what you are trying to do? If you run this, it should return false, because TestValue="This". If you assign the variant TestValue="This" to stringtoeval, you will return true. Dim stringtoeval As Variant Dim TestValue As String Dim result As Boolean TestValue = "This" stringtoeval =...