AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS18042016

Browse Source
This commit is contained in:
SchreiberM
2016-04-19 08:29:57 +02:00
parent b0a74d2e94
commit 034718d22e
37 changed files with 4334 additions and 1746 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Global_Indexer/frmHotKey_Add.vb
View File

@@ -12,7 +12,7 @@
Me.cmbObjekttyp.Items.Add(oDokumentTyp.aName)
Next
Catch ex As Exception
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Eintragen der Objekttypen")
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Eintragen der Objekttypen")
End Try
End Sub
@@ -56,14 +56,14 @@
chklbUser.Items.Add(row.Item("USERNAME"))
Next
Catch ex As Exception
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Load_Users:")
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in Load_Users:")
End Try
End Sub
Sub Load_Profiles()
Try
Me.TBHOTKEY_PROFILETableAdapter.Fill(MyDataset.TBHOTKEY_PROFILE)
Catch ex As Exception
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Load_Profiles:")
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in Load_Profiles:")
End Try
End Sub
Sub List_FormTitles(Tabindex As Integer)
@@ -442,7 +442,7 @@
SQL = "SELECT GUID FROM TBDD_USER WHERE USERNAME = '" & item.ToString & "'"
Dim userid = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True)
If IsNothing(userid) Then
MsgBox("Unerwarteter Fehler beim Holen der User-ID!", MsgBoxStyle.Exclamation)
MsgBox("Unerwarteter Unexpected error inm Holen der User-ID!", MsgBoxStyle.Exclamation)
Exit Sub
End If
SQL = "SELECT GUID FROM TBHOTKEY_USER_PROFILE WHERE USER_ID = " & userid & " and HKPROFILE_ID = " & ListBox_Profiles.SelectedValue