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

شرح بعض أوامر 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