Formlarınızın Kaç Defa Açıldığını Merak Ediyormusunuz.
Burun Örnek Uygulamaya.
Örnek Alıntıdır.
Teşekkürler hocam eline sağlık
Şu da mümkün. Örnek olması açısından.
Kod:
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:
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.
programın kaçdefa açıldığı ve enson açılış tarihi ve saatine bir örnek
Gelir gider programı
teşekkürler Allah razı olsun bir şeyler öğreniyoruz
Katkı ve paylaşımlarınızdan dolayı emeği geçenlere teşekkürler. Saygılar...