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

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

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

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

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

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

  • تابع تعیین موقعیت رشته داخل رشته ی دیگر Instrrev از آخر جمعه 7 تیر 1398 16:20
    InstrRev ( stringcheck , stringmatch , [ start , [ compare ]] این تابع موقعیت یک String را داخل String دیگر بر می گرداند البته از اول نه آخر فقط از آخر دنبال String مورد نظر شما در String دیگر می گردد؛ اگر Start ( که آپشنال یا انتخابیست و نشاندهنده ی این است که از کدام کاراکتر شروع کند ) نال باشد ارورمیدهد و اگر خالی...
  • پراپرتی های دیتابیس اکسس جمعه 7 تیر 1398 16:08
  • بازیابی پسورد دیتابیس تا فرمت ۲۰۰۳ امنیت پائین سه‌شنبه 4 تیر 1398 20:50
    Offset 2A Database Without Password 90 FF 85 9A 31 C5 79 BA ED 30 BC DF CC 9D 63 D9 E4 C3 9F 46 FB 8A BC 4E F4 51 EC 37 2F EE 9C FA B4 F4 28 E6 61 1C 8A 60 Database With Password 1234 ( Low (Security 90 FF 85 9A 31 C5 79 BA ED 30 BC DF CC 9D 63 D9 E4 C3 9F 46 FB 8A BC 4E C5 51 DE 37 1C EE A8 FA B4 F4 28 E6 61 1C 8A 60...
  • خروجی جدول یا کوئری در فرمت txt سه‌شنبه 28 خرداد 1398 11:03
    بهترین روش این است که در ریبون اکسس و تب اکسترنال باتن اکسپورت را زده و بعد از دایالوگ باکسی که باز میشود مسیر فایل را انتخاب کرد و گزینه Save Import/Export در آنجا نحوه ی فاصله گذاری و غیره را می توان تنظیم کرد قبل از ذخیره کردن و با متد DoCmd.RunSavedImportExport میتوان فراخوان کرد .
  • اکسپورت به اکسل دوشنبه 27 خرداد 1398 16:19
    کپی رکوردست AutoFit : تغییر عرض ستون ها یا ارتفاع ردیف ها در رنج تا جایی که مقادیر داخل آن قابل رویت باشد اگر تکستی زیاد باشد به همان اندازه ی طولش کالمن باز میشود.
  • عملگر منطقی شنبه 25 خرداد 1398 22:45
    Between [Start Date] And [End Date] Or ([Start Date] Is (Null And [End Date] Is Null Start و End هر دو نال باشند : در پارت اول قبل از And Null And Null=Null در پارت دوم بعد از And Start is null=True End is null=True گفته شد اگر Null باشد تابع True ، IsNull را بر می گرداند پس داخل پرانتز میشود ( True And True ) که طبق...
  • شرط ساده در کوئری شنبه 25 خرداد 1398 21:54
    جدول titles : title _id type price -------- --------- ----- T01 history 21.99 T02 history 19.95 T06 biography 19.95 T13 history 29.99 T12 biography 12.9 SELECT title_id, type, price FROM titles ('WHERE ( type = 'history ('OR type = 'biography AND price < 20; در Sql بالا شرط بدین شکل است تنها رکوردهائی را نمایش...
  • فیلتر پیشرفته ( شرط کوئری ) شنبه 25 خرداد 1398 18:38
    فرض کنید کنترل چک باکسی در فرم ساخته اید به نام Check2 که در فرم اصلی با نام Form3 قرار گرفته میخواهید آن چک باکس را به رکوردسورس فرم وصل کنید به این منظور که هر زمان باتنی با نام فیلتر را فشردید بر حسب تگ آن چک باکس فیلتر در دیتیل اعمال گردد. در تگ چک باکس مقدار را وارد کنید ( فرض می کنیم میخواهیم فیلد تحصیلات در...
  • متدها و پراپرتی های Word جمعه 24 خرداد 1398 13:23
    محتویات داخل داکیومنت ( Range ) Documents.Content برگشت آبجکت رنج کاراکترهای شروع تا آخر (Documents.Range(Start,End Object در داکیومنت اکتیو ورد بسیاره وبه پاگراف ها ، بوک مارک ها و سل ها اعمال میشه و Range استارت و پایانی دارد فرضا اول پاراگراف ۲ تا پایان پاراگراف ۴ .(2)ActiveDocument.Range(ActiveDocument.paragraphs...
  • باز کردن Word جمعه 24 خرداد 1398 13:01
    باز کردن داکیومنت از رفرنس تیک Microsoft Word را بزنید و با کالکشن های آن کار کنید "Documents. Open FileName:= "C:\MyFolder\Sample.doc آرگومانهای بعد از نام فایل که حتمیست بقیه آپشنال یا انتخابی هستند ولی یا باید عین عبارت با دونقطه و مساوی بیان شود یا هر کدام در جای خودش آورده شود مثل بالا , expression ....
  • اکسپورت محتویات pdf به رنج اکسل جمعه 24 خرداد 1398 00:51
    مراحلی که باید طی شود باز کردن pdf در محیط ورد WordApp.Documents.Open کپی کردن محتویات ورد WordApp.ActiveDocument.Content.Copy پیست در رنج اکسل WS.RANG("B4").COPY و WS.PASTESPECIAL
  • تبادل داده در Vba و ماکروها با آبجکت Tempvar پنج‌شنبه 23 خرداد 1398 20:47
    -روش مناسب برای تبادل دیتا بین Vba و ماکروها . -TempVars کلا ۲۵۵ آیتم را ذخیره می کند اگر با Remove حذف نشود در حافظه باقی می ماند تا زمانیکه دیتابیس بسته شود( منظور اگر تعداد بیش از ۲۵۵ باشد چرا چون جایگزین نمیشود ) فرض کنید میخواهید نام یوزر را در زمان باز بودن دیتابیس در Vba یا ماکروها ( SetTempVars) استفاده کنید ،...
  • آپشن باتن ( رادیو باتن ، چک باکس ) پنج‌شنبه 23 خرداد 1398 20:20
    فرض کنید فیلد جنسیت ( کمبوباکس شامل مرد و زن ) را در فرم میخواهید بصورت باتن های انتخابی در فریم نمایش دهید ، کاری که می بایست انجام دهید اینست که کنترل فریم از تب دیزاین و گروه کنترلز ( Controls ) را انتخاب کرده و به روی فرم بکشید و رها کنید اگر ویزارد یا همان عصای جادوئی فعال باشد از شما نام آیتم ها و بعد نوع باتن (...
  • پراپرتی های لیست باکس پنج‌شنبه 23 خرداد 1398 15:57
    ListBox.Properties : ListCount شمارش ردیف های داخل لیست باکس : ListIndex ایندکس ردیف های لیست باکس که از صفر شروع میشود : ItemData گرفتن آیتم کلیک شده !!! با توجه به ایندکس آن (ListBox.ItemData(Listbox.ListIndex : (Selected(lRow چک میکند آیا انتخاب شده یا خیر ، فرضا بخواهید ردیف موردنظر انتخاب شود ( lRow از صفر شروع...
  • مدیریت دستگاه های تصویری متصل به کامپیوتر سه‌شنبه 21 خرداد 1398 23:07
    باید با CreateObject انجام شود ("CreateObject("Wia.DeviceManager Properties Deviceinfos Properties Set DevMgr = New WIA . DeviceManager For ii = 1 To DevMgr . DeviceInfos (). Count Debug . Print "DevMgr.DeviceInfos(" & ii & ").Properties!Name.Value = " & DevMgr . DeviceInfos (...
  • اقساط وام شنبه 18 خرداد 1398 19:41
    تخصیص اقساط وام مشتری بمبلغ 3,800,000 بمدت 36 ماه در جدول LoanDetail ( جزئیات وام دریافتی توسط اشخاص ) 105,555.555=36÷3,800,000 105555=36\3,800,000 باقیمانده ی تقسیم یا مود با فاصله !!! 3,800,000Mod36=20 105000=1000×(1000\(36\3,800,000)) 555=1000×(1000\((36\3,800,000)))-(36\3,800,000) 125000=36×1-105000+20+555...
  • گرفتن پنجره ی فعال ( API ) جمعه 17 خرداد 1398 17:13
    ویندوز یوزر Windows User کامپوننتی است که توابعی را بر ای ایجاد رابط کاربری User Interface فراهم میسازد فرضا ایجاد پنجره ی جدید یا تغییر استایل پنجره یا برداشتن منوهای سیستمی و ارسال مسیج ها به آن و ایجاد کنترل ها ... یا بعبارت دیگر اتصال به سایر اپلیکشن ها . 64Bit' Declare PtrSafe Function GetActiveWindow Lib...
  • ماه قمری جمعه 17 خرداد 1398 13:15
    لینک https://fararu.com/fa/news/401468/پاسخ-به-پرسش‌های-متداول-در-مورد-رویت-هلال-ماه طبق گفته ها که ماه بعد با توجه به هلال ماه مشخص خواهد شد تبدیل قمری دقیق نیست آیا ماه رمضان همیشه ۲۹ روزه است؟ طول ماه‌های قمری در کشور‌های اسلامی بر اساس معیار‌های نجومی پیش‌بینی می‌شود و طول یک ماه در هر سال ارتباطی به سال‌های دیگر...
  • ارسال کامند به Device ( دوربین ) پنج‌شنبه 16 خرداد 1398 21:54
    متد (Device.ExecuteCommand(CommandID برای گرفتن عکس توسط دوربین اول انتخاب Device با متد ShowSelectDevice و بعد ارسال کامند به آن دستگاه : CommandID wiaCommandTakePicture ppResult = .ShowSelectDevice( _ [ ByVal DeviceType As WiaDeviceType ], _ [ ByVal AlwaysSelectDevice As VARIANT_BOOL ], _ [ ByVal CancelError As...
  • اسکنر کار با WIA در رفرنس اکسس (یوزر اینترفیس ) پنج‌شنبه 16 خرداد 1398 20:21
    CommonDialog Object محتوی تمام متدهایی است که UI ( رابط کاربری یا User Interface ) را نشان میدهد و باید "WIA.CommonDialog" با CreateObject ساخته شود یا CommonDialog در فرم آورده شود. Methods ShowAcquireImage نمایش یک یا چند دایالوگ باکس که یوزر را قادر سازد تا تصویر را از دستگاه مربوطع سازد بگیرد....
  • چیدمان کالمن ها در دیتاشیت با ColumnOrder پنج‌شنبه 16 خرداد 1398 19:52
    طبق مثال زیر البته در حالت دیزاین هم در ریبون در تب Order میشود Rearrange را انجام داد. Me.Student_ID.ColumnOrder = 1 Me.Family_Name.ColumnOrder = 2 Me.Preferred_Name.ColumnOrder = 3 Start Module---- Set frm =Screen.ActiveDatasheet.Form index=1 لوپ در داخل فیلدهای کوئری Start Loop ' (Set ctl = frm.Controls(fld.name...
  • چیدمان کالمن ها در دیتاشیت با ColumnOrder پنج‌شنبه 16 خرداد 1398 19:52
    طبق مثال زیر البته در حالت دیزاین هم در ریبون در تب Order میشود Rearrange را انجام داد. Me.Student_ID.ColumnOrder = 1 Me.Family_Name.ColumnOrder = 2 Me.Preferred_Name.ColumnOrder = 3 (Set ctl = frm.Controls(fld.name ctl.ColumnOrder = index
  • کپی کردن رکوردست در شیت اکسل ( بازیابی اطلاعات Extract ) پنج‌شنبه 16 خرداد 1398 18:33
    برای کپی کردن محتویات شی رکوردست (ADO یا DAO ) در گوشه ی بالائی سمت چپ رنج مشخص شده در شیت اکسل استفاده میشود public int CopyFromRecordset ( object Data, object MaxRows, object MaxColumns ) ; که Data همان متغیر نسبت داده شده بعنوان رکوردست است ، MaxRows ماکزیمم ردیف هایی که باید داخل شیت کپی شود و MaxColumns ماکزیمم...
  • بازیابی ردیف های رکوردست پنج‌شنبه 16 خرداد 1398 17:29
    Recordset.GetRows از متد GetRows برای کپی کردن یک یا چند رکورد از رکوردست استفاده می شود و سریعترین راهیست که به یکباره میتوان آنها را گرفت و بعد آرایه ی دوبعدی ساخت ، خروجی تابع آرایه ی دو بعدیست البته طبق داکیومنت اکسس که اولی فیلد و دومی شماره ردیف است . (varRecords(intField, intRecord طبق تصویر پائین دومی Start و...
  • خروجی به فرمت های Excel Pdf Rtf پنج‌شنبه 16 خرداد 1398 16:30
    ObjectType , ObjectName , OutputFormat , OutputFile , AutoStart نوع آبجکت : ObjectType acOutputQuery acOutputTable acOutputForm acOutputReport نا م آبجکت : فرم کوئری فرم یا گزارش : ObjectName فرمت خروجی : OutputFormat acFormatRTF acFormatPDF acFormatTXT acFormatXLS acFormatXLSX acFormatXLSB نام فایل یا مسیر ونام فایل...
  • تغییر مقادیر پراپرتی های کنترل در فرم یا گزارش با ControlType پنج‌شنبه 16 خرداد 1398 13:31
    استفاده از ControlType Propert در مثال زیر در کنترل های فرم لوپ زده میشود فقط مورد Lable که با acLabel مشخص شده و پراپرتی SpecialEffect و BorderStyle را عوض میکند ... کد را کپی نکنید اول خط به خط یاد بگیرید بعد مستفیذ شوید For Each ctl in frm.Controls With ctl انتخاب موارد تیپ کنترل Select Case .ControlTpye مورد لیبل...
  • ساخت دیتابیس جدید پنج‌شنبه 16 خرداد 1398 00:27
    (DBEngine.CreateDatabase method (DAO اسم دیتابیس نهایتا ۲۵۵ کاراکتر است حتی Space و اگر آدرس در شبکه باشد باید طبق مدل زیرعمل نمود. "Server1\loc1\db1.accdb\\" ()Private Sub cmdCreate_Click Dim db As DAO.Database (Set db = CreateDatabase("Exercise.accdb", dbLangGeneral End Sub در مثال بالا اگر...
  • اکسپورت آبجکت ذخیره شده به فایل Txt چهارشنبه 15 خرداد 1398 23:34
    برای اکسپورت از متد Docmd.TransferText استفاده می کنیم DoCmd.TransferText acExportDelim,"Standard Output "External Report", "C:\Txtfiles\April.doc," مثال بالا جدول External Report از دیتابیس اکسس که با نام Standard Output با Docmd.RunSavedImporExport ذخیره شده است را به فایل April اکسپورت...
  • حذف فیلتر/اعمال فیلتر چهارشنبه 15 خرداد 1398 21:47
    برای حذف فیلترهای اعمال شده در جدول ، کوئری یا مجموعه ای از رکوردها در فرم یا سابفرم از متد زیر استفاده می شود. DoCmd.ShowAllRecords برای فیلتر کردن فرضا مجموعه ای از رکوردها در سابفرم یا کانتینیوس فرم از متد زیر استفاده خواهیم کرد . در کل برای رکوردهای جدول کوئری فرم فعال و فوکس شده . زمان لود شدن آبجکت بصورت اتومات...
  • اعتبارسنجی تاریخ شمسی چهارشنبه 15 خرداد 1398 20:05
    Function CheckValidShamsiDate(Dt) As Boolean اگر فرمت بدین شکل باشد و / در فیلد ذخیره شود و سال هم چهار رقمی باشد 0000/00/00 ((Y=Val(Mid(Dt,1,4 ((M=val(Mid(Dt,6,2 ((D=Val(Mid(Dt,9,2 If Y<1 And Y>2500 Then CheckValidShamsiDate=False End if Select Case M Case 1 To 6 If D>31 And D<1 Then...