تغییر در فیلد مرتبط به لیست باکس

[wolfstander]

سلام
در فایلی که ضمیمه شده، من دو فیلد اصلی دارم و یک فیلد اتونامبر
به این صورته که من میخوام پیام هایی رو برای کاربران بذارم
وقتی که کاربر وارد شد و روی لیست باکس کلیک کرد، پیام براش نمایش داده بشه
و فیلد Seeاز حالت Yes که الان هست و به صورت تیک خورده نمایش داده می شه، به حالت تیک نخورده در بیاد
تا دفعه بعد که کاربر صفحه رو باز کرد، آیتم هایی رو که فیلد See اونها به صورت Yes هست رو فقط ببینه و سایر موارد نشون داده نشه
من تو رویداد Click نوشتم

me.list6.column(0)=0

ولی ارور داد
چه کار باید کنم؟
با تشکر از شما

[Abbas Amiri]

می توانید ازکد زیر استفاده کنید:



Private Sub List6_Click()
Dim sSQL As String
If Not [see?] Then
sSQL = "UPDATE tbl_list_Click SET [see?] = -1 WHERE nn = " & List6
DoCmd.RunSQL sSQL
Me.Requery
End If
End Sub