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

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

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

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

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

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

  • Concatenate Column شنبه 24 اسفند 1398 14:02
    مثال در سایت زیر دقیق بخوانید و اجرا کنید ( هر آنچه نمی دانید را در google سرچ کرده و با یادگیری از اکسس لذت ببرید Concatenate-Column-Values-from-Multiple-Rows-into-a-Single-Column-with-Access مثالی دیگر Public Function ConcatRelated(strField As String, _ strTable As String, _ Optional strWhere As String, _ Optional...
  • ماکزیمم یک گروپ در اکسل سه‌شنبه 6 اسفند 1398 20:32
    بسیار ساده و کاربردی فقط یاد آوری کرده که کنترل شیفت اینتر را بعد از اتمام فرمول بفشارید
  • تغییر نام و اضافه کردن دکمه جمعه 2 اسفند 1398 20:14
    تغییر نام کامند باتن با تنظیم خاصیت Caption انجام میگیرد چه در Property Sheet و خاصیتی بنام کپشن در حالت دیزاین فرم چه در محیط VB اکسس ، ولی ساخت دکمه ی جدید امکانپذیر نیست مگر اینکه فرم در حالت دیزاین بطور Hidden باز شده و با CreateControl و آرگومان هایش آنرا ( Left Right Width Height ) ایجاد کرد ولی اگر دیتابیس به...
  • Remove Unprotect Sheet Of Excel File یکشنبه 13 بهمن 1398 18:44
  • VLOOKUP در اکسل توسط MATCH و INDEX دوشنبه 27 آبان 1398 11:11
  • مدیر و اولیاء بودن یا نبودن را تعیین می کنند جمعه 3 آبان 1398 06:30
    کیفیت آموزشی و استخدامی مدرن جمهوری اسلامی و حقوق های مناسب امروزی
  • ASME PCC1- 2010 پنج‌شنبه 18 مهر 1398 22:35
  • ScrollBar پنج‌شنبه 18 مهر 1398 21:05
    At the picture below you can see what I've already done. Left scrollbar is a system scrollbar, right one - custom scrollbar. FVertBar: Boolean; FPressedBtn1, FPressedBtn2, FSelectedBtn1, FSelectedBtn2: Boolean; FBarBmp, FBtn1Bmp, FBtn2Bmp: TBitmap; MainDC: hDC; FBarBmp.Free; FBtn1Bmp.Free; FBtn2Bmp.Free; Case...
  • ساختار WINDOWPLACEMENT پنج‌شنبه 18 مهر 1398 19:59
    WINDOWPLACEMENT structure Contains information about the placement of a window on the screen. Type WINDOWPLACEMENT length As Long flags As Long showCmd As Integer ptMinPosition As POINTAPI ptMaxPosition As POINTAPI rcNormalPosition As RECT rcDevice As RECT End Type Of course you should measure/obtain the correct...
  • VSCROLL.HSCROLL ایجاد دو باتن در ناحیه ی NonClient لیست باکس پنج‌شنبه 18 مهر 1398 16:55
    https://www.codeproject.com/Articles/1293/Control-Subclassing هنوز تست نشده ولی نحوه ی کار به این شکل است که اندازه ی ناحیه Client رو عوض میکنند تا دو مستطیل با حالت باتن در پائین و بالای آن بکشند ، بعنوان Scroll Up/Down و NCHITTEST هم زمانی که ماوس روی آن قسمت ها قرار می گیرد یا موقعیت عوض میشود عدد ثابتی رو بر...
  • VSCROLL.HSCROLL پنج‌شنبه 18 مهر 1398 16:54
    void CListBoxEx::SetBkColor(COLORREF crBkColor,COLORREF crSelectedColor) { //Deletes previous brush. Must do in order to create a new one m_BkBrush.DeleteObject(); //Sets the brush the specified background color m_BkBrush.CreateSolidBrush(crBkColor); Invalidate(); //Forces Redraw } Function DrawBorders() GetClientRect...
  • DRAWITEM ... LISTBOX چهارشنبه 17 مهر 1398 21:20
    Type NCCALCSIZEPARAM rgrc(3) As RECT lpos As WINDOWPOS End Type lParam If wParam is TRUE , lParam points to an NCCALCSIZE_PARAMS structure that contains information an application can use to calculate the new size and position of the client rectangle. If wParam is FALSE , lParam points to a RECT structure. On entry,...
  • ListBox در InputBox چهارشنبه 17 مهر 1398 13:24
    Vb Uses Unicode For Text String hence delcare SendMessageW instead Of SendMessageA**** : Important Notes Use -----> LBS_OWNERDRAWFIXED Or LBS _HASSTRINGS use -----> SendMessageW, / TextoutW To Add Item it is important to Use SendMessageA And Byval "Item" you want to add like "SendMessage A hlist,...
  • ListBox در InputBox سه‌شنبه 16 مهر 1398 17:12
    vb Uses Unicode for text string so use SendMessageW instead Of SendMessageA Function The list box has the LBS_OWNERDRAWFIXED and LBS_HASSTRINGS styles, in addition to the standard list box styles. LBS_HASSTRINGS Specifies that a list box contains items consisting of strings. The list box maintains the memory and...
  • CHARFORMAT صرفا جهت فرمت کاراکتر دوشنبه 15 مهر 1398 20:43
    EM_SETCHARFORMAT message wParam : SCF_ALL lParam Pointer to a CHARFORMAT structure specifying the character formatting to use. Only the formatting attributes specified by the dwMask member are changed. Type LOGFONTA lfHeight As Long lfWidth As Long lfItalic As Long lfCharSet As Long lfFaceName As String End Type The...
  • TabOrder .... KeyBoard Focus در InputBox دوشنبه 15 مهر 1398 13:23
    KEYBOARD FOCUS تماما طبق داکیومنت آفیس و فروم خارجی انجام شده ماجیک نیست و بنده هم خالقش نیستم تجربه ای بود که شما را هم سهیم کردم هر چند خود شما استاد بنده هستید. در پیام ShowWindow در WndProc تب اوردر یا ترتیب فوکس کنترل ها در Inputbox اول Edit است و بعد Ok و نهایتا Cancel درhbtn که JK است در EXSTYLE آن از...
  • DateTime یکشنبه 14 مهر 1398 22:57
    msctls_progress32 ProgressBar SysDateTimePick32 Custom PostMessage(hWnd, WM_CHAR, '3', 0); (where '3' is the actual key typed in) – Private Const DTS_SHORTDATEFORMAT As Long = &H0 Private Const DTS_SHOWNONE As Long = &H2 Private Const DATETIMEPICK_CLASS As String = SysDateTimePick32 Dim hDT As Long...
  • ProgressBar نوار پیشرفت یکشنبه 14 مهر 1398 20:55
    PBM_SETRANGE=&H401 PBM_SETPOS=&H402 PBM_DELTAPOS=&H403 PBM_SETSTEP=&H404 PBM_STEPIT=&H405 PBM_SETRANGE32=&H406 PBM_GETRANGE=&H407 PBM_GETPOS=&H408 PBM_SETBARCOLOR=&H409 PBM_SETMARQUEE=&H40A PBS_SMOOTH=&H1 PBS_VERTICAL=&H4 PBS_MARQUEE=&H8 PBS_SMOOTHREVERSE=&H10...
  • UPDOWN CONTROL در InputBox یکشنبه 14 مهر 1398 16:18
    Dim nmh As NMHDR Dim nmp As NMUPDOWN 1400 UpDownControlId Case WM_NOTIFY چون کنترل ساخته شده پیامی را دریافت نمی کند از طریق parent خود در نتیجه If wParam = 1400 Then nmh.code = (-722) ' UDN_DELTAPOS SetWindowTextA Et, nmh.hwndFrom & " ID: " & nmh.idFrom & "/ code ...." & nmh.code...
  • TTM_POPUP پیامی برای ToolTip شنبه 13 مهر 1398 18:25
    باعث میشود که Tooltip در مختصات پیام آخرین ماوس ارسالی نمایش داده شود. Causes the tooltip to display at the coordinates of the last mouse message Parameters wParam Must be zero lParam Must be zero Return value The return value is not used SetCursorPos 300, 300 SendMessageA hWndtoolTip, TTM_POPUP , 0,0 Private Const...
  • ListBox جمعه 12 مهر 1398 15:12
    Const LBN_SELCHANGE = 1 Const LBN_DBLCLK = 2 Const LBN_SELCANCEL = 3 Const LBN_SETFOCUS = 4 Const LBN_KILLFOCUS = 5 Const LB_ADDSTRING = &H180 Const LB_SETSEL = &H185 Const LB_SETCURSEL = &H186 Const LB_GETSEL = &H187 Const LB_GETCURSEL = &H188 Const LB_GETTEXT = &H189 Const LB_GETTEXTLEN =...
  • ListBox جمعه 12 مهر 1398 13:47
    Private Const WM_REFLECTNOTIFY As Int32 = & H204E Private Const NM_FIRST As Int32 = 0 Private Const NM_DBLCLK As Int32 = (NM_FIRST - 3) Dim lNMHDR As NMHDR Select Case uMsg Case WM_REFLECTNOTIFY CopyMemory (lNMHDR,LParam, Marshal.SizeOf (lNMHDR)) If lNMHDR.code=NM_DBLCLK Then ' Do Something return End If End...
  • UpDown Control جمعه 12 مهر 1398 12:23
    up-down message' (UDM_SETRANGE=(&H400+101 (UDM_SETPOS=(&H400+103 (UDM_SETBUDDY=(&H400+105 up-down notification use in wm_notify' (UDN_FIRST=(-721 (UDN_LAST=(-740 (UDN_DELTAPOS=(UDN_FIRST-1 up-down styles ' UDS_ALIGNRIGHT=&H4 UDS_ALIGNLEFT=&H8 UDS_AUTOBUDDY=&H10 UDS_ARROWKEYS=&H20...
  • تغییر ترتیب تب Change Tab Order جمعه 12 مهر 1398 11:51
    HWNDTOP ()OnInitDialog : Original tab order is' ( 1) IDOK' ( 2) IDCANCEL' ( 3) IDC_MY_EDIT' Get pointers to the controls ' (pOK=GetDlgItem(IDOK (pCancel=GetDlgItem(IDCANCEL (pEdit=GetDlgItem(IDC_MY_EDIT Set the new tab order' setwindowpos pEdit,&wndTop,0,0,0,0, SWP_NOMOVE Or SWP_NOSIZE SetWindowPos...
  • OwnerDrawnList Box پنج‌شنبه 11 مهر 1398 17:42
    تمام مطالب ذکر شده برگرفته از اینترنت و داکیومنت آفیس است و تنها یک سوم آنها تست شده Const XBITMAP=48 Cpnst YBITMAP=48 Const BUFFER MAX_PATH HBITMAP hbmpPencil, hbmpCrayon, hbmpMarker,hbmpPen,hbmpFork HBITMAP hbmpPicture, hbmpOld Sub AddItem(hwnd,pstr,hbmp) Dim lbItem As Integer lbItem=SendMessage(hwnd,...
  • ToolTip پنج‌شنبه 11 مهر 1398 15:56
    Private g_hwndTT As Long Private g_ti As TOOLINFOA (OnCreate(hwnd g_hwndTT=CreateWindow(TOOLTIPS_CLASS, nullptr,WS_POPUP Or TTS_ALWAYSTIP Or (TTS_BALLOON,0,0,0, 0,hwnd,0,0,0 g_ti.uFlags=TTF_TRACK g_ti.hwnd = hwnd ("g_ti.lpszText=TEXT("Hi there SendMessage(g_hwndTT, TTM_ADDTOOL,0, (LPARAM)&g_ti, return...
  • ToolTip چهارشنبه 10 مهر 1398 17:51
    g_toolItem is a global TOOLINFO (HWND CreateTrackingToolTip(toolID, hDlg,pText Create a tooltip' hwndTT=CreateWindowEx(WS_EX_TOPMOST, TOOLTIPS_CLASS, NULL,WS_POPUP Or TTS_NOPREFIX Or TTS_ALWAYSTIP, CW_USEDEFAULT,CW_USEDEFAULT, CW_USEDEFAULT,CW_USEDEFAULT,hDlg, NULL, (g_hInst,NULL, g_toolItem.cbSize = sizeof(TOOLINFO)...
  • DRAWITEMSTRUCT چهارشنبه 10 مهر 1398 15:20
  • HideCaret/ShowCaret سه‌شنبه 9 مهر 1398 23:42
    Case WM_CHAR ) Function UserInfoProc (hUserInfoWnd,uMsg,wParam,lParam,uIdSubclass,dwRefData ,lRes=DefSubclassProc(hUserInfoWnd (uMsg,wParam,lParam if uMsg =WM_SETFOCUS) '?maybe HideCaret hUserInfoWnd End if UserInfoProc=lRes
  • TEXTMETRICA سه‌شنبه 9 مهر 1398 21:45
    The TEXTMETRIC structure contains basic information about a physical font. All sizes are specified in logical units; that is, they depend on the current mapping mode of the display context typedef struct tagTEXTMETRICA { LONG tmHeight; LONG tmAscent; LONG tmDescent; LONG tmInternalLeading; LONG tmAveCharWidth; LONG...