Form üzerinde yalniz son kayittan farkli datalarin yenilenmesi
Tarih
12/01/2010 12:50
Konu Sahibi
scihansafak
Yorumlar
3
Okunma
920
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



scihansafak
Üye
Kullanici Avatari
Üye
12
3
11/12/2009
0
Ülke Dışı
Ofis 2007
03/02/2010,14:11
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
scihansafak, 11-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


alpeki99
Yeniden başlayabilmek...
Kullanici Avatari
Uzman
O....
5.977
29/10/2008
Ordu
Ofis 2013 32 Bit
Bugün,15:11
Ç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.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla


scihansafak
Üye
Kullanici Avatari
Üye
12
3
11/12/2009
0
Ülke Dışı
Ofis 2007
03/02/2010,14:11
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
scihansafak, 11-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.544
7
30/10/2008
804
Tekirdağ
Ofis XP
02/12/2016,15:18
Access 2007'de olsa bir örnek dosya göndermelisiniz.
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  farklı sayfalardaki verileri anasayfada toplama ve aylık döküme aktarma mehmetb84 1 1.440 12/07/2014, 09:17 alpeki99
  iki farklı kumaşı nasıl girerim ömer74 1 1.039 10/02/2014, 17:47 ozanakkaya
  Alt form olarak çalışmayan form hakkında. direnist 2 974 04/11/2013, 01:55 direnist
  formda arama ve formdan seçili kayıtların herbirini farklı sayılarda yazdırma F.Ç 0 1.045 11/07/2013, 20:01 F.Ç
  bir combobox da iki farklı hücredeki bilgileri görmek yalp_92 3 1.900 15/06/2013, 02:47 ozanakkaya


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya