Unloading form problem.

[devonknows]

Ok, i posted about forcing a form to unload, now since ive implemented that, when check1.value = true, when you close the form, it doesnt unload,
when check1.value = false, it unloads perfectly and does all the ADO with it, but when check1.value = true its doing the ADO commands, but just not unloading, if anyone can shed some light would be most greatful.

Kind Regards
Devon.

Module code.

Option Explicit
Public g_fmrSearch As fmrSearch
Public g_frmsettings As frmsettings
 
Public Sub Main()
Set g_fmrSearch = New fmrSearch
Set g_frmsettings = New frmsettings
'which ever form you want to startup put that form name followed show property
g_fmrSearch.Show
End Sub
 

fmrSearchcode

Option Explicit
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOW = 5
Private rs As ADODB.Recordset
Private Sub Check1_Click()
If Check1.Value = 0 Then
g_fmrSearch.Top = g_fmrSearch.Top - 1255
g_fmrSearch.Height = 2805
updatesearchall = 0
List1.Visible = True
Else
If Check1.Value = 1 Then
g_fmrSearch.Height = 1550
List1.Visible = False
g_fmrSearch.Top = fmrSearch.Top + 1255
updatesearchall = 1
End If
End If
End Sub
Private Function searchallfunction()
        Call getdbinfo
        Call connection
        Set getsd = conn.Execute(getsearchdata, , adCmdText)
        Set getpd = conn.Execute(getprogramdata, , adCmdText)
        Dim replacementtext
        Dim maxsites As Integer, sitesopened As Integer, maxsitereached As Integer
        Dim endcommand
        sitesopened = 1
        maxsitereached = 0
        maxsites = getpd!sitesopensafetymarker
        Do While Not getsd.EOF
            If sitesopened <= maxsites Then
                replacementtext = Replace(Text1.Text, " ", getsd!keywordsplitmarker)
                endcommand = getsd!endcommandstring
                ShellExecute hwnd, "open", getsd!websitesearchaddress & replacementtext & endcommand, vbNullString, vbNullString, SW_SHOW
                getsd.MoveNext
                sitesopened = sitesopened + 1
                lastsearch = Text1.Text
            Else
                If maxsitereached = 1 Then
                    getsd.MoveNext
                Else
                    MsgBox "Your Current Settings do not allow for you to go above " & maxsites & " sites," & vbCrLf & "You can change this in the settings menu.", vbInformation, "Information!"
                    maxsitereached = 1
                    getsd.MoveNext
                End If
            End If
        Loop
End Function
Private Sub btnsearch_Click()
    If Text1.Text <> "" Then
        If Check1.Value = 1 Then
            If lastsearch = Text1.Text Then
                  answer = MsgBox("" & Text1.Text & " matches the previous search, are you sure" & vbCrLf & "you want to continue?", vbYesNo, "Are you sure?")
                  If answer = 7 Then
                        MsgBox "Search Halted", vbInformation, "Search Halted"
                  Else
                         Call searchallfunction
                  End If
            Else
               Call searchallfunction
            End If
        Else
            MsgBox "Unticked"
        End If
    Else
        MsgBox "You need to input query into the search field.", vbCritical, "An Error has Formed"
    End If
End Sub
 
Private Sub Form_KeyPress(keyascii As Integer)
If keyascii = vbKeyReturn Then
btnsearch_Click
End If
 
End Sub
Private Sub Form_Terminate()
If updatesearchall = 1 Then
    Call getdbinfo
    Call connection
    Set rs = New ADODB.Recordset
    rs.Open Source:="programdata", _
        ActiveConnection:=conn, _
        CursorType:=adOpenDynamic, _
        LockType:=adLockOptimistic
    rs!searchall = updatesearchall
    rs.Update
    Unload Me
End If
If updatesearchall = 0 Then
    Call getdbinfo
    Call connection
    Set rs = New ADODB.Recordset
    rs.Open Source:="programdata", _
        ActiveConnection:=conn, _
        CursorType:=adOpenDynamic, _
        LockType:=adLockOptimistic
    rs!searchall = updatesearchall
    rs.Update
Unload Me
 
    End If
    Unload Me
End Sub
 
Private Sub mnuPref_Click()
settingsopen = 1
Unload Me
g_frmsettings.Show
End Sub
 
Private Sub mnuQuit_Click()
Unload Me
End Sub
Private Sub Form_Load()
updatesearchall = 2
answer = 6
Call getdbinfo
Call connection
Set getpd = conn.Execute(getprogramdata, , adCmdText)
If getpd!searchall = True Then
Check1.Value = 1
Check1.Caption = "Search all torrent sites? (" & getpd!numsites & ")"
g_fmrSearch.Left = 8300
g_fmrSearch.Top = 9555
List1.Visible = False
g_fmrSearch.Height = 1550
Else
Check1.Value = 0
Check1.Caption = "Search all torrent sites? (" & getpd!numsites & ")"
List1.Visible = True
g_fmrSearch.Top = 8300
g_fmrSearch.Left = 8300
g_fmrSearch.Height = 2805
End If
 
End Sub
 

[devonknows]

Slight update on the post above.

if the form starts in with Check1.Value = 1
if the form is in Check.Value = 0 the form always unload no matter what
but
after the check1 has been clicked then if the Check1.value = 1 it doesnt unload it just closes, hope that helps you

Kind Regards
Devon