OpenArgs Statement

[Will_J]

Hi Guys & Girls,

Thanks in advance for your help.

I presently have this problem. I have a reminders form that Opens from a variety of different forms, for arguments sake let's say Production and Meeting both have a button with an OnClick events then leads to the following line of code;


DoCmd.OpenForm "frmEmail", , , , acFormAdd, , Me.[ProductionID]

DoCmd.OpenForm "frmEmail", , , , acFormAdd, , Me.[MeetingID]

The problem occurs when I have the

Private Sub Form_Load()
If Not IsNull(Me.OpenArgs) Then
DoCmd.GoToRecord , , acNewRec
Me.[ProductionID] = Me.OpenArgs
End If
End Sub

I want the OpenArgs to be variable to allow for the correct ID to be dropped in the relevant combo box. I have tried;


Private Sub Form_Load()
If Not IsNull(Me.OpenArgs) Then
DoCmd.GoToRecord , , acNewRec
Me.[ProductionID] = Me.OpenArgs
Me.[MeetingID] = Me.OpenArgs
End If
End Sub

Addmitedlty, the logic dosen't work forme I would have to write another statement however I've spent to long dumbfounded and was hoping you guys & girls could give me a little help.

Many Thanks,

Will

[HiTechCoach]

One way to handle this is to pass more information in the OpenArgs.

Example:


DoCmd.OpenForm "frmEmail", , , , acFormAdd, , "ProductionID," & Me.[ProductionID]

and



DoCmd.OpenForm "frmEmail", , , , acFormAdd, , "MeetingID," & Me.[MeetingID]


Then use this:



Private Sub Form_Load()

Dim strControlName as String
Dim lngID as Long

If Not IsNull(Me.OpenArgs) Then
' retrieve the control name from the OpenArgs
strControlName = Left(Me.OpenArgs, Instr(Me.OpenArgs(), ",") -1)

' Retrieve the ID from OpenArgs
lngID = Mid(Me.OpenArgs,Instr(Me.OpenArgs(), ",")+1)

'Go to a new record
DoCmd.GoToRecord , , acNewRec

' set the control with the ID
Me(strControlName = lngID
End If
End Sub