کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی
کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی

متد RunCommand و کپی رکورد در رکورد جدید


این مِتُد یک دستور داخلی را اجرا می کند


دستور انتخاب رکورد acCmdSelectRecord تمام فیلدها نه فیلد خاصی !!!

دستور کُپی acCmdCopy

دستور acCmdPasteAppend تمام فیلدهای یک رکورد نه فیلدهای انتخابی شما !!!


لیست سایر دستورها access.accommand


چنانچه به رکورد جدید رفت و کپی محتوای داخل فیلدها روی رکورد جدید در فرم سینگل انجام شد و بعد شما قبل ویرایش جای دیگری از فرم فوکس کردید و ارور داد که تغییرات قابل ذخیره نیست احتمالا در جدول کلیدی تعبیه کردید که متن یا محتوای فیلدی یکتاست و نمی تواند دو یا چند رکورد ، همان محتوا را داشته باشد پس تعجب نکنید با Esc می توانید Undo انجام دهید یا فیلدی که بصورت کلید است را ویرایش کنید که بعد از رفتن به رکورد بعدی یا کلیک کردن در سابفرم آن رکورد ذخیره شود و اروری دریافت نکنید ... برای ذخیره نکردن رکورد تکراری حتما فیلد Primary key داشته باشید ....Foreign key منظور کلیدی در جدول دیگر نه در جدول موجود.




























.

متد Docmd.RunCommand



انتقال کرسر به رکورد بعدی 

DoCmd.RunCommand acCmdRecordsGoToNext

acCmdCut

acCmdUndo

acCmdCopy

acCmdPase

acCmdZoom150

acCmdWindowHide

acCmdSelectReord  ' SingleForm

acCmdSelectForm

acCmdSelectReport




کاربرد مثال زیر برای به حداکثر یا به حداقل رساندن  سایز پنجره اکسس یا برگشت به وضعیت قبلی است.


Sub WinSize(strSize As String)
  Select Case strSize
    Case "Max"
      DoCmd.RunCommand acCmdAppMaximize
    Case "Min"
      DoCmd.RunCommand acCmdAppMinimize
    Case "Rest"
      DoCmd.RunCommand acCmdAppRestore
    Case Else
      MsgBox strSize & " is not a valid argument"
  End Select

End Sub


برای انتخاب آبجکت مورد نظر مثل فرم یا جدول و مخفی کردن آن اول از Docmd.SelectObject و تعریف آبجکت موردنظر و سپس از Docmd.RunCommand acCmdWindowHide استفاده میشود و برای نمایش آن آبجکت فقط از SelectObject استفاده می شود.


انتخاب و حذف رکورد :

Docmd.SetWarnings False

DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord

Docmd.SetWarnings True


انتقال به رکورد بعدی با : 


Docmd.GotoRecord



بستن تمام پنجره های باز   acCmdCloseAll         

بستن دیتابیسacCmdCloseDatabase  
بستن فرم جاریacCmdCloseWindow      
 کامپکت کردن دیتابیس اما نه دیتابیس باز !!!
  acCmdCompactDatabase
        acCmdFind بازکردن پنجره جستجو


استفاده از متد Docmd.Restore نیز برای برگرداندن سایز پنجره Max یا Min شده به سایز قبلی است فرضا زمانیکه پنجره اکسس را Hide می کنید با تابع API و گزارشی را مینیمایز می کنید برای برگرداندن به حالت قبلی خودش که قابل مشاهده بوده این دستور را Fire کنید.


Hide Application.hWndAccessApp : showwindow


استفاده از متد hWndAccrssApp برای تعیین هندل تخصیصی توسط ویندوز به پنجره اصلی Access که برای استفاده از تابع بالا حتما برای مقدار دهی  آرگومان hWnd از این متد استفاده بنمائید.














کامندهای اجرائی در اکسس RunCommand

....Docmd.Runcommand acCmd


acCmdZoom100

acCmdUndo

acCmdSelectRecord

acCmdSelectAll

acCmdSaveRecord

acCmdRowHeight

acCmdRemoveAllFilters

acCmdRefresh

acCmdRedo

برای سابفرم نه رکوردست از این فرامین استفاده می کنیم 

acCmdRecordsGoToFirst

acCmdRecordsGoToLast

acCmdRecordsGoToNew

acCmdRecordsGoToNext

acCmdQueryTotals

acCmdPrintPreview

acCmdPrint

برای استفاده در شورت کات منوی ساخته شده در دیتا شیت توسط خودتان 

acCmdCopy

acCmdCut

acCmdPaste

acCmdDelete

acCmdLayoutView

acCmdFind    باکس Search Find 

acCmdExportText

acCmdExportAccess

acCmdDesignView

acCmdDeleteRecord

acCmdDeleteRows

acCmdDataEntry

acCmdControlMarginsNarrow

acCmdCloseDatabase

acCmdCloseWindow

acCmdCloseAll

acCmdClearAll

acCmdChangeToComboBox

   در دیزاین فقط میشود کنترلی را تغییر داد پس تلاش نکنید در ویو استفاده کنید 

acCmdAppMaximize

acCmdAppMinimize

acCmdAppMove

acCmdAppRestore