سوال: حذف رکورد از سابفرم.؟ [بایگانی]

saeed28541

یک شنبه 10 آبان 1394, 10:26 صبح

سلام و تشکر از دوستان
یک نمونه گذشتم که در سابفرم با کلیک راست گزینه حذف فعال میشه ولی خطا داره .کسی میتونه رفعش کنه.:متفکر:
ممنون.یاعلی

saeed28541

دوشنبه 11 آبان 1394, 14:20 عصر

دوستان کسی نمیتونه راهنمایم کنه.؟

amirzazadeh

دوشنبه 11 آبان 1394, 16:09 عصر

دوستان کسی نمیتونه راهنمایم کنه.؟
لطفا با فرمت 2007 اپلود كنيد

saeed28541

دوشنبه 11 آبان 1394, 17:27 عصر

سلام.اکسس بنده 2010 هست.ومنظورتون از فرمت 2007 را نفهمیدم.
مگه فرمت فایل های 2010و 2007 accdb نیست.
واینکه اکسس بنده ذخیره با فرمت 2000و2003داره که البته وقتی میخوام ذخیره کنم خطا میده که امکان این کار نیست.
اگه اطلاعات بنده کمه عذر خواهی میکنم ونمیدونم باید چکار کنم.

amirzazadeh

دوشنبه 11 آبان 1394, 17:37 عصر

من رو كامپيوترم نسخه 2010 رو ندارم و طبيعتا نسخه 2007 فايل شما رو شناسايي نمي كنه.

saeed28541

سه شنبه 12 آبان 1394, 22:12 عصر

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

Function Macro1_delete()On Error GoTo Macro1_ÍÐÝ_Err
Dim msg As Integer

("",msg = MsgBoxFa("", vbYesNo + vbMsgBoxRight
If msg = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
End If

Macro1_delete_Exit:
Exit Function
Macro1_delete_Err:
MsgBox Error$
Resume Macro1_delete_Exit
End Function
136465

amirzazadeh

سه شنبه 12 آبان 1394, 22:41 عصر

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

Function Macro1_delete()On Error GoTo Macro1_ÍÐÝ_Err
Dim msg As Integer

("",msg = MsgBoxFa("", vbYesNo + vbMsgBoxRight
If msg = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
End If

Macro1_delete_Exit:
Exit Function
Macro1_delete_Err:
MsgBox Error$
Resume Macro1_delete_Exit
End Function
136465

ميتونيد با استفاده از كامند زير اعلان سيستم رو غير فعال كنيد:

docmd.setwarning false