ایراد type mismach هنگام اجرای کد خروج

[mohsen.sh88]

این کد رو برای این استفاده می کنم که رویداد بسته شدن
دیتابیس در جدول لاگ ذخیره بشه اما روی یکی از فرمها ارور بالا رو می ده می تونید کمک کنید یا کد بهتری رو پیشنهاد بدید .

Private Sub Form_Close()
Dim out As ADODB.Connection
Set out = New ADODB.Connection
Set out = CurrentProject.Connection.Execute(insert into userlog ([kod_karbar],[event]) values (( '"& TxtCurUser &"'),('out')))
End Sub


ممنون:تشویق:

[mohsen.sh88]

با عرض سلام
این تاپیک رو از بخش اکسس منتقل کردم چون بعد از 3 روز بی جواب موند امیدوارم اینجا به جواب برسم

[فرید نجفلو]

دوست عزیز اولا مقدار تکست باکس رو چک کنید و اگه کد کاربر از نوع Number هست تک نقل قول ها رو بردارید و تست کنید

Set out = CurrentProject.Connection.Execute(insert into userlog ([kod_karbar],[event]) values ( "& TxtCurUser &",'out')")

[mohsen.sh88]

کد کاربر از نوع Number هست ولی بعد از اصلاح اشکال به قوت خود باقیه

[mohsen.sh88]

دوستان داخل جدول رو کنترل کردم کد به درستی هر داده ای اعم از عدد یا متن رو داخل جدول insert می کنه
حتی همین کد کد فرم log in روی رویداد کلیک ورود بدون هیچ مشکلی عمل می کنه ممکنه از رویداد close باشه ؟
چه راه حلی رو پیشنهاد می کنید که هنگام بسته شدن پروژه جایگزینش کنم .

[mohsen.sh88]

مقدار تکس باکس خودش از یک فرم دیگه مقدار دهی شده ممکنه دلیلش این باشه ؟

[mohsen.sh88]

از راهنمایی های شما کمال تشکر را دارم!!!