فصل الارقام عن الحروف فى اكسيل بدون معادلات

DoCmd object (Access)

شرح بعض أوامر Docmd

حسب علمي المتواضع في الأكسس للفائدة وأرجو المعذرة من الجميع إذا حصل خطأ في أي أمر فالكمال لله فإن أصبت فمن الله وإن أخطأت فمن نفسي والشيطان وأتمنى ممن لديه معرفة في مثل هذه الأوامر أن يكمل شرحها في هذه الصفحة.

الآن أبدأ بسرد الأوامر :-

الانتقال إلى السجل الأول :

DoCmd.GoToRecord , , acFirst

الانتقال إلى السجل التالي :

DoCmd.GoToRecord , , acNext

الانتقال إلى السجل السابق :

DoCmd.GoToRecord , , acPrevious

الانتقال إلى السجل الأخير:

DoCmd.GoToRecord , , acLast

إضافة سجل جديد فارغاً :

DoCmd.GoToRecord , , acNewRec

حذف سجل :

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

حفظ سجل :

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

فتح نموذج معين :

DoCmd.OpenForm "اسم_النموذج"

إغلاق نموذج أو تقرير :

DoCmd.Close

فتح تقرير في وضع المعاينة :

DoCmd.OpenReport "اسم_التقرير", acPreview

طباعة تقرير معين :

DoCmd.OpenReport "اسم_التقرير", acNormal

فتح استعلام في وضع المعاينة :

DoCmd.OpenQuery "اسم_الاستعلام", acNormal, acEdit

إنهاء الأكسس والخروج منه نهائياً :

DoCmd.Quit

إلغاء أمر معين.. كإلغاء أمر فتح تقرير أو فتح نموذج أو غير ذلك :

DoCmd.CancelEvent

إصدار صوت (بيب) عند تنفيذ شيء معين :

DoCmd.Beep

تكبير نموذج :

DoCmd.Maximize

تصغير نموذج :

DoCmd.Minimize

Option Compare Database
Option Explicit

Private Sub btnAdd_Click()
    Me.AllowAdditions = True
    DoCmd.GoToRecord , , acNewRec
    Me.txtUserName = "     "
    Me.AllowAdditions = False
End Sub

Private Sub btnBack_Click()
    DoCmd.GoToRecord , , acPrevious
End Sub

Private Sub btnExample_Click()
'    DoCmd.Beep
'    DoCmd.BrowseTo acBrowseToForm, "frmForm"
'    DoCmd.OpenForm "frmForm"
'    DoCmd.Close acForm, "frmEmployees"
'    DoCmd.GoToControl "txtFirstName"
'    DoCmd.Hourglass True
'    DoCmd.Maximize
'    DoCmd.Minimize
'    DoCmd.Restore
'    DoCmd.OpenReport "Report1", acViewPreview
'    DoCmd.OutputTo acOutputReport, "Report1", acFormatPDF, "c:\test\test.pdf", True
'    DoCmd.OutputTo acOutputTable, "tbl1Employees", , "c:\test\test.xls", True
'    DoCmd.Quit
'    DoCmd.RefreshRecord
'    DoCmd.Requery Me.Name
'    DoCmd.RunCommand acCmdClose
'    DoCmd.RunSQL "INSERT INTO tbl1Employees"
'    DoCmd.Save
'    DoCmd.SendObject acSendReport, "Report1", acFormatPDF, "xipooo@gmail.com", , , "Test", "Test 1 2 3"
'    DoCmd.ShowToolbar "Ribbon", acToolbarNo
'    DoCmd.ShowToolbar "Ribbon", acToolbarYes
'    DoCmd.TransferDatabase acExport, , "Database1.accdb"
End Sub

Private Sub btnForward_Click()
    DoCmd.GoToRecord , , acNext
End Sub

Private Sub btnStop_Click()
    DoCmd.Hourglass False
End Sub