Sn: alpeki99 öncelikle oneri icin sagolun, excelden aldigim degerleri su anda da Access de bir tabloya kaydediyorum ancak bir ay sonra bu Excel tablosuna yeni degerler girilmek zorunda, burda Access in yeni girilen degerleri bir degisiklik olarak görüp formu yenilemesi eski degerlerde bir oynama varsa da yine görüp beni uyarmasi gerekiyor.

Yani birebir karsilastirma yapmam sanki beni dogruya yöneltmez gibi. Access 2003 e cevirdigimde hazirladigim form nedense gorulmuyor bu nedenle kodu buraya yapistiriyorum, dedigim gibi sanki bir beyin firtinasi yapabilsek cozulecek sanki bu is.

Private Sub Befehl220_Click()
Dim response As Variant

response = MsgBox("Müssen die Daten aus den Tabellen aktualisiert werden ?", 49, "Update...")

If response = vbOK Then

DoCmd.SetWarnings False

DoCmd.RunSQL "DELETE FROM Wasser;", 0
DoCmd.RunSQL "DELETE FROM Strom;", 0
DoCmd.RunSQL "DELETE FROM Prozessgase;", 0
DoCmd.RunSQL "DELETE FROM Druckluft;", 0
DoCmd.RunSQL "DELETE FROM Chemikalienwasseraufbereitung;", 0

DoCmd.TransferSpreadsheet acImport, 8, "Wasser", CurrentProject.Path & "\" & "Verbrauch2010.xlsx", True, "Wasser!A1:E60"
DoCmd.TransferSpreadsheet acImport, 8, "Strom", CurrentProject.Path & "\" & "Verbrauch2010.xlsx", True, "Strom!A1:H60"
DoCmd.TransferSpreadsheet acImport, 8, "Prozessgase", CurrentProject.Path & "\" & "Verbrauch2010.xlsx", True, "Prozessgase!A1:F60"
DoCmd.TransferSpreadsheet acImport, 8, "Druckluft", CurrentProject.Path & "\" & "Verbrauch2010.xlsx", True, "Druckluft!A1:F60"
DoCmd.TransferSpreadsheet acImport, 8, "Chemikalienwasseraufbereitung", CurrentProject.Path & "\" & "Verbrauch2010.xlsx", True, "Chemikalienwasseraufbereitung!A1:E60"

Dim rowsource34
rowsource34 = Liste34.RowSource
Dim rowsource36
rowsource36 = Liste36.RowSource
Dim rowsource40
rowsource40 = Liste40.RowSource
Dim rowsource42
rowsource42 = Liste42.RowSource
Dim rowsource44
rowsource44 = Liste44.RowSource

Liste34.RowSource = nil
Liste36.RowSource = nil
Liste40.RowSource = nil
Liste42.RowSource = nil
Liste44.RowSource = nil

DoCmd.OpenQuery "Wasserabfrage"
DoCmd.OpenQuery "Stromabfrage"
DoCmd.OpenQuery "Prozessgasabfrage"
DoCmd.OpenQuery "Druckluftabfrage"
DoCmd.OpenQuery "Chemikalienabfrage"

Liste34.RowSource = rowsource34
Liste36.RowSource = rowsource36
Liste40.RowSource = rowsource40
Liste42.RowSource = rowsource42
Liste44.RowSource = rowsource44

DoCmd.SetWarnings True


MsgBox "Die Daten wurden Aktualisiert"

Else
MsgBox "konnte nicht aktualisiert werden"
End If
End Sub