کد نویسی if برای فیلد yes/no

[shkeramat]

با سلام
در فرم که دارای سابفرمی هستم که فیلد yes / no دارد میخواهم و در زمان حذف اگر این فیلد تیک داشت
تائید حذف بخواهد. قبلا فقط حذف مستقیم بدون سوال بود اینم کدش

rivate Sub lblDeleteSub_Click()

Dim strDelete As String


Response = MsgBox("ÂíÇ ãÇíá Èå ÍÐÝ ÑíÒ ÌÒÆíÇÊ ãíÈÇÔíÏ ¿" & vbCrLf & " Çíä ÚãáíÇÊ ÛíÑ ÞÇÈá ÈѐÔÊ ãíÈÇÔÏ .", vbExclamation + vbMsgBoxRight + vbOKCancel, "ÊÇííÏíå ÍÐÝ")

If Response = vbOK Then
DoCmd.SetWarnings False
strDelete = "DELETE tbPartL.NumLoan, tbPartL.NumP, tbPartL.Mghest, tbPartL.Fghest, tbPartL.Rghest,tbPartL.DateL,tbPartL.Payed " & _
"FROM tbPartL WHERE (((tbPartL.NumLoan)=[Forms]![frB]![NumLoan]));"
DoCmd.RunSQL strDelete
SubPartB.Requery

DoCmd.RunCommand acCmdSizeToFitForm
SubPartB.Visible = False
End If

Exit_lblDeleteSub_Click:
On Error Resume Next
Exit Sub

Resume Exit_lblDeleteSub_Click:

End Sub

[dadsara]

باسلام
می تونی این تیکه فرم خود را آپلود کنی