نوشته شده توسط
sami_70
این دقیقا همون چیزی بود که من میخــــــــوام
فقط میشه توضیح بدین چطوری درستش کردین؟؟؟
میخوام رو فرمم همچین دکمه هایی بذارم..
حذف رکوردد که زدید چطوری پیغام میاد؟ از کجا برم تنطیم کنم؟
دوست عزیز،در حالت Design فرمتون رو باز کنید و با کلیک بروی Command bottom کادر زیر رو مشاهده میکنید،برای ایجاد "رکورد قبلی"،"رکورد بعدی"،"رکورد جدید" مطابق شکل زیر عمل کنید
و برای فارسی سازی پیغام حذف رکورد،بعد از ایجاد یک Bottom،با زدن کلیدهای Alt+F11 به قسمت کد نویسی رفته و کد زیر را به دکمه حذف نسبت بدید.
Private Sub Command9_Click()
On Error GoTo Err_Command9_Click
DoCmd.SetWarnings False
If MsgBox("ÂíÇ ãæÑÏ ÇäÊÎÇÈí ÍÐÝ ÔæÏ", vbYesNo + vbCritical + vbDefaultButton2, "ÍÐÝ Ñ˜æÑÏ") = vbNo Then
Exit Sub
Else
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
End If
Exit_Command9_Click:
Exit Sub
Err_Command9_Click:
MsgBox Err.Description
Resume Exit_Command9_Click
End Sub