Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
04/11/2008 13:22
Konu Sahibi
nihatkr
Yorumlar
11
Okunma
3988
Konuyu Oyla:
  • Derecelendirme: 3/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 3/5 - 1 oy
Kullanici Avatari

nihatkr

Onursal Üye
 89
 814
 29/10/2008
272
 İstanbul
 
 Ofis 2007
 03/09/2016,04:40
Formlarınızın Kaç Defa Açıldığını Merak Ediyormusunuz.

Burun Örnek Uygulamaya.

Örnek Alıntıdır.



Kullanici Avatari

Puletin

Onursal Üye
 Belirtilmemiş
 40
 1.717
 01/11/2008
416
 -
 
 Ofis 2003
 24/12/2016,00:18
Teşekkürler hocam eline sağlık
Az


Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...

Kullanici Avatari

Bilgisayarcı

Aktif Üye
 Belirtilmemiş
 34
 658
 29/01/2008
410
 Antalya
 
 Ofis 2003
 01/11/2011,15:17
Şu da mümkün. Örnek olması açısından.

Kod:
1
2
3
4
5
6
7
Sub formsay(Form As String)
Dim s  As String
  s = "update hesap set " & Form & "=" & Form & "+1"
  DoCmd.SetWarnings False
  DoCmd.RunSQL s
  DoCmd.SetWarnings True
End Sub

Ama kaç tane form varsa o kadar field eklemekte zor.
Form Adet olacak şekilde bir tablo olsa daha hızlı olur gibi.

Kod:
1
2
3
4
5
6
7
Sub formsay(Form As String)
Dim s  As String
  s = "update hesap set Adet=nz(Adet,0)+1 where Form='" &form &"'"
  DoCmd.SetWarnings False
  DoCmd.RunSQL s
  DoCmd.SetWarnings True
End Sub

Hatta önce satır var mı diye kontrol edip (DcounT) sonra updae veya insert daha iyi olur. En azından programı hazırlarız bu kodu gömeriz gerisini o halleder.



Kullanici Avatari

bayFARUK

Aktif Üye
ba.... Fa....
 44
 17
 86
 30/10/2008
37
 Sivas
 müdür
 Ofis 2010 64 Bit
 29/12/2018,21:22
programın kaçdefa açıldığı ve enson açılış tarihi ve saatine bir örnek
Gelir gider programı


[Resim: gif48.gif]

Kullanici Avatari

malidolu

Aktif Üye
 41
 10
 65
 12/09/2009
15
 İstanbul
 
 Ofis XP
 17/01/2019,00:01
teşekkürler Allah razı olsun bir şeyler öğreniyoruz


malidolu, 12-09-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

benremix

Onursal Üye
Ra.... So....
 52
 127
 4.442
 17/05/2009
365
 Ankara
 Şirket Sahibi
 Ofis 2010 64 Bit
 17/01/2019,08:09
Katkı ve paylaşımlarınızdan dolayı emeği geçenlere teşekkürler. 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

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