AccessTr.neT

Arkadaslar umarim bu sorunuma cevap verebilecek bir üstad vardir aramizda. Ornek eklemeyecegim cunku hem sorum genel bir soru hem de Access 2007 oldugundan pek kimsenin ilgisini cekmiyor. Bir formum var ve bir Excel tabelasindan alinan degerleri sorgular yardimiyla isleyerek istedigim degerleri gosteriyor.

Sorun su ki bu degerler formu her calistirdigimda yenileniyor, bu yüzden de örnegin bir isci Excel tabelasindaki herhangi bir degeri 3 ay sonra yalnislikla degistirirse formumda da bu deger degismis olacak. Bunu önlemek icin ne yapmaliyim nasil bir yol izlemeliyim, yalnizca sizin de fikirlerinizi alsam yeterli gerisini kurcalayarak bir sekilde hallderiz insallah.

Önerilerinizi dört gözle bekliyorum .Tesekkurler simdiden.

---

Arkadaslar örnegin forumda Dirty komutunu buldum, bu komutla isin icinden cikmam mumkun olabilir mi?

Bunun disinda da her turlu oneriye acigim tekrar sagolun

Çok karışık bir iş. Örnek dosya olmazsa olmaz gibi gözüküyor. Ancak önerecek şeyim şu olabilir excelden aldığınız verileri tablolarınızada kaydedin. Excelden aldıklarınız ile karşılaştırın.

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

Access 2007'de olsa bir örnek dosya göndermelisiniz.