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

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

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

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

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

عناوین یادداشت‌ها

  • ثابت های Bitmap آیتم منو در MenuIteminfoA دوشنبه 21 مرداد 1398 23:57
    D: Means Disabled HBMMENU_SYSTEM = 1 HBMMENU_MBAR_RESTORE = 2 HBMMENU_MBAR_MINIMIZE = 3 HBMMENU_MBAR_CLOSE = 5 HBMMENU_MBAR_CLOSE_D = 6 HBMMENU_MBAR_MINIMIZE_D = 7 HBMMENU_POPUP_CLOSE = 8 HBMMENU_POPUP_RESTORE = 9 HBMMENU_POPUP_MAXIMIZE = 10 HBMMENU_POPUP_MINIMIZE = 11 MF_GRAYED=&H1 : MF_DISABLED=&H2 :...
  • شرح منوها و بیان نحوه ی کاربرد آنها و پیام های ارسالی به Window Parent دوشنبه 21 مرداد 1398 23:39
    Menus menus
  • استخراج آیکون از فایل DLL یا EXE دوشنبه 21 مرداد 1398 23:25
    ExtractIconExA(lpszFile,nIconIndex, HICON *phiconLarge, HICON *phiconSmall, UINT ( nIcons nIconIndex : If this value is –1 and phiconLarge and phiconSmall are both NULL, the function returns the total number of icons in the specified file Declare PtrSafe Function DrawIcon Lib "user32" (ByVal hdc As LongPtr,...
  • نمایش مسیر کامل فایل در تایتل بار دوشنبه 21 مرداد 1398 23:12
  • نمایش Bitmap کنار منو ( پیوند BitMap مشخص شده به آیتم منو ) دوشنبه 21 مرداد 1398 22:13
    Type: HBITMAP A handle to the bitmap to be displayed, or it can be one of the values in the following table. It is used when the MIIM_BITMAP flag is set in the fMask member uflags: MF_BYCOMMAND hBitmap:LoadBitmap,LoadIcon,LoadImage Dim mim As MENUITEMINFOA (mim.cbSize = Len(mim mim.fMask = MIIM_BITMAP mim.hbmpitem=1...
  • گرفتن استرینگ آیتم های SystemMenu دوشنبه 21 مرداد 1398 17:38
    در تصویر بالا تعداد آیتم ها عدد 6 است szItem As String*100 ((szItem=String$(100,Chr(0 (hSysMenu=GetSystemMenu(hwnd (hSysMenuItmCount=GetMenuItemCount(hSysMenu,0 For i=0 To hSysMenuItmCount (ItemId=GetMenuItemId(hSysMenu,i (Length=GetMenuString(hSysMenu,i,szItem,Len(szItem)+1,MF_BYPOSITION (txt=Left$(szItem,Length...
  • MENUINFO گرفتن اطلاعات منوبار دوشنبه 21 مرداد 1398 16:36
    Public Const MIM_BACKGROUND As Long = &H2 Public Const MIM_APPLYTOSUBMENUS As Long &H80000000= Pubkic Type MENUINFO cbSize As Long hbrBack As Long fMask As Long dwStyle As Long cyMax As Long End Type .fMask=MIM_BACKGROUND .hbrBack=CreateSolidBrush(vbYellow) SetMenuInfo GetMenu(Me.hwnd),mi .fMask =...
  • پیام WM_INITMENU برای چک مارک منو آیم دوشنبه 21 مرداد 1398 13:31
    The following example has three menu items and moves the check mark of the menu item each time the menu is opened. Public Function WndProc (HWND hWnd, UINT iMessage ( WPARAM wParam, LPARAM lParam, HDC hdc PAINTSTRUCT ps static int count = 0 Mes="Checks menu items in order every time the menu is " opened...
  • فرامین SQL دوشنبه 21 مرداد 1398 12:58
  • کلاس های سیستم ( ویندوز ) دوشنبه 21 مرداد 1398 12:51
    System Classes
  • ShowPopup در اکسس دوشنبه 21 مرداد 1398 12:08
    Private Sub Song_List_MouseUp(Button As Integer, Shift As Integer, X As Single, (Y As Single ساخت شورتکات منو توسط تابع با پوزیشن msoBarPopup SetUpContextMenu If Button = acRightButton Then CommandBars("MyListControlContextMenu").ShowPopup End If End Sub
  • Unordered List And Ordered List در HTML دوشنبه 21 مرداد 1398 00:12
    Rixh Text
  • منابع یکشنبه 20 مرداد 1398 23:53
    اعتراف می نمایم که پست های بنده در حد تجربی و نه تئوریکالی و دانشگاهی است بنابراین تمامی اطلاعات به اشتراک گذاشته ۱۰ درصد تجربی بوده و حدود ۹۰ درصد آن از داکیومنت آفیس یا سایر فروم های خارجی استخراج شده لذا در صورت اشتباه در پاره ای از موارد ، اصلاح شده یا باصطلاح تست شده ی آن را در نظرها به اشتراک بگذارید تا سایرین...
  • اضافه کردن منو یکشنبه 20 مرداد 1398 20:06
    hMenu=GetMenu(Me.Handle) menuItemCount=GetMenuItemCount(hMenu) hSubMenu=GetSubMenu(hMenu, 0) subMenuItemCount=GetMenuItemCount(hSubMenu) Dimmii As MENUITEMINFO With mii .cbSize=Len(mii) .fMask=MIIM_FTYPE Or MIIM_STATE Or MIIM_ID Or MIIM_STRING .fType=MFT_STRING .fState=MFS_ENABLED .wID = 0 .hSubMenu=0 .hbmpChecked=0...
  • غیرفعال کردن آیدی منو یکشنبه 20 مرداد 1398 14:19
    WM_INITMENUPOPUP=&H117 WM_RBUTTONDOWN=&H204 TPM_LEFTBUTTON = 0 TPM_RIGHTBUTTON = 2 TPM_LEFTALIGN = 0 TPM_CENTERALIGN = 4 TPM_RIGHTALIGN = 8 TPM_TOPALIGN = 0 TPM_VCENTERALIGN = 16 TPM_BOTTOMALIGN = 32 TPM_HORIZONTAL = 0 TPM_VERTICAL = 64 MF_BYCOMMAND = 0 MF_BYPOSITION = 1024 MF_SEPARATOR = 2048 MF_ENABLED = 0...
  • اضافه کردن آیتم به منوی سیستم ContextMenu یکشنبه 20 مرداد 1398 00:02
  • EnableMenuItem در VB شنبه 19 مرداد 1398 22:13
    (WndProc(ref Message m if m.Msg = WM_INITMENUPOPUP (((int)m.LParam & 0x10000) != 0) (EnableMenuItem(WParam,SC_MOVE,MF_DISABLED End If
  • Repainting در فرم اکسس فقط در حالت View شنبه 19 مرداد 1398 21:29
  • Handle Menu در VB شنبه 19 مرداد 1398 19:32
    Private Const windowsMenuClassName As String= "#32768 (externalMenu=FindWindowEx(GetDesktopWindow,0,windowsMenuClassName,VbNullString (PostMessage(externalMenu,WM_CLOSE, 0,0 End If End Sub ()Private Sub Timer1_Timer Dim hMenuWnd As Long (hMenuWnd = FindWindow ("# 32768", vbNullString If hMenuWnd...
  • برداشتن منو بار شنبه 19 مرداد 1398 18:24
    Remove window's current menu SetMenu lHwnd,0
  • Ribbon جمعه 18 مرداد 1398 23:07
    office_standards/ms-customui iribbonui-members-office
  • Ribbon Attributes جمعه 18 مرداد 1398 22:06
    Access_-_Ribbons:Ribbon_Attributes
  • File Tab And BackStage جمعه 18 مرداد 1398 20:43
    Visible=False/True customize-ribbon-to-suppress-backstage-with- access-2013 </ ribbon > < backstage > < tab id = "btab1" label = "Tab Label 1. " > < firstColumn > < taskGroup id = "MytskGroup1"
  • شورت کات منو در اکسس جمعه 18 مرداد 1398 17:25
  • ماکرو Before Change و SetLocalVar جمعه 18 مرداد 1398 14:52
    ساخت متغیر ( Variable ) موقتی و تنظیم آن به مقدار مشخص شده Remarks The SetField action cannot be used outside of an CreateRecord or EditRecord data block The CreateRecord data block can only be used in the After Insert , After Update , and After Update data macro events
  • ساخت رکورد Create Record جمعه 18 مرداد 1398 14:14
    EVENT MACRO بعد از تغییر رکورد اتفاق می افتد طبق گفته از Update در If میشود استفاده کرد برای اینکه تعیین کند آیا فیلد موردنظر ( داخل پرانتز و دابل کوتیشن ) تغییر نموده . در مثال بیان شده درمثال بالا اگر فیلد Meter_Value در جدول اول تغییر کرد یوزری که باعث این عمل شده به جدول دوم اضافه میشود و یوزر در فیلد And_User...
  • Device Context پنج‌شنبه 17 مرداد 1398 20:42
    BMP_file_format Picture Property Doffice.11 stdole.SavePicture The IDispatch interface ID is defined as a GUID with the value of {00020400-0000 0000-C000-000000000046} H20400& HC0& H46& GUID.htm&id
  • نوشتن ولیو در رجیستری پنج‌شنبه 17 مرداد 1398 17:02
    Set the registry flag to display Hidden and System files in Windows Explorer WScript .Shell _"myKey="HKCU\Software\Microsoft\Windows "\CurrentVersion\Explorer\Advanced\Hidden\" "WshShell.RegWrite myKey,1,"REG_DWORD "WScript .Shell " Methods .AppActivate 'Activate running...
  • Show/Hide Tools Pane در Adobe Reader پنج‌شنبه 17 مرداد 1398 16:46
  • Right Click پنج‌شنبه 17 مرداد 1398 15:42
    Shift+F10 SendKeys ( "+{F10}" ) 'for a right click