Databases
StackOverflow2013
Postsdbo
POWinform does not close within If Statement, but does outside of it
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POWinform does not close within If Statement, but does outside of it
    primarykey
    data
    text
    <p>The sub below runs from the winform called frmWelcomePage. There are several buttons on my form that use that sub. The sub works as expected, but I had to add an If statement to my code, within that statement, if the condition is met, then the frmWelcomePage needs to close/hide. However, while the everything within the If statement works when the condition is met, my frmWelcomePage does not close, it remains open. If I bypass the condition, at the end of my Sub I also ask to close this form, and that works fine. I can't figure out then why it does not work within the If statement. Here is my code:</p> <pre><code>Public Sub GoToSheets(sheetName As String) 'This sub is used to open the workbook on the selected sheet. 'This checks to see if Excel workbook is opened, if not it 'opens Excel, the workbook and then the selected sheet. If the workbook is 'opened, it goes to the selected sheet. '@param sheetName, sheet to be displayed Cursor.Current = Cursors.WaitCursor Try 'get an existing excel.application object xlApp = CType(GetObject(, "Excel.Application"), Application) Catch ex As Exception 'no existing excel.application object - create a new one xlApp = New Excel.Application End Try Dim xlWBName As String = "2011.1004.Compensation Template" Dim xlBookPath As String = Path.Combine(Directory.GetCurrentDirectory()) xlApp.Visible = True Try 'get the opened workbook xlBook = xlApp.Workbooks(xlWBName &amp; ".xlsx") Catch ex As Exception 'open it xlBook = xlApp.Workbooks.Open(xlBookPath &amp; "\" &amp; xlWBName &amp; ".xlsx") End Try Try xlSheet = CType(CType(xlBook.Sheets("summarySheet"), Excel.Worksheet), Excel.Worksheet) Dim strChckRange As String = xlSheet.Range("A2").Value If strChckRange Is Nothing Then frmWelcomePage.Hide() 'it will not close here Dim frmClientInfo As New frmClientInformation frmClientInfo.Show() Else xlSheet = CType(CType(xlBook.Sheets(sheetName), Excel.Worksheet), Excel.Worksheet) 'close the navigation instance on the welcome page frmNavigation.Close() 'activate requested sheet xlSheet.Activate() 'display as dashboard DashboardView() System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp) GC.Collect() GC.WaitForPendingFinalizers() GC.Collect() GC.WaitForPendingFinalizers() frmWelcomePage.Hide() ' it closes here just fine chkForm() Cursor.Current = Cursors.WaitCursor End If Catch ex As Exception End Try End Sub </code></pre>
    singulars
    1. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. PTQuestion
    1. This table or related slice is empty.
    1. USJose M.
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    2. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. CODon't catch empty exceptions.
      singulars
      1. POWinform does not close within If Statement, but does outside of it
      1. USLarsTech
    2. COWhat happens if you comment out the two other lines that create/show `frmClientInformation` in the true-condition of the if-statement? I'm working if it's something related to parent/child relationships between forms... (Maybe a child can't be shown without showing the parent?)
      singulars
      1. POWinform does not close within If Statement, but does outside of it
      1. USJeff Bridgman
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload