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

Derecelendirme: 0/5 - 0 oy

kurt61

Üye
Kullanici Avatari
Üye
R.... K....
41
9
30/11/2009
5
Trabzon
Ofis 2007
10/09/2017,18:16
Çö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


Ek Dosyalar
.rar   FORM FORMÜL SONUÇLARINI TABLOYA KAYDET.rar (Dosya Boyutu: 28,23 KB / İndirme Sayısı: 6)
kurt61, 30-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Kur@l

AccessTR.Net
Kullanici Avatari
Uzman
2.032
05/11/2008
KONYA
Ofis 2010
Dün,17:58
Çö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.
Cevapla

kurt61

Üye
Kullanici Avatari
Üye
R.... K....
41
9
30/11/2009
5
Trabzon
Ofis 2007
10/09/2017,18:16
Çö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.
Cevapla

kurt61

Üye
Kullanici Avatari
Üye
R.... K....
41
9
30/11/2009
5
Trabzon
Ofis 2007
10/09/2017,18:16
Çö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.
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.871
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,22:23
Çö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


Cevapla

benremix

Uzman
Kullanici Avatari
Uzman
R.... S....
4.433
17/05/2009
365
Ankara
Ofis 2010
Dün,22:38
Çö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


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Sorgulama Sonrası Tabloya Mükerrer Kayıt U.ALTUN 2 117 30/09/2017, 11:27 U.ALTUN
Çözüldü Excelden Alınan Verilerden Benzersiz Olanları Tabloya Aktarma ozgur89 2 95 29/09/2017, 01:00 ozgur89
Çözüldü Benzersiz Telefon Numaraları Kaydetme ozgur89 7 176 28/09/2017, 22:41 ozanakkaya
Çözüldü Tabloya Yeni Veri Girişini Engelleme ALTANs 2 185 17/08/2017, 13:13 ALTANs
Çözüldü Açılan Kutu Menüsünden Yapılan Seçimlerin Tabloya Kaydı ertans 2 313 07/08/2017, 17:37 ozguryasin

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.