diff --git a/.vs/DPM2016/v16/.suo b/.vs/DPM2016/v16/.suo index 1953884..9cc0b00 100644 Binary files a/.vs/DPM2016/v16/.suo and b/.vs/DPM2016/v16/.suo differ diff --git a/DPM2016/frmMain.vb b/DPM2016/frmMain.vb index 180c428..735d1c2 100644 --- a/DPM2016/frmMain.vb +++ b/DPM2016/frmMain.vb @@ -54,6 +54,7 @@ Public Class frmMain Next End Sub Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load + AddHandler DevComponents.DotNetBar.LocalizationKeys.LocalizeString, AddressOf LocalizeString Dim args As String() = Environment.GetCommandLineArgs() Try @@ -121,11 +122,11 @@ Public Class frmMain If f.DialogResult = DialogResult.Abort Then Application.Exit() Me.Close() - Exit Sub - End If - PatientToolStripMenuItem_Click(sender, e) + Exit Sub End If - Else + PatientToolStripMenuItem_Click(sender, e) + End If + Else MsgBox("Die Datenbank konnte nicht gefunden werden. Die Anwendung wird geschlossen.", vbExclamation) Application.Exit() End