Alıntı:
bSQL = "SELECT * FROM tblBanner "
bSQL = bSQL & "WHERE Durum = True AND Baslangic <= #"& Date() &"# AND Bitis >= #"& Date() &"# AND Alan_ID = "& intBannerTur
kdFonksiyon.Open bSQL, adoCon, 1, 3
|
Bunun sebebi muhtemelen buradaki kod olabilir. kdFonksiyon.Open bSQL, adoCon, 1,
3 Oradaki
3 yazısını
1 yapmayı dene bence. Çünkü sen sadece SELECT ile veri çekmeye çalışıyorsun. Ancak banner gösterim sayısını da arttırmak için yazma izniyle tabloyu açıyorsun. Tablolar yazma izniyle açılınca Access ortak kullanımlara izin vermeyebiliyor. Oradaki 3 iznini 1'e çevir. "kdFonksiyon.Open bSQL, adoCon, 1, 1" olacak yani.
Bunu yapınca
Alıntı:
kdFonksiyon("Gosterim") = intBannerGosterim + 1
kdFonksiyon.Update
|
kısmında hata verecek. Tabloyu okumak için açtığından dolayı gösterim sayısını arttıramayıp kızacak. O 2 satırı da silip yerine
Alıntı:
sql="update tblBanner set Gosterim=Gosterim+1 WHERE Durum = True AND Baslangic <= #"& Date() &"# AND Bitis >= #"& Date() &"# AND Alan_ID = "& intBannerTur
adoCon.execute sql
|
gibi bir kod yazabilirsin.
Böylece iki kişi aynı anda banner görüntülemeye kalktığında paylaşım hatasından kurtulursun diye tahmin ediyorum.