abdoreza57
جمعه 17 دی 1389, 20:50 عصر
با سلام خدمت تمامي اساتيد محترم
من درحال برنامه نويسي اندازه گيري خياطي مي باشم كه متاسفانه به مشكل عجيبي برخوردم و آن اينكه بعد از تعريف كليدهاي حذف و تكرار ركورد متاسفانه اين عمل با يك كليك انجام نمي پذيرد و به ارور بر مي خورم
حال از دوستان خواهش مي كنم فايل ضميمه را اصلاح و اشكال موجود را توضيح دهند
يادآور ميشوم اين برنامه با كمك اساتيد سايت مخصوصا اميرزاده عزيز به اين مرحله رسيده و به زودي پس از تكميل در قسمت نمونه هاي كاربردي قرار خواهم داد
mahdi_107
شنبه 18 دی 1389, 07:01 صبح
شما بعد از دستور 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 را قبل از دستورات اينچنيني حتما بكار ببريد
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.