check box

[karmand]

در فرم یک چک باکس دارم که اگر تیک آن را برداریم در جدولی رکوردی حذف میشود برای احتیاط یک اخطار گذاشتم و کلید بله و خیر میخواهم زمانی که در قسمت اخطار از برداشتن تیک پشیمان شدند و دگمه خیر را زدند تیک گذاشته شود چون با برداشته شدن تیک رخداد اتفاق می افتد

[smderfan]

سلام
می تونید در رویدادی که مربوط به خیر است کد زیر را قرار دهید:

Me.CheckBoxName.Value = True
CheckBoxName : نام Check Box ای است که شما در فرم قرار دادید و باید بجای CheckBoxName درج شود.

[مهدی قربانی]

سلام
منظورتون همينه ؟

Private Sub delete_AfterUpdate()
On Error GoTo Err_delete_AfterUpdate

If MsgBox("آيا قصد حذف ركورد مورد نظر را داريد ؟", vbQuestion + vbMsgBoxRight + vbYesNo, _
"حذف ركورد") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True

Else

DoCmd.CancelEvent
'Me.delete = -1
Me.Undo
End If

Exit_delete_AfterUpdate:
Exit Sub

Err_delete_AfterUpdate:
MsgBox Err.Description
Resume Exit_delete_AfterUpdate:

End Sub