Form üzerinde yalniz son kayittan farkli datalarin yenilenmesi - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: AccessTr.neT Genel (https://accesstr.net/forum-accesstr-net-genel.html) +--- Forum: Çöp Kutusu (https://accesstr.net/forum-cop-kutusu.html) +--- Konu Başlığı: Form üzerinde yalniz son kayittan farkli datalarin yenilenmesi (/konu-form-uzerinde-yalniz-son-kayittan-farkli-datalarin-yenilenmesi.html) |
Form üzerinde yalniz son kayittan farkli datalarin yenilenmesi - scihansafak - 12/01/2010 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 Cvp: Form üzerinde yalniz son kayittan farkli datalarin yenilenmesi - alpeki99 - 12/01/2010 Ç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. Cvp: Form üzerinde yalniz son kayittan farkli datalarin yenilenmesi - scihansafak - 12/01/2010 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 Cvp: Form üzerinde yalniz son kayittan farkli datalarin yenilenmesi - Seruz - 15/01/2010 Access 2007'de olsa bir örnek dosya göndermelisiniz. |