Calling a class' private method from a form

[ericellsworth]

Hi,
I'm trying to use a class to pass variables back and forth from a
form opened in dialog mode.
I have created a class which invokes a form in its show method, like
so:

Public Sub Show()
' This method shows the form used to get the info
If sWhereInt = "" Then
DoCmd.OpenForm sFormNameInt, acNormal, , , acFormAdd, _
acDialog
Else
DoCmd.OpenForm sFormNameInt, acNormal, , sWhereInt, _
acFormEdit, acDialog
End If
End Sub

I collect parameter values using:

Property Let SetParam(sName As String, vValue As Variant)

dParamDict(sNam e) = vValue

End Property

where dParamDict is a Scripting.Dicti onary object which has been set on
class initialization.

I would like to define a private method (or property if necessary)
visible to the form to retrieve parameter values. All of my efforts so
far have failed.

Can anyone provide any guidance?

Many thanks,

Eric

[ericellsworth]

Blocking. The only effective way in Access (AFAIK) to cause code
execution to block is either to use MsgBox or open a form as dialog.

Plus, part of what I'm trying to do is abstract a
"getInformation FromUser" function of class that is not specific to the
form used to do so.

Any ideas on making code block?

[rkc]

er***********@g mail.com wrote:

That looks like exactly what I'm trying to do, and I think that would
work nicely with the idea of the form automatically getting any values
it can from the calling function.

Only one key problem:

Setting form to modal does not cause the calling code to block.

By block do you mean suspend? I don't see why you need the code
to wait for anything unless getting the dictionary object to the
dialog form is not all you wanted to do. You do realize that any
changes made to the dictionary object by the dialog form will be
reflected in the calling form.

[ericellsworth]

Sorry, didn't realize I was being unclear. By blocking I do mean
suspend execution of code. Your point that since the dictionary object
on the dialog form and the on in the calling function are the same they
have the same values is well taken.

I guess that might make it work. I'll try passing a dictionary object
with my parameter values...

Thanks,

EE

[rkc]

er***********@g mail.com wrote:

Sorry, didn't realize I was being unclear. By blocking I do mean
suspend execution of code. Your point that since the dictionary object
on the dialog form and the on in the calling function are the same they
have the same values is well taken.

I guess that might make it work. I'll try passing a dictionary object
with my parameter values...

There's also the WithEvents keyword whereby the calling object can
subscribe to the dialog form's Close event and run code in the calling
class when the dialog form closes. That gives you the same 'blocking'
affect as actually opening the form in dialog mode via docmd.openform.

[John Mishefske]

er***********@g mail.com wrote:

Blocking. The only effective way in Access (AFAIK) to cause code
execution to block is either to use MsgBox or open a form as dialog.

Plus, part of what I'm trying to do is abstract a
"getInformation FromUser" function of class that is not specific to the
form used to do so.

Any ideas on making code block?

Other than opening the form with the acDialog option that I mentioned
in my previous post you could cycle waiting for the form to close:
Const conObjStateClos ed = 0

DoCmd.OpenForm "frmReportsOutp ut"

Do While SysCmd(acSysCmd GetObjectState, acForm, "frmReportsOutp ut")
<> conObjStateClos ed
DoEvents
Loop
Note that one of the lines wrapped. Beyond these two examples you'll
have to investigate the Win Sleep() API (there is one of those
isn't there? or am I thinking of BSD??).
--
'---------------
'John Mishefske
'---------------