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

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

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

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

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

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

  • تابع URLDownloadToFile جهت دانلود فایل سه‌شنبه 19 بهمن 1400 23:05
    دانلود فایل بصورت بیت از اینترنت و ذخیره آنها در یک فایل https://docs.microsoft.com/ Access_URLDownloadToFile_API_function Sub timeout_for_bad_starts () dlpath = "C:\DownloadedPics\" For i = 2 To 7 imgsrc = Cells ( i , 2 ) imgname = Cells ( i , 1 ) result = URLDownloadToFile ( 0 , imgsrc , dlpath &...
  • HTML DOM Events سه‌شنبه 19 بهمن 1400 19:00
    مطالعه بفرمائید لینک زیر را چون رویدادهاش در کنترل WebBrowser کاربرد دارند فرضا OnMouseDown که وقتی باتن چپ ماوس فشرده شده کاری را انجام دهد بعضی از آنها با Private Sub و بعضی هم با Private Function و نام رویداد + As Boolean اظهار می شوند. w3schools برای استفاده از ابزار html حتما در رفرنس ویژوال اکسس تیک html object...
  • روش ساخت Refrence به یک نوع کتابخانه در یک فایل مشخص یا تیک زدن mshtml.tlb موجود در محیط VBE اکسس برای استفاده ازابزار HTML سه‌شنبه 19 بهمن 1400 15:16
    AddFromFile The AddFromFile method creates a reference to a type library in a specified file. C:\Windows\System32\mshtml.tlb VBE.ActiveVBProject.Refrences.AddFromFile ( FileName ) Dim WithEvents htBody As htmldocument استفاده از رویدادها در وب بروزر
  • گرفتن مختصات x , y زمان فشردن باتن سمت چپ ماوس روی پنجره دوشنبه 18 بهمن 1400 19:28
    Function BoxProc (ByVal hWnd As LongPtr, ByVal uMsg As Long, ByVal wParam As LongPtr, ByVal lparam As LongPtr) As LongPtr Case WM_LBUTTONDOWN Dim p As POINTAPI GetCursorPos p ScreenToClient hWnd, p SetWindowTextA hWnd, "lbtn" & "..." & p.x & "." & p.Y Case...
  • FIELD.VALUE شنبه 16 بهمن 1400 14:10
    به طور کلی ویژگی Value برای بازیابی و تغییر ( alter ) داده ها در اشیاء رکوردست استفاده می شود. ویژگی Value ویژگی پیش فرض آبجکت یا اشیاء Paramer ، Field و Property است بنابراین بجای تعیین این ویژگی می توانید با مراجعه مستقیم به یکی از این اشیاء (مثل Field بدون ذکر Value ) مقدار آن را تنظیم یا بازیابی نمائید. تلاش برای...
  • بازیابی یا گرفتن متن داخل کنترل Edit در جعبه InputBox ( کلاس 32770# ) جمعه 8 بهمن 1400 11:40
    لطفا در صورتِ "استفاده" حتما در نظر سنجی شرکت و فاتحه ای برای پدر مرحومم قرائت بفرمائید. فروش مطالب ارزنده زیر به غیر ممنوع و اشکال شرعی دارد ( پیوند دادن منعی ندارد ) لطفا رعایت نمائید !!! مطالب زیر صرفا به اشتراک گذاشتنِ تجربیات ، و در سایت های خارجی نیز کم و بیش بدان اشاره شده است.(گردآوری از سایت های...
  • هک صدا و سیما پنج‌شنبه 7 بهمن 1400 20:39
    KaYywMemBx 641492 مطابق با مستندات منتشر شده از سوی سازمان بورس، زیان انباشته بانک آینده برای عملکرد منتهی به پایان شهریور ماه ۱۴۰۰ به ۸۱ هزار و ۹۰۰ میلیارد تومان رسیده است.
  • ارسال تکست به کلاس 32770# و شرح COPYDATASTRUCT پنج‌شنبه 7 بهمن 1400 13:06
    Const WM_SETTEXT=&HC Const WM_GETTEXT=&HD Const WM_GETTEXTLENGTH=&HE Const WM_COPYDATA=&H4A Type COPYDATASTRUCT dwData As Long cbData As Long lpData As Long End Type WM_GETTEXT : پارامتر wparam مربوط به ماکزیمم کاراکتری که در بافر کپی میشود و پارامتر lparam یک نشانگر به بافری است که کاراکترها را دریافت...
  • ترسیم ناحیه TitleBar چهارشنبه 6 بهمن 1400 20:48
    BOOL IsWindowEnabled( [in] HWND hWnd Declare PtrSafe Functuon IsWindowEnabled lib "user32" (ByVal hWnd As LongPtr) As Boolean If idHook = HCBT_ACTIVATE Then If IsWindowEnabled(GetParent(wParam)) Then UnhookWindowsHookEx lHook MsgBox "You can't format a Modeless Userform.", vbCritical Exit Function...
  • بررسی قرار گرفتن نشانگر ماوس در ناحیه مورد نظر API چهارشنبه 6 بهمن 1400 12:20
    تمام این مطالب گردآوری شده از سایت های مختلف است بعضی امتحان شده و تصویر نیز در مطلب قرار داده شده و در بعضی موارد فقط مطلب Copy Paste شده است به بزرگی خودتان ببخشید دوستان این تابع تعیین می کند آیا نقطه داخل ناحیه مشخص شده است یا خیر .فرضا یک ناحیه بیضوی درست کرده اید در WM_PAINT و می خواهید زمانیکه Mouse را داخل آن...
  • قابلیت دریافت پیام ماوس کلیک در قسمت کنترل Static چهارشنبه 6 بهمن 1400 00:25
    برای اینکه کنترل Static پیام های ماوس را دریافت کند باید استایل SS_NOTIFY تنظیم گردد. A static control that has the SS_NOTIFY style receives mouse input, notifying the parent window when the user clicks or double clicks the control. Static controls belong to the STATIC window class. In other words, this Style allows...
  • Create Button سه‌شنبه 5 بهمن 1400 10:26
    گردآوری شده از سایت های مختلف Const WS_EX_STATICEDGE =&H20000 Const WS_EX_WINDOWEDGE =&H100 Const WS_EX_CLIENTEDGE =&H200 Const WS_TABSTOP =&H10000 Const WS_CHILD =&H40000000 Const WS_VISIBLE =&H10000000 Const BS_ICON =&H40 Const WM_COMMAND=&H111 Const WM_SYSCOMMAND=&H112 Const...
  • SubClassing The Form دوشنبه 4 بهمن 1400 16:23
    شوگر مامی" به زن ثروتمندی گفته می شود که با مردان جذاب، جوان و پویا وارد رابطه می شود، البته به طور قطع هر پسری تمایل به برقراری رابطه با شوگرمامی ها ندارد. برای SubClass کردن پنجره حتما پنجره VBE بسته باشد و در صورت لزوم انجام تغییرات حتما از برنامه خارج شده و دوباره وارد شوید. WikiBooks : SubClassing Declare...
  • Msgbox در اکسس پنج‌شنبه 30 دی 1400 15:36
    A twip is defined as being 1⁄1440 of an inch (approximately 0.0176 mm) . ( 1 ÷ 1 , 4 4 0 ) × 2 5 . 4=0.0176388889 1 Inch = 72 Point 1 . 0 4 7" × 7 2= 75.384 Point کنترل های اکسس کنترل های استاندارد VB نیستند . و زمان اجرا در صفحه رسم می شوند.بر خلاف کنترل های VB ، آنها هندل یونیک و واحدی ندارند. Access controls...
  • تابع SendInput چهارشنبه 29 دی 1400 22:52
    sendinput mouse_event input 'SendInput Type INPUT_TYPE Public dwType As Integer Public xi As MOUSEINPUT End Type MOUSEEVENTF_LEFTDOWN = &H2 MOUSEEVENTF_LEFTUP = &H4 MOUSEEVENTF_MOVE=&H1 MOUSEEVENTF_RIGHTDOWN=&H8 MOUSEEVENTF_RIGHTUP=&H10 Dim inputEvents(0) As INPUT_TYPE inputEvents(0).xi.dx = 0...
  • تابع ShowWindow و GetWindow در API سه‌شنبه 28 دی 1400 18:10
    showwindow Dim IE As Object Set IE = CreateObject("internetexplorer.application") IE.Visible = True ShowWindow IE.hwnd, SW_SHOWMAXIMIZED IE.Navigate "http://www.google.com" Do While IE.ReadyState <> 4: DoEvents: Loop Do While IE.Busy: DoEvents: Loop ' Close internet explorer IE.Visible=True...
  • ذخیره کردن هر ویرایشی در Single Form شنبه 25 دی 1400 16:10
    'Save any edits. If frm.Dirty Then frm.Dirty = False End If
  • نحوه ساخت ساعت آنالوگ ( ثانیه شمار ) با استفاده از کنترل Line شنبه 25 دی 1400 14:19
    کل مطالب زیر استخراج شده است . Line Control In Access : The line control displays a horizontal, vertical, or diagonal line on a form or report. کنترل Line ، یک خط افقی ، عمودی یا مورب را در فرم یا گزارش نشان می دهد. You can use Border Width to change the line width. You can use Border Color to change the color of the...
  • تابع FreeFile در دستور Open پنج‌شنبه 23 دی 1400 21:21
    یک عدد صحیح را برمی گرداند که نشان دهنده شماره فایل بعدی موجود برای استفاده توسط عبارت Open است. FreeFile [ ( rangenumber ) ] آرگومان اختیاری rangenumber متغیری است که محدوده از جائیکه شماره فایل آزادبعدی بازگشت داده می شود را مشخص می نماید. 0 را ( پیش فرض ) برای بازگشت شماره فایل در محدوده 1 و 255 ، 1را برای بازگشت...
  • Hook و UnHook کردن پنجره برای مدیریت پیام های ویندوزی پنج‌شنبه 23 دی 1400 10:24
    Hook نقطه ای در مکانیزم مدیریت پیام سیستم است که در آن یک برنامه می تواند یک برنامه فرعی برای نظارت بر رفت و آمد پیام در سیستم نصب کند و انواع خاصی از پیام ها را قبل از رسیدن به رویه ( Procedure )پنجره هدف پردازش نماید. 1- استفاده از تابع SetWindowsHookExA برای ویندوز 64 بیتی یا Vba7 این تابع 3 آرگومان دارد اولی یه...
  • تبدیل تاریخ میلادی شمسی - اختلاف روزهای شمسی از سال 1300 تا کنون سه‌شنبه 14 دی 1400 19:46
    امام جمعه قم ( حسینی همدانی ) با اشاره به اقامه نماز رییس جمهوری اسلامی ایران در کاخ کرملین گفت: احتمال این وجود دارد که رییس جمهور ما در کاخ سفید هم نماز بخواند زیرا این نمازی که در کاخ کرملین خوانده شد پیام های مهمی در پی داشت. بررسی روش های تبدیل میلادی به شمسی و معایب آن بصورت کاملا تخصصی بررسی اختلافِ روزها از...
  • تابع ویندوزی Mouse_Event برای Right Click در صفحه سه‌شنبه 14 دی 1400 12:23
    Right-Click در سنتر : right-click the "center" of your webbrowser mouse_event void mouse_event( [in] DWORD dwFlags, [in] DWORD dx, [in] DWORD dy, [in] DWORD dwData, [in] ULONG_PTR dwExtraInfo ); dwFlags : MOUSEEVENTF_RIGHTDOWN=&H8 MOUSEEVENTF_RIGHTUP=&H10 تنظیم موقعیت کرسر در وسط صفحه :...
  • Open StateMent دوشنبه 13 دی 1400 21:53
    Maybe Comm=FreeFile Used Open "COMFILE" For Binary Access Read Write As #1 receiveBuff="@@@@@@@@@@" Sleep 100 Debug.Print "Looking For incoming Msg" On Error Resume Next Do While True receive = receiveBuff Input #1, receive If receive= receiveBuff Then Exit Do Debug.Print receive Loop On...
  • پیمایش با غلطک ماوس در رکوردهای فرم دوشنبه 13 دی 1400 18:18
    Occurs when the user rolls the mouse wheel in Form view, Split Form view, Datasheet view, Layout view, PivotChart view, or PivotTable view. زمانی اتفاق می افتد که کاربر غلطک ماوس را می گرداند در حالت نمایش فرم هایی که قید کرده. Syntax ( نوشتاری ) expression . MouseWheel ( Page , Count ) برای پیمایش در رکوردها در فرم...
  • تعدادی از توابع ویندوزی در VBA7 شنبه 11 دی 1400 23:37
    Private Declare PtrSafe Function GetWindowRect Lib "user32" (ByVal hwnd As LongPtr, lpRect As RECT) As Long Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hwnd As LongPtr, ByVal hWndInsertAfter As LongPtr, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long,...
  • آبجکت WebBrowserControl جمعه 10 دی 1400 23:39
    IEXPLORE WebControl_members WebElement_properties webbrowser-open-office-document-in-visual-basic البته مطلب زیر تکرار مکررات است The WebBrowser control has several properties, methods, and events that you can use to implement controls found in Internet Explorer. For example, you can use the Navigate method to...
  • نوشتن کلاس ماژول و استاندارد ماژول در اکسس جمعه 10 دی 1400 19:35
    Class Module Name : clsmMouseWheel Private frm As Object Private intCancel As Integer Public Event MouseWheel(Cancel As Integer) ' Because Form is object use set Public Property Set Form(frmm As Object) Set frm=frmm End Property Public Property Get MouseWheelCancel() As Integer MouseWheelCancel=intCancel End Property...
  • جستجوی فایل با تابع ویندوزی SearchTreeForFile جمعه 10 دی 1400 15:03
    Dll : Dbghelp BOOL IMAGEAPI SearchTreeForFile( [in] PCSTR RootPath, [in] PCSTR InputPathName, [out] PSTR OutputPathBuffer ); جواب تابع اگر Fail ندهد True است به Bool که در اول آمده دقت کنید ( Boolean ) دیتا تایپ تمام آرگومان ها از نوع رشته ای است. این تابع فایلی را که توسط پارامتر InputPathName مشخص شده است ، از...
  • گرفتن هندل Webbrowser جمعه 10 دی 1400 13:18
    Public Declare PtrSafe Function GetClassName Lib "user32" Alias "GetClassNameA" ( _ ByVal hwnd As LongPtr, _ ByVal lpClassName As String, _ ByVal nMaxCount As Long) As Long Public Declare PtrSafe Function EnumChildWindows Lib "user32" ( _ ByVal hWndParent As LongPtr, _ ByVal lpEnumFunc As...
  • ولایت فقید جمعه 10 دی 1400 10:14
    Islamic Resistance نماینده، ولی فقیه در سپاه پاسداران گفت: ۹ دی به همه پیام داد، اما زیباترین پیام آن به رهبری انقلاب بود که در خروش مردم در روز ۹ دی ۸۸ فریاد زده شد و دو جمله آن مهم‌تر بود که یکی از آن خشم و تبری و مقاومت و ایستادگی در برابر دشمنان بود و دیگری این بود که "ما اهل کوفه نیستیم"؛ و یافزود: پیام...