Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
12/01/2010 12:50
Konu Sahibi
scihansafak
Yorumlar
3
Okunma
1135
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

scihansafak

Üye
 35
 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.

Kullanici Avatari

alpeki99

Uzman
OL....
 38
 6.138
 162
 29/10/2008
 Bursa
 Yazılım Geliştirici
 Ofis 2010 32 Bit
 24/11/2018,10:13
Ç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.

Kullanici Avatari

scihansafak

Üye
 35
 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.

Kullanici Avatari

Seruz

Uzman
SE.... UZ....
 47
 1.564
 7
 30/10/2008
814
 Tekirdağ
 BT Şefi
 Ofis XP
 30/11/2018,14:06
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


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Farklı Bir Tablodan Eşleşen Değer Getirme Eray Uyar 5 380 18/10/2017, 05:15
Son Yorum: ozanakkaya
  farklı sayfalardaki verileri anasayfada toplama ve aylık döküme aktarma mehmetb84 1 1.799 12/07/2014, 09:17
Son Yorum: alpeki99
  iki farklı kumaşı nasıl girerim ömer74 1 1.328 10/02/2014, 17:47
Son Yorum: ozanakkaya
  Alt form olarak çalışmayan form hakkında. direnist 2 1.278 04/11/2013, 01:55
Son Yorum: direnist
  formda arama ve formdan seçili kayıtların herbirini farklı sayılarda yazdırma F.Ç 0 1.321 11/07/2013, 20:01
Son Yorum: F.Ç

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.
123444