Alt bilgiye aktarma hk.

[SIDDIK]

Arkadaşlar bir form sayfasında iki tarih aralığı ve firma adını seçtiğimde ilgili bilgileri çağırıyorum ancak birim fiyatı yazıp TÜM BİRİM FİYATLARA AKTAR dediğimde liste kutusunudaki TUTAR kısmın hepsine aynı tutarları aktarmasını istiyorum. bunun için ne yapmalıyım yardımcı olurmusunuz.

 

[SIDDIK]

arkadaşlar anlatmak istediğimi daha detaylı resimli olarak tekrar atıyorum

 

[beab05]

Merhaba;

Düğmenin tıklama olayına alttaki kodu yazınız..

CurrentDb.Execute "update ANASAYFA SET TUTAR= " & Me.BIRIMFIYAT & "" _
& " where FIRMAADI = '" & Me.FIRMAADI & "'"
Me.Liste5.Requery

 

[SIDDIK]

çok teşekkür ederim.

 

[SIDDIK]

özür dilerim verdiğiniz kodu uyguladım ben form sayfasında iki tarih aralığı seçtim firma adını seçtim ve birim fiyatı girip butona tıkladığımda o iki tarih arasındaki verilerin kayıtlarını değiştirmiyor tablolarda o firmaya ait ne kadar kayıt var ise hepsinin tutarlarını değiştiriyor.

 

[SIDDIK]

sn.beab05 illa liste kutusunda olmayabilir alt bilgidede olabilir o şekildede yapılabilir.

 

[SIDDIK]

arkadaşlar soruma cevap verecek kimse yokmu yardımcı olun lütfen

 

[parametre]

sorunuzu biraz daha acık yazın demekki sorunuzu tam olarak anlatamıyorsuuz kolay gelsin

 

[SIDDIK]

Form sayfasında iki tarih aralığı, firma adı ve Birim fiyatı girip TÜM BİRİM FİYATLARI DEĞİŞTİR dediğimde verilerim geliyor ve fiyatlarımda değişiyor ancak iki tarih aralığı değil tüm verilerin tutarlarını değiştiriyor ben o iki tarih aralığındaki firmanın fiyatlarını değişmesini isyorum aşağıdaki kodda ANASAYFA SET TUTAR demiş işte burası SORGULAR SET TUTAR olması gerekiyor ancak sorguya nasıl bağlı yapacağım onu anlatmaya çalıştım.

CurrentDb.Execute "update ANASAYFA SET TUTAR= " & Me.BIRIMFIYAT & "" _
& " where FIRMAADI = '" & Me.FIRMAADI & "'"
Me.Liste5.Requery

 

[SIDDIK]

örneğimin son halidir.

 

[Taruz]

Merhaba..

Kritere tarihi katacaksanız kodunuz bu şekilde değiştirin..

With DoCmd
.SetWarnings False
.RunSQL "update ANASAYFA SET TUTAR= " & Me.BIRIMFIYAT & "" _
& " where FIRMAADI = '" & Forms.anaform.FIRMAADI & "' and TARIH between Forms.anaform.ILKTARIH and Forms.anaform.SONTARIH"
.SetWarnings True
End With
Me.Liste5.Requery

 

[SIDDIK]

sn. taruz çok teşekkür ederim. tam istediğim oldu

 

[assenucler]

Sayın SIDDIK;

Merhaba..

Örneğiniz ilgimi çekti, sayın Taruz'un son kodundan sonraki halini ekler misiniz?

Teşekkürle.

 

[SIDDIK]

Sn.assenucler mesajınızı biraz geç gördüm kodu ekleyip o şekilde örneği gönderdim. başka arkadaşlarada faydalı olmasını dilerim.