View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Keith74 Keith74 is offline
external usenet poster
 
Posts: 120
Default QueryClose problem

Hi All

I've two forms i'm toggling between using this code:

frmMain
Private Sub cmdClient_Click()

Unload frmMain
frmClient.Show

End Sub

frmClient
Private Sub cmdCancel_Click()

Dim varResponse As Variant

If blnChangedData = True Then
varResponse = MsgBox("You have changed data without saving" &
Chr(13) & Chr(13) & _
"Do you wish to exit the form now?", vbYesNo)
If varResponse = vbNo Then
Exit Sub
End If
End If

Unload frmClient
frmMain.Show

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As
Integer)

Dim varResponse As Variant
If CloseMode = vbFormControlMenu Then
If blnChangedData = True Then
varResponse = MsgBox("You have changed data without saving"
& Chr(13) & Chr(13) & _
"Do you wish to exit the form now?", vbYesNo)
If varResponse = vbNo Then
Exit Sub
End If
End If

Unload Me
frmMain.Show
End If
End Sub

If I use the command buttons to go between the forms everything works
fine. If i close frmClient via the red cross, when i try to open the
form again from frmMain i get the error "run time error 400 form
already displayed can't show modally".
Anyone have any idea what the problem is? I'm running XP and excel
2003 sp2 is thats any help.

Thanks

keith