Merhabalar,

PERSONEL isimli bir tablom var. İçinde personel bilgileri mevcut ve son iki sütun TEBLIG EDEN ve TEBELLUG EDEN veri türü Evet/Hayır şeklinde.

Bu tabloyu kaynak olarak kullanan formda TEBLIG EDEN ve TEBELLUG EDEN alanlarına onay kutusu ile işaretleme yapıyorum. 1 adet kayıt TEBLIG EDEN olarak işaretlenebilir ve diğer kayıtlar TEBELLUG EDEN olabilir. İşaretleme yaptığım buton olayı aşağıdadır:

Dim mesaj
mesaj = MsgBox("DİKKAT!!! Tüm tebellüğ eden alanları işaretlenecektir.", vbYesNo)
If mesaj = vbYes Then
CurrentDb.Execute "update [PERSONEL] set" & "[TEBELLUG_EDEN]=-1"
ElseIf mesaj = vbNo Then
DoCmd.CancelEvent
End If

İşaretlemeleri kaldıran buton olayında -1 değeri 0 olarak iş görüyor. Yapmak istediğim TEBELLUG EDEN alanını işaretlerken TEBLIG EDEN alanını kontrol etmek ve TEBLIG EDEN alanı işaretli olan kaydın TEBELLUG EDEN alanını işaretlememek. Bu prosedürde ne gibi bir değişiklik yapmalıyım.

VBA mesaj sonrasi if dcount(...)>0 veya if dlookup(...)=-1 ile control sonrasi guncelleme yapilabilir.
CurrentDb.Execute "update [PERSONEL] set [TEBELLUG_EDEN]=-1 Where [TEBLIG EDEN]=0" olarak daha onceden TEBLIG EDEN isaretli kayit haricinde ki kayitlarin TEBELLUG_EDEN alanini Evet yapar.

Üstadım, teşekkür ederim. Yarın iş yerinde uygulayacağım.

Hocam, aşağıdaki gibi uyguladığımda eksik işleç hatası veriyor.

CurrentDb.Execute "update [PERSONEL] set [TEBELLUG_EDEN]=-1 Where [TEBLIG EDEN]=0"

Merhaba, aşağıdaki güncelleme sorgusunu oluşturup buton ile çalıştırarak sorunu aştım.

Ancak kodla yapılan soruyu da çalıştırmak isterdim.

UPDATE PERSONEL SET PERSONEL.TEBELLUG_EDEN =-1 WHERE ((([PERSONEL!TEBLIG_EDEN])=0));

Kirmizi ile yazdigin SQL'i kodunu, execute bolumune tasiyabilirsin. Iki SQL arasindaki fark, alan isimleri onun de tablo adinin olmamasi.