Enregistrer les données contenues dans un formulaire excel (text

Private Sub Update_Click()

    Dim strSql As String
    Dim db As Database
    Dim databasepath As String
    Dim fieldIsEmpty As Boolean
    fieldIsEmpty = False

    databasepath = ActiveWorkbook.Path & "\TEST_Rating.accdb"
    
    Set db = DBEngine.Workspaces(0).OpenDatabase(databasepath)
    If f1 = "" Or f2 = "" Or f3 = "" Or f4 = "" Or f5 = "" Then
        MsgBox "!!Bitte füllen Sie alle Felder aus!!"
        fieldIsEmpty = True
    Else
        strSql = "UPDATE Kunden SET Requester ='" & f1 & "', RatingID = '" & f3 & _
            "', Kuerzel_360T = '" & f4 & "', Alpha_CODE_FX_PRO = '" & f5 & "' WHERE KundenID =" & CLng(f2) & ";"
        db.Execute strSql, dbFailOnError
        Set db = Nothing
    End If
End Sub

Private Sub CommandButton1_Click()

    Dim strSql As String
    Dim db As Database
    Dim databasepath As String
    
    databasepath = ActiveWorkbook.Path & "\TEST_Rating.accdb"
    
    Set db = DBEngine.Workspaces(0).OpenDatabase(databasepath)
    

strSql = "DELETE * from Kunden WHERE KundenID =" & CLng(f2) & ";"
    
    db.Execute strSql, dbFailOnError

Set db = Nothing

MsgBox "Die eingegebenen Daten wurden gelöscht"

End Sub