You used a method of the DoCmd object to carry out an action in Visual Basic, but then clicked Cancel in a dialog box.

stLinkCriteria = "[Employee_Courses].[COURSE_DATE]='" & Me.TrainingDate.Value & "' AND [LKPTrainingType].[TrainingTypeDesc]='" & Me.txtTrainingType & "' AND [SiteCode]='" & Forms!frmProperty!SiteCodeCombo & "' AND [BlockNo]='" & Forms!frmProperty!BlockCodeCombo & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

The value of stLinkCriteria is as follows:

[Employee_Courses].[COURSE_DATE]='22/03/2006' AND [LKPTrainingType].[TrainingTypeDesc]='Fire Induction' AND [SiteCode]='21800' AND [BlockNo]='01'

I have tried a variation (below) which works, but cannot see what's going on with the date.

[LKPTrainingType].[TrainingTypeDesc]='Fire Induction' AND [SiteCode]='21800' AND [BlockNo]='01'

Any help appreciated...

Regards,

Sean Anderson

__________________
Regards,

Sean Anderson

Additionally, I have tried with no success, to reformat the date (as below) and have also tried each with '#' surrounding the date.

dd/mm/yyyy
mm/dd/yyyy
yyyy-mm-dd

Regards,

Sean Anderson

Terribly frustrating that this was something so glaringly obvious.

Changing the date format so that the line now reads as follows did the trick.

stLinkCriteria = "[Employee_Courses].[COURSE_DATE]=#" & Format(Me.TrainingDate.Value, "mm/dd/yyyy") & "# AND [LKPTrainingType].[TrainingTypeDesc]='" & Me.txtTrainingType & "' AND [SiteCode]='" & Forms!frmProperty!SiteCodeCombo & "' AND [BlockNo]='" & Forms!frmProperty!BlockCodeCombo & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Resulting in stLinkCriteria being equal to the following.

[Employee_Courses].[COURSE_DATE]=#03/22/2006# AND [LKPTrainingType].[TrainingTypeDesc]='Fire Induction' AND [SiteCode]='21800' AND [BlockNo]='01'

Regards,

Sean Anderson

Alternatively, you can place the criteria for the date directly in the query designer. In the first Criteria cell under the COURSE_DATE column, put:

[Forms]![frmMyFormName].[TrainingDate]

In the TrainingTypeDesc column put:

[Forms]![frmMyFormName].[txtTraningType]

etc.

This will allow you to just have this code on your button:

'----------------------
Dim stDocName As String
stDocName = "rptMyReportName"
DoCmd.OpenForm stDocName
'----------------------

The downside is that the query can only be used with that report when the form is opened. Ideally you would have some sort of check on the form to make sure all the values had been selected.

HTH




mmcdonal