Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
16/09/2012 01:16
Konu Sahibi
kurt61
Yorumlar
5
Okunma
1638
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

kurt61

Üye
12055
Ra.... KU....
 53
 9
 41
 30/11/2009
5
 Trabzon
 
 Ofis 2007
 31/03/2018,10:30
Çözüldü 
Arkadaşlar;
Form üzerinde formül içeren verileri tabloya kaydetmesini istiyorum (kısmen yaptım), ekteki örneği düzeltip gönderebilirseniz çok memnun olurum, teşekkürler.
Fur


kurt61, 30-11-2009 tarihinden beri AccessTr.neT üyesidir.

Kur@l

Uzman
266
 43
 59
 2.034
 05/11/2008
 -
 
 Ofis 2010 32 Bit
 01/05/2019,23:41
Çözüldü 
Aşağıda ki kodu Dener misiniz? Sanırım istediğiniz gibi olacaktır.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database

Private Sub HedefNufus_BeforeUpdate(Cancel As Integer)
'On Error Resume Next
Me.HedefNufus = ([YillikHedefNufus]) / 12
Me.Oran = ([AsiSayisi] / [HedefNufus]) * 100
End Sub
Private Sub Form_Current()
'On Error Resume Next
Me.HedefNufus = ([YillikHedefNufus]) / 12
Me.Oran = ([AsiSayisi] / [HedefNufus]) * 100
End Sub


komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.

kurt61

Üye
12055
Ra.... KU....
 53
 9
 41
 30/11/2009
5
 Trabzon
 
 Ofis 2007
 31/03/2018,10:30
Çözüldü 
Sayın Kur@l Allah sizlerden razı olsun, göndermiş olduğunuz kodu uyguladım, sorunsuz çalışıyor. Bana zaman ayırdığınız için çok teşekkür ederim, çok mutlu oldum sağ olasın.
Diğer arkadaşlar da yararlanır düşüncesiyle örnek dosyayı siteye yüklüyorum.
Ek Dosyalar
FORMÜL SONUÇLARINI TABLOYA KAYDET.rar


kurt61, 30-11-2009 tarihinden beri AccessTr.neT üyesidir.

kurt61

Üye
12055
Ra.... KU....
 53
 9
 41
 30/11/2009
5
 Trabzon
 
 Ofis 2007
 31/03/2018,10:30
Çözüldü 
(16/09/2012 01:29)Kur@l Adlı Kullanıcıdan Alıntı: Aşağıda ki kodu Dener misiniz? Sanırım istediğiniz gibi olacaktır.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database

Private Sub HedefNufus_BeforeUpdate(Cancel As Integer)
'On Error Resume Next
Me.HedefNufus = ([YillikHedefNufus]) / 12
Me.Oran = ([AsiSayisi] / [HedefNufus]) * 100
End Sub
Private Sub Form_Current()
'On Error Resume Next
Me.HedefNufus = ([YillikHedefNufus]) / 12
Me.Oran = ([AsiSayisi] / [HedefNufus]) * 100
End Sub


Programda hatalar çıkmaya başladı, örneğin formül sonucunda hesaplanan değer tabloya yazılmamaya başladı. Ayrıca tablo ve sorgular da yapılan veri girişleri hesaplanmıyor, kayıt gezinti tuşları çalışmıyor. Kayıtlar silinebilmeli, tablo verilerinde yapmış olduğum değişiklikler hesaplanabilmeli. Yardımlarınızdan dolayı sizlere çok teşekkür ederimOzur


kurt61, 30-11-2009 tarihinden beri AccessTr.neT üyesidir.

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 481
 12.057
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,14:37
Çözüldü 
Kodları aşağıdakiler ile değiştirip deneyebilir misin ?

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
Option Compare Database


Private Sub AsiSayisi_AfterUpdate()
Me.Oran = ([AsiSayisi] / [HedefNufus]) * 100
End Sub


Private Sub YillikHedefNufus_AfterUpdate()
Me.HedefNufus = ([YillikHedefNufus]) / 12
End Sub


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

benremix

Onursal Üye
6766
Ra.... So....
 52
 127
 4.443
 17/05/2009
365
 Ankara
 Şirket Sahibi
 Ofis 2010 64 Bit
 21/05/2019,21:53
Çözüldü 
Kurt61 Ozan hocamın kodları deneyebildiniz mi? Lütfen geri bildirimde bulununuz.

Saygılar...


Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Sorguda Koşullu Formül Kullanma haziran4 9 323 07/05/2019, 16:46
Son Yorum: haziran4
Çözüldü Formda Formül Kullanma haziran4 8 206 02/05/2019, 13:04
Son Yorum: haziran4
Çözüldü Web Sitesinden Tabloya Veri Alma aliyuzen 3 297 10/04/2019, 15:43
Son Yorum: ozanakkaya
Çözüldü Tablodan Tabloya Veri access acemisi 28 705 05/04/2019, 02:37
Son Yorum: haliliyas
Çözüldü Frm Altbilgi Değerinin Tabloya Taşınması access acemisi 9 363 04/03/2019, 02:53
Son Yorum: access acemisi

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