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
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