[ RESOLVED ]...Unloading Forms...

[wrack]

Private Sub cmdBack_Click()
    frmMain.Show
    
    Dim frm As Form
    For Each frm In Forms
        If frm <> frmMain Then
            Unload frm
            Set frm = Nothing
        End If
    Next frm
End Sub

What is wrong with this code...???

Gives compile error: Type mismatch

Hope some one can fix it...!!!

Cheers...

[Blinky Bill]

which line gives you the error? Try using Unload Me and not using the Set frm = Nothing and see if that works.

[wrack]

If frm <> frmMain Then

It gives an error at frm in the line above...

Cheers...

[Blinky Bill]

D'Oh!! You need to use this:

If frm.name <> "frmMain" Then

[wrack]

ThX Bill,

that one is solved...

another problem...

It unloads the frmMain aswell...why...???

Private Sub cmdBack_Click()
    frmMain.Show
    
    Dim frm As Form
    
    For Each frm In Forms
        If frm.Name <> "frmMain" Then
            Unload frm
            Set frm = Nothing
        End If
    Next frm
End Sub

Cheers...

[Blinky Bill]

Hey,

I just tested your code in my app, and it works perfectly, it closes all the windows i have open, except for frmMain. The only reason i can think of for you main form closing as well is that it isn't call frmMain. When you do the name comparison it is case sensitive. Check you main form name and make sure its the same as the name in the if statement.

[wrack]

thats right bill,

Your computer does the right thing and that code was working when i left office on friday night and when i come today, magic of microsoft...it doesn't work...

I am dead sure that its called frmMain and the case i have used is right but can't figure it out whats going on...

[Edneeis]

Not sure on this but you may want to try:

If frm.Name Is Not frmMain Then

[wrack]

ThX Edneeis,

but it gives a type mismatch error at 'Not' from the code u posted...

Cheers...

[Microbasic]

Try this:

Give frmMain a special tag (like 25360) and use:

Private Sub cmdBack_Click()
    frmMain.Show
    
    Dim frm As Form
    
    For Each frm In Forms
        If frm.tag <> 25360 Then
            Unload frm
            Set frm = Nothing
        End If
    Next frm
End Sub

[Blinky Bill]

Yeah Wrack. I had a similar prob the other day. I had a major error that appeared in my app. Spent 2 days looking for a cause and couldn't find one. Then the other day i tried to show someone the problem and it didn't occur. Hasn't reappeared either. I hadn't done a thing to the code but. . . .

But thats Microsoft products

[Microbasic]

I have problems like that all the time. All of a sudden, my subclassed program would crash for no reason and all of a sudden, without pressing a key, the program worked (on my next windows reboot). That is the quality you get with M$ products...in addition to poor $90-per-call technical support and a poor bug response system (I sent three bugs eports - two were completely lost and one gave back a irrelevant result).

[wrack]

Microbasic, Bill for your prompt response but its working now and I haven't done anything to it...

I will post this again if the problem reappears...

Cheers...

[wrack]

the problem is back again...how do i get rid of it...

I am trying to work it out since 4 hours and its pain in a*** and my boss is really pissed of because of no constructive work...

Cheers...

[BuggyProgrammer]

frmmain.Show
    
    Dim frm As Form
    
    For Each frm In Forms
        If frm.Name <> frmmain.Name Then 'changed frmMain to frmMain.Name, because you are comparing NAMEs, not FORMS
            Unload frm
            Set frm = Nothing
        End If
    Next frm

[wrack]

same thing...it unloads all form including frmMain...

any more ideas...

Cheers...

[BuggyProgrammer]

i just tried it. it works. check all your form unloads and see if you are doing anything bad there.

[wrack]

ThX buggy but it was working completely allright b4 i went to lunch and I came back and now its not working...

I am sure that I am not doing anything bad...

Cheers...

[BuggyProgrammer]

this works for me, so run it and see if it works for you.

[Arc]

Wrack, show us your whole code. Everything that is in that Sub.

If that is everything then i dont know what the deal is becasue i just tried and it works fine.

Also, look in your other forms Unload_Events...Is it possible you are closing the FrmMain in one of those events?

[wrack]

Your code works fine and I copied my code to your project and it works fine...

But why doesn't it work on my project...I have got exactly the same thing but I can't understand what the h*** it doesn't work on my prokect...

hope someone has a same problem and they can help me...

[BuggyProgrammer]

post all your unload subs from all your forms. did you even check?

[wrack]

' This same code works in other FORMS but not this one
 
Private Sub cmdBack_Click()
    frmMain.Show
 
    Dim frm As Form
 
    For Each frm In Forms
        If frm.Name <> "frmMain" Then
            Unload frm
            Set frm = Nothing
        End If
    Next frm
End Sub
 
Private Sub cmdSupport_Click()
    Call JumpBetweenForms
    Call frmMain.cmdSupport_Click
End Sub
 
Private Sub JumpBetweenForms()
    Dim frm As Form
    
    For Each frm In Forms
        If frm.Name <> "frmMain" Then
            Unload frm
            Set frm = Nothing
        End If
    Next frm
End Sub
 
'This is frmMain.cmdSupport_Click event
 
Public Sub cmdSupport_Click()
    On Error GoTo ErrorHandler
    
    Set cnnMain = New ADODB.Connection
    cnnMain.CursorLocation = adUseClient
    
    Call modError.ADO_Error
    
    Screen.MousePointer = vbHourglass
    frmSupport.Show
    Me.Hide
    Screen.MousePointer = vbNormal
    
ErrorHandler:
    If Err.Number = -2147467259 Or Err.Number = -2147217865 Then
        Dim intYesNo As Integer
        intYesNo = MsgBox("System could not find DATABASE or DATABASE format is incorrect. Please locate it and press Apply Changes button. Would you like to locate it.", vbCritical + vbYesNo, "Austrak Licencing Management System")
        If intYesNo = 6 Then
            Me.Hide
            frmAdmin.Show
        Else
            End
        End If
    End If
End Sub

[BuggyProgrammer]

i thought you said you changed

If frm.Name <> "frmMain" Then

to

If frm.Name <> frmMain.Name Then




how many forms do you have? post all your unload code like i said.

[wrack]

I tries that way aswell and in all other forms its just "frmMain" not frmMain.Name

I thought that doesn't make any difference as it works in all other forms...

Cheers...

[BuggyProgrammer]

so did you check your ALL unload code? you never actually said you did you just assumed it would be ok. make sure you don't have any frmMain.Unload or something that would unload all forms.

[wrack]

I checked everywhere and couldn't find anything which unloads the frmMain...

Cheers...

[KayJay]

I have had similar, though not identical, problems. Try using

frmmain.Show
    Dim frm As Form
    For Each frm In Forms
        If frm.Name <> frmmain.Name Then 
            'Unload frm --> Do not use this
            Set frm = Nothing
        End If
    Next frm

See if that sort of helps.

[Slaine]

Can you not step through the execution (F8) and see at what point it unloads frmMain?

[beachbum]

You sure it is unloaded and not just hidden? I see a few .Hide 's in there... also a bit of spaghetti coding eg frmMain.cmdSupport_Click.

Do a global search for Unload statements or Nothing and Rem them all out and then add back one at a time. Maybe u are unloading frm Main in the unload event of another form

[Wokawidget]

Use:

If Not frm Is frmMain Then

That will do the trick as it's checking to see if frm is the same object as frmMain...simple. Try it, it will work...

Woka

[Wokawidget]

Use:

If Not frm Is frmMain Then

That will do the trick as it's checking to see if frm is the same object as frmMain...simple. Try it, it will work...

Woka

[wrack]

Thank you very much for your help Slaine...

I step through it and found that while unloading all forms except frmMain, say for example I am in frmClient then the Form_Unload event of frmClient had a code to unload all forms and so when it was trying to unlaod all forms except frmMain it was invoking frmClient's Unload event and which was ultimately the cause of trouble...

Appreciate all of your reply and thankx again to make me solve that problem in 1 day...

Cheers...

[BuggyProgrammer]

........ you know i DID tell you 3 times to check ALL your form's unload subs....

[wrack]

BUGGY,

But I was looking for a code like this...

Unload frmMain

and I search through whole code but can't find it obvously because the code was like this...

Dim frm As Form
    
    For Each frm In Forms
        Unload frm
        Set frm = Nothing
    Next frm

I learned a huge lesson today...listen to BUGGY......

Cheers...

[Arc]

Listen to buggy? If you read the thread you will see that i was the one that suggested you look at all the unload subs of the other forms.


But that's ok, I'm used to doing all the work and getting no credit

[BuggyProgrammer]

Originally posted by Arc
Listen to buggy? If you read the thread you will see that i was the one that suggested you look at all the unload subs of the other forms.


But that's ok, I'm used to doing all the work and getting no credit

look 3 replies above yourse

[wrack]

if u see the reply...I am kicking...

but THX to all...

[Arc]

Originally posted by BuggyProgrammer


look 3 replies above yourse

Doh! i'll be damned. You beat me too it hehe. Good Job