Private Sub cmd_eintrag_more_Click()
gesamtpreis
 
'Recordset öffnen
oRs.Open "select * from Zeiterfassung", Conn, adOpenStatic, adLockOptimistic
oRs.AddNew Array("Auftragsnr", "Mitarbeiter", "Kostenstelle", "gesamtpreis", _
  "minuten", "stunden", "datum", "kunde"), Array(Me.text_auftragsnummer.Text, _
  Me.lbl_mitarbeiternr.Caption, Me.lbl_kostenstellenr.Caption, _
  Me.text_gepreis.Text, Me.text_zeit_min.Text, Me.text_zeit_std.Text, _
  Me.text_datum.Text, Me.lbl_kunde.Caption)
oRs.Close
 
cb_kostenstelle.Clear
cb_kostenstelle_füllen
Me.text_gepreis.Text = 0
Me.text_preis.Text = 0
Me.text_zeit_min = 0
Me.text_zeit_std = 0
End Sub
 
Sub gesamtpreis()
Dim std As Double
Dim min As Double
Dim gesamtminuten As Double
Dim Gespreis As Double
 
std = CDbl(text_zeit_std.Text)
min = CDbl(text_zeit_min.Text)
 
gesamtminuten = (std * 60) + min
 
Gespreis = (gesamtminuten / 60) * CDbl(text_preis.Text)
 
text_gepreis.Text = Round(Gespreis, 2)
 
End Sub