OLE Object problem

[PaulA]

I have a data entry form consisting of multiple subforms (in tabs). Two of them contain a field of OLE object type for containing a scanned signature.

This field is stored on a table that is is used in the query that is the source object for the form.

I have the form configured two ways depending on who the user is. This doesn't impact on the basic source object query. In one configuration, the OLE object works fine. In the other, it doesn't appear at all. I get a "The OLE Oject is empty" error.

I'm sure this is confusing, but why would the signature appear OK in one configuration but not another?

Any ideas?

thanks

 

[missinglinq]

First of all, I think, you need to explain exactly what you mean by 'configuration.' It has a bunch of meanings, none of them specific to Access!

Linq ;0)>

 

[PaulA]

Thanks for your reply. Appologies for my vagueness.

Basically, I have the code in the form "On Open" event that determines the "row source" of a field in the subforms based on the value of current.user. There are two groups of users. One has one rowsource and the other has a different rowsource.

The functioning of the OLE object though seems to be determined by the group. For one group it works, the other group it doesn't.

The code is:


Private Sub Form_Open(Cancel As Integer)
Dim rowsource as string
Me.cboPatientLookup = ""
DoCmd.GoToRecord , , acNewRec
Me.toggle_ClinicalContacts = False

rowsource = "SELECT tblEmployeeList.StaffID, tblEmployeeList.[Employee Name] " & _
"FROM tblEmployeeList WHERE tblEmployeeList.UserName = [Application].[CurrentUser]"
If Application.CurrentUser = "lhc_admin" Or Application.CurrentUser = "ashaw" Or Application.CurrentUser = "krice" Then
Me.frmIndClinicalUtilTracksub.Form.[Staff Provider].RowSource = "qryEmployeeList"
Me.frmIndNarrativeNotesub.Form.Clinician.RowSource = "qryEmployeeList"
Me.frmGroupProgressNotesub.Form.Facilitator.RowSource = "qryEmployeeList"
Me.frmDaily1on1sub.Form.Provider.RowSource = "qryEmployeeList"
Else
Me.frmIndClinicalUtilTracksub.Form.[Staff Provider].RowSource = rowsource
Me.frmIndNarrativeNotesub.Form.Clinician.RowSource = rowsource
Me.frmGroupProgressNotesub.Form.Facilitator.RowSource = rowsource
Me.frmDaily1on1sub.Form.Provider.RowSource = rowsource

End If
End Sub

Thanks again.

Paul