[RESOLVED] Another VB Mystery??

[Tom951]

Hi again. I have one form (form1) opening another form (form2) as a dialog box. The user may enter some data into form2, then will press either cmdOK or cmdCancel to finish.

I want form1 to be able to know which button the user pressed in form2. I tried it like this;

{form1}
    load form2
    form2.show
 
{form2}
Private Sub cmdCancel_Click()
    Me.Visible = False
End Sub
 
{form1 again}
    if form2.cmdCancel.value then
         (disregard the operation because they pressed the cancel cmd button)
    endif

In the form2 cmd_click sub, the cmdCancel property is TRUE after they press Cancel. But as I step thru the program, I notice that when it returns to form1, the cmdCancel value is set to FALSE.

Any ideas how form1 can read the values of the form2 command buttons?

Thanks again - Tom

[The_Grudge]

You could store the values you want to save in a command module and refer to them from anywhere in your program.

[Tom951]

You mean store them in a global variable?

[bpd]

Form2.Show vbModal, Me
If Form2.Cancelled Then
  Debug.Print "Cancelled"
Else
  Debug.Print "OK"
End If
Set Form2 = Nothing

Where the code for the dialog (Form2) is:

Public Cancelled As Boolean
 
Private Sub CancelButton_Click()
  Cancelled = True
  Unload Me
End Sub
 
Private Sub Form_Load()
  'Assume Cancelled.
  Cancelled = True
End Sub
 
Private Sub OKButton_Click()
  Cancelled = False
  Unload Me
End Sub

[Tom951]

Thanks, I understand. (Baaarrrrrrffffff)

I guess this means that the form2 variables are not available after the "End Sub" for that module is executed?

[Pradeep1210]

Here's how you can do it

{form1}
    form2.Show vbModal
    If form2.Cancelled Then
         (disregard the operation because they pressed the cancel cmd button)
    End If
 
 
{form2}
Public Cancelled As Boolean
Private Sub cmdCancel_Click()
    Cancelled = True
    Me.Hide
End Sub
Private Sub cmdOK_Click()
    Cancelled = False
    '
    'Other stuff
    '
    Me.Hide
End Sub
Private Sub Form_Load()
    Cancelled = False
End Sub

Pradeep

[Hack]

Thanks, I understand. (Baaarrrrrrffffff)

I guess this means that the form2 variables are not available after the "End Sub" for that module is executed?

All variables from both forms would be available to each form if you declare them as Public.

[Tom951]

Along these lines, it would be awfully convenient if I could call a form with parameters -- something like;

{form1}
 
    istatus = Form2 (data1, data2)
 
    If istatus = Good
        ( process data1 & data2)
    Else
        ( disregard )
    Endif

Maybe I'm a throwback. - Tom

[bpd]

I guess this means that the form2 variables are not available after the "End Sub" for that module is executed?

In my example, the Form2 variables are not available after the:

Set Form2 = Nothing

[Pradeep1210]

Ohhh... bpd wins

Pradeep

[Tom951]

There is definitely an inconsistency here.

In form1, I can read the whatever the user typed into data1 and data2 just fine after I come back from form2.

However, the value property of the form2.cmdCancel button gets set to False when the form2 procedure ends, even though the user pressed it to exit form2. In the form2 cmdCancel Clicked subroutine, it is set to True.

Comments?

[Pradeep1210]

The value property of command buttons remain true only when it is clicked and you are within it's procedure. As soon you move out of Command1_Click, it will become false (it has no relation to form loading/unloading).

Pradeep

[penagate]

I didn't even know command buttons had a Value property.

Anyway, I suppose you are making a custom Messagebox or something, so here's how you'd do that, with parameters:

' In a module somewhere
Enum CustomMsgBoxResult
    mbOK
    mbCancel
End Enum
 
Function CustomMsgBox(ByRef pszData As String, ByRef pszCaption As String) As CustomMsgBoxResult
    With <message box form>
        .lblData = pszData
        .Caption = pszCaption
 
        .Show vbModal
 
        CustomMsgBox = .Result
    End With
End Function

' In the form
 
Private mResult As CustomMsgBoxResult
 
Property Get Result() As CustomMsgBoxResult
    Result = mResult
End Property
 
Private Sub cmdOK_Click()
    Result = mbOK
    Me.Hide
End Sub
 
Private Sub cmdCancel_Click()
    Result = mbCancel
    Me.Hide
End Sub

HTH