Hallo
Ich hab mir eine Mediendatenbank angelegt,die im Frontend bereich mit dem formular f_search_Main
verwaltet werden kann,die Datenquelle des formulars ist ein RS;hab jetzt einen Button zum löschen eingefügt,und mit code hinterlegt,doch
das Programm stoppt mit einem Laufzeitfehler uns zwar „AKtualisieren nicht möglich,momentan gesperrt.“
hier der code:
Private Sub delete_Click()
Dim sSQL As String
Set conn = New ADODB.Connection
With conn
.CursorLocation = adUseServer
.Provider = „Microsoft.Jet.OLEDB.4.0“
.ConnectionString = CurrentProject.Path & „\Musikvideos.mdb“
.Open
End With
sSQL = "SELECT t_Musikvideos.ID, t_Musikvideos.Titel, t_Musikvideos.Filegroesse, t_Artist.Artist, t_Kategorie.Kategorie, t_Musikvideos.Quality, t_Musikvideos.[Anmerkung], t_Musikvideos.Benotung, t_Musikvideos.Album, t_Musikvideos.Published FROM t_Kategorie INNER JOIN (t_Artist INNER JOIN t_Musikvideos ON t_Artist.ID_Artist = t_Musikvideos.FK_ID_Artist) ON t_Kategorie.ID_Kategorie = t_Musikvideos.FK_ID_Kategorie "
sSQL = sSQL & get_Sortstring
Set rsOut = New ADODB.Recordset
rsOut.Open sSQL, conn, adOpenDynamic, adLockOptimistic, adCmdText
rsOut.MoveLast
rsOut.MoveFirst
Do While rsOut.EOF = False
rsOut.delete
rsOut.Update
rsOut.MoveNext
Loop
rsOut.Close
End Sub
Kann mir da jemand weiterhelfen