Private Sub btnLöschen_Click()
Dim Ddb As DAO.Database
Dim Rdl As DAO.Recordset
 
Set Ddb = OpenDatabase(App.Path & "\Data\jbvfor.mdb")
Set Rdl = Ddb.OpenRecordset("SELECT * FROM tbl_Neuprojekte WHERE Angebotsnummer" & _
  "='" & CStr(Me.txtAngnr) & "'")
 
Dim Antw
Meld = "Wollen Sie den Datensatz wirklich löschen ? "
Style = vbYesNo + vbCritical
Ueber = "Datensatz löschen"
Antw = MsgBox(Meld, Style, Ueber)
If Antw = vbYes Then 
    Rdl.Delete
    MsgBox "Datensatz wurde gelöscht, sie werden zurück ins Hauptmenü" & _
      "geleitet", vbOKOnly + vbInformation, "Gelöscht."
    AngebotsnummerWahl.Angebotswahl.ListIndex = -1
    Unload AngebotsnummerWahl
    Unload Angebotsnummer
    Unload Start
    Load Start
    Start.Show
    Start.Refresh
Else
    MsgBox "Aktion durch den Benutzer abgebrochen", vbOKOnly + vbInformation, _
      "Abbruch"
    Exit Sub
End If
 
End Sub

Private Sub txtEigendienstleistung_Change()
If Me.txtEigendienstleistung = "" Then
    Me.txtEigendienstleistung = "0"
End If
 
If IsNumeric(Me.txtEigendienstleistung) = False Then
Else
    Me.txtProjektumsatzGesamt = FormatCurrency(CCur(Me.txtEigenprodukte) + CCur( _
      Me.txtEigendienstleistung) + CCur(Me.txtFremdprodukte) + CCur( _
      Me.txtFremddienstleistung))
    Me.txtChanceinEuro = Me.txtProjektumsatzGesamt * Me.txtChanceinProzent
End If
End Sub