CHHVBScriptEngine (General)(Declarations)'(Declarations) Option Explicit Function GetError GetError = False If err.number > 0 Then MsgBox (Err.Description) GetError = True err.clear End If End Function 'End of (Declarations) buttonOKClickSub buttonOK_Click() LOHNFormel.Satz = editSatz LOHNFormel.Stunden = editStunden LOHNFormel.Betrag = LOHNFormel.Stunden * LOHNFormel.Satz Zwischenspeicher ( 2 ) = LOHNFormel.Betrag FormDriver.EndModal (1) End Sub CWLScript OnScriptStartSub CWLScript_OnScriptStart()  LabelAN = LOHNFormel.ANStamm (2) LabelANNr = LOHNFormel.ANStamm (1) editStunden = 0.0 editSatz = LOHNFormel.ANKonstante( 1 ) LabelLA = LOHNFormel.Lohnart( 0 ) Dim dbEngine Dim dbDatabase Dim dbBDE On Error Resume Next Set dbEngine = CreateObject ("DAO.DBEngine.35") If GetError () Then MsgBox "Die MS Data Access Objects (DAO 3.5) konnten nicht geladen werden." Exit Sub End If On Error Resume Next Set dbDatabase = dbEngine.OpenDatabase ("BDE.MDB") If GetError () Then MsgBox "Die Datenbank BDE.MDB konnte nicht geffnet werden." Set dbEngine = Nothing Exit Sub End If On Error Resume Next Set dbBDE = dbDatabase.OpenRecordset ("select SUM (Stunden) as Summe from ANStunden where ANNr = '" & LabelANNr & "' and Lohnart = '" & LabelLA & "'") If GetError () Then MsgBox "Beim Zugriff auf die Tabelle ANStunden trat ein Fehler auf." Set dbDatabase = Nothing Set dbEngine = Nothing Exit Sub End If dbBDE.MoveFirst If Not dbBDE.BOF And Not dbBDE.EOF Then editStunden = dbBDE.Fields ("Summe") Else MsgBox "Es wurden keine Zeilen dieses AN gefunden." End If Set dbBDE = Nothing Set dbDatabase = Nothing Set dbEngine = Nothing End Sub UserFormࡱ> Root Entryi*WJOġfoCompObjn  0  }UserFormR KQDB MS Sans Serif (24 ( Arbeitnehmer:D{ 4 (erfate Stunden:D{ 4(OK N t(Label5S{ 4H, { 4( Stundensatz:{ 4H, { 4(Nrg { 4(Lohnart:{ 4(LA { 4 Label1(24Label4 $(buttonOK (2,LabelANE( (editStunden V ( 20Label5$ (editSatz q, 2(LabelANNrE{( 2,Label6"(2( LabelLAE"  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q