Ich habe ein Makro in Excel erstellt um Daten in Access zu übertragen/aktualisieren. Die
Routine läuft fehlerfrei durch. Der SQL-String zeigt die gültige Information, aber der die
Access-DB wird nicht aktualisiert.
Hat jemand eine Idee, woran das leigen kann?
Mein Makro sieht so aus:
Sub Preise()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim i As Integer, lastRow As Long
Dim sqlcommand As String
Dim strText As String
On Error GoTo Fehler
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0" _
& ";Data Source
=C:\Users\richardlinssen\Documents\Sattler\Zeiten_Datenbank-1.accdb" _
& ";Mode=ReadWrite;"
cn.Open
ThisWorkbook.Worksheets("SOL").Activate
With ThisWorkbook.ActiveSheet
lastRow = .Cells(.Rows.Count, 4).End(xlUp).Row
For i = 2 To lastRow
sqlcommand = " UPDATE Zeiten SET Listenpreis = " & Cells(i, 5) & _
" WHERE Artikelnummer = '" & Cells(i, 4) & "'"
Set rs = cn.Execute(sqlcommand)
Next i
End With
' rs.Close
cn.Close
strText = " Preise aktualisiert"
MsgBox strText
Exit Sub
Fehler:
MsgBox (Err.Description)
End Sub
Leider kann ich mich nicht zurückmelden, da dieses Forum im Moment anscheinend ein
Problem hat Passwörter für neue Registrierungen zu versenden.
Vielleicht kann mir trotzdem jemand helfen.