عدم حذف يا تكرار ركورد در يك فرم

[abdoreza57]

با سلام خدمت تمامي اساتيد محترم
من درحال برنامه نويسي اندازه گيري خياطي مي باشم كه متاسفانه به مشكل عجيبي برخوردم و آن اينكه بعد از تعريف كليدهاي حذف و تكرار ركورد متاسفانه اين عمل با يك كليك انجام نمي پذيرد و به ارور بر مي خورم
حال از دوستان خواهش مي كنم فايل ضميمه را اصلاح و اشكال موجود را توضيح دهند
يادآور ميشوم اين برنامه با كمك اساتيد سايت مخصوصا اميرزاده عزيز به اين مرحله رسيده و به زودي پس از تكميل در قسمت نمونه هاي كاربردي قرار خواهم داد

[mahdi_107]

شما بعد از دستور if در هر كدام از كليد ها از me.setfocus استفاده نماييد حله

بدين صورت


Private Sub Command165_Click()
DoCmd.SetWarnings False

If MsgBox("Çíä ÑßæÑÏ ãÌÏÏÇ Èå ÚäæÇä ãÔÊÑí ÌÏíÏ ÇíÌÇÏ ãíÑÏÏ ÂíÇãæÇÝÞíÏ ¿", vbYesNo + vbSetWarnings + vbSetWarnings, "ÇÎØÇÑ ....ÓÝÇÑÔ ãÌÏÏ ãÔÊÑí ") = vbNo Then
Exit Sub
Else
Me.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
End If

Exit_Command165_Click:
Exit Sub

Err_Command165_Click:
MsgBox Err.Description
Resume Exit_Command165_Click

End Sub
Private Sub Command166_Click()


On Error GoTo Err_Command166_Click
DoCmd.SetWarnings False

If MsgBox("ÂíÇ ãÔÊÑí ßäæäí ÇÒ áíÓÊ ãæÌæÏ ÍÐÝ ÔæÏ¿", vbYesNo + vbCritical + vbDefaultButton2, "ÇÎØÇÑ ãåã !!!.......................ÍÐÝ Ñ˜æÑÏ") = vbNo Then Exit Sub
Me.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Command166_Click:
Exit Sub
Err_Command166_Click:
MsgBox Err.Description
Resume Exit_Command166_Click

End Sub

لازم بذكر شما اگر مايل به استفاده از فرم Date&time هستيد پيشنهاد مي كنم me.setfocus را قبل از دستورات اينچنيني حتما بكار ببريد