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

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

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

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

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

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

  • تابع Shell برای اجرای برنامه های اجرائی پنج‌شنبه 11 خرداد 1402 12:31
    نوشتاریِ تابع بصورت زیر و دارای دو آرگومان اجباری (Required) و اختیاری (Optional)است.اولی مسیر و نام فایل ، دومی حالت پنجره مثل vbNormalFocus یا vbHide ( پنهان می شود ) Shell ( pathname [ , windowstyle ] )
  • متد Application.DDEInitiate آغاز مبادله داده های پویا چهارشنبه 10 خرداد 1402 22:26
    از تابع DDEInitiate برای شروع ارتباط مبادله داده پویا با سایر برنامه ها استفاده می شود. این تابع یک کانال برای انتقال داده بین سرور DDE و برنامه کلاینت باز می نماید expression . DDEInitiate ( Application , Topic ) Application : یک عبارت رشته ای نمایانگر یک برنامه که می تواند در مکالمه DDE همکاری داشته باشد.معمولا این...
  • جدا کردن عدد از یک متن پنج‌شنبه 4 خرداد 1402 14:59
    48-57 1- لوپ زدن در طول متن که از چندین space تشکیل شده مثل : For i=1 To Len(sText) 2-استفاده از تابع Mid Mid(String,Start,Length) Var=Mid( sText ,1, i ) 3-اگر Ascii code کاراکتر بین 48 تا 57 بود آن کاراکتر ( از رشته ) در متغیری موقتا ذخیرشود و در خروجی آن ارقام کنار هم نمایش داده شود. این کدهای اسکی را می توان در...
  • کنترل اعتبار IBAN یا شماره حساب بانکی بین المللی سه‌شنبه 2 خرداد 1402 23:10
    Example (fictitious United Kingdom bank,2 sort code 12-34-56, account number 98765432): IBAN : GB 82 WEST 1234 5698 7654 32 انتقال ۴ کاراکتر اول به انتها W E S T 12345698765432 G B 82 تبدیل حروف به ارقام ( برای A تا Z شروع از 10 و بهمین ترتیب ) 32142829 12345698765432 1611 82 Mod 97=1 A=10,B=11,C=12,D=13, E=14, F=15,...
  • فرق بین ویژگیهای Text و Value همچنین استفاده از تگ های HTML شنبه 30 اردیبهشت 1402 22:07
    -ویژگی Text محتویات جاری کنترل است. -ویژگی Value مقدار ذخیره شده کنترل تکست باکس است. -ویژگی Value تا زمانیکه کنترل فوکس دارد همیشه در جریان است . -ویژگی Value ، ویژگی Default کنترل را تنظیم یا باز می گرداند، که این ویژگی زمانیکه به صراحت نام ویژگی خاصی را مشخص نکردید ، فرض می شود. ویژگی Value مشابه ویژگی DefaultValue...
  • ویژگی AppIcon یا AppTitle در اکسس شنبه 23 اردیبهشت 1402 22:05
    ویژگی AppIcon یک عبارت رشته ای که نام یک فایل Bitmap یا Icon است. البته شامل مسیر !!! راحت ترین راه برای تنظیم این ویژگی استفاده از انتخاب Application Icon در جعبه دیالوگ Access Options است.همچنین می توان با استفاده از ماکرو یا ویژوال بیسیک نیز آنرا تنظیم نمود. برای تنظیم ویژگی AppIcon با استفاده از ماکرو یا ویژوال...
  • مخفی کردن پنجره اصلی اکسس شنبه 23 اردیبهشت 1402 17:07
    advanced-installer در رویداد بارگزاری فرم با نام لاگین می توان تابعی نوشت که از تابع ShowWondow ویندوزی و قرار دادن مقدار صفر در آرگومان دوم آن برای مخفی کردن پنجره استفاده کند. Private Sub Form_Load() On Error GoTo Err_Handler SetAccessWindow (SW_SHOWMINIMIZED) DoCmd.Restore Exit_Handler: Exit Sub Err_Handler: MsgBox...
  • خواندن یک فایل باینری با عبارت Open در اکسل شنبه 23 اردیبهشت 1402 11:06
    Sub Temp() Dim intFileNum%, bytTemp As Byte, intCellRow% intFileNum = FreeFile intCellRow = 0 Open "C:\temp.bin" For Binary Access Read As intFileNum Do While Not EOF(intFileNum) intCellRow = intCellRow + 1 Get intFileNum, , bytTemp Cells(intCellRow, 1) = bytTemp Loop Close intFileNum End Sub نوشتاری Open...
  • شئ Drive و کالکشن Drives در فهرست گیری درایوهای موجود جمعه 22 اردیبهشت 1402 18:44
    دسترسی به ویژگیهای یک Disk Drive خاص یا اشتراک شبکه رافراهم میسازد . دارای کالکشن Drives و ویژگیهایی مثل DriveLetter VolumeName ، TotalSize ، FreeSpace یاSerialNumber ( نه هارد ) و ... است اسم متغیر Fso که با Set همراه میشود CreateObject("Scripting.FileSystemObject") For Each D in Fso.Drives Debug.Print...
  • بررسی وجود یک فولدر با استفاده از شئ Scripting.FileSystemObjecf جمعه 22 اردیبهشت 1402 18:34
    در صورتیکه پوشه مورد نظر موجود باشد True و در غیر اینصورت False را بر میگرداند نوشتاری این متد : Object.FolderExists(filespec)
  • Bound Control چیست جمعه 22 اردیبهشت 1402 18:00
    کنترل محدود یک کنترل آگاه از داده یا Data-aware می تواند دسترسی به یک فیلد یا فیلدهای خاص در پایگاه داده را از طریق یک کنترل داده فراهم کند. این کنترل معمولاً از طریق ویژگی های DataSource و DataField به یک کنترل داده متصل می شود. هنگامی که یک کنترل داده از یک رکورد به رکورد دیگر منتقل می شود ، همه کنترل های محدود متصل...
  • مِتُد GetFile از شئ FileSystemObject جمعه 22 اردیبهشت 1402 17:08
    این متد یک شئ File مرتبط به فایل با یک مسیر مشخص را بازمی گرداند در صورتیکه فایل در مسیر مشخص شده نباشد خطا ایجاد می کند. شئ File دسترسی به تمام ویژگیهای یک فایل را فراهم می سازد GetFolder>>>>>File Object >>>> Access to all properties شئ File شامل کالکشن Files ( برای بازیابی فایل های موجود...
  • شمارش زیر فولدرها با استفاده از شئ FileSystemObject جمعه 22 اردیبهشت 1402 15:25
    1-ساخت شئ و تنظیم آن ( با Set ) به متغیری جهت استفاده از مجموعه ها و متدهای آنها CreateObject :Scripting.FileSystemObject متد GetFolder شئ Folder مرتبط با پوشه با مسیر مشخص را برمیگرداند و می توان به ویژگیهای آن دسترسی پیدا کرد. GetFolder(PathSpecified) شئ Folder طبق گفته بالا دسترسی به تمام ویژگیهای یک پوشه را فراهم...
  • عبارت Type در ماژول جمعه 22 اردیبهشت 1402 14:59
    دستور Type فقط در سطح Module قابل استفاده است . پس از اینکه یک نوع تعریف شده توسط کاربر را با استفاده از Type اعلام کردید ، *می توانید متغیری از آن نوع را در هر جایی از محدوده اعلان اعلام کرد.از Dim ، Private ، Public ، Redim یا Static برای اعلام یک متغیر از نوع تعریف شده توسط کاربر استفاده کنید *User-Defined یعنی...
  • تابع API دانلود فایل از آدرس اینترنتی و یافتن فایل در پوشه خاص جمعه 22 اردیبهشت 1402 12:49
    Downloads bits from the Internet and saves them to a file . Library : Urlmon.lib DLL : Urlmon.Dll HRESULT URLDownloadToFile ( LPUNKNOWN pCaller, LPCTSTR szURL, LPCTSTR szFileName, _Reserved_ DWORD dwReserved, LPBINDSTATUSCALLBACK lpfnCB ); برای نوشتن تابع بالا برای ویندوز ۶۴ بیت باید PtrSafe را در نیز در آن بکار ببرید...
  • SetOption , GetOption Method سه‌شنبه 19 اردیبهشت 1402 20:30
    از متدهای SetOption و GetOption برای تنظیم و گرفتن مقادیر انتخاب ( Option Box ) در جعبه دیالوگ Options استفاده کنید.برای مشاهده این دیالوگ باکس ، اول باتن Office و سپس Access Options را کلیک نمائید. مقداری که به متد SetOption بعنوان آرگومان ارسال می کنید بستگی به نوع گزینه ای دارد که تنظیم می کنید. مثال : گرفتن مقدار...
  • غیر فعال کردن تیک CheckBox با فعال کردن کنترل تیک چک باکس دیگر در فرم چهارشنبه 13 اردیبهشت 1402 19:28
    لطفا در صورت اعلام نظرسنجی خیلی کم یا کم در همان یادداشت علت را ذکر کنید دو تا کنترل چک باکس در فرمی تعبیه شده می خواهیم با زدن تیک یکی تیک دیگری برداشته شود. در رویداد کلیک هر کدام می توانید دیگری را فالز یا صفر کنید اگر درسته لطفا نظر بدهید. checkbox2=Not Checkbox1 یا CheckBox2=0 چک کنید کدام درست است و اعلام...
  • نسخه اکسس پیتر نورتون چهارشنبه 13 اردیبهشت 1402 18:27
    به نسخه تمیزی از کتاب برنامه نویسی در اکسس ۲۰۰۰ یا ۲۰۰۲ پیتر نورتون نیازمندم اگر شخصی قصد فروش داشت لطفا کامنت بذاره.
  • عدم مسئولیت مدیران صدا و سیما در پخش جمعه 8 اردیبهشت 1402 18:22
    اردیبهشت ۱۴۰۲ ( تاخیر در پخش آخرین قسمت زندگی پس از زندگی ) دادگاهی در لاهه هلند روز جمعه به مردی که به گفته قضات این دادگاه، پدر ژنتیکی حدود 600 کودک و نوجوان در سراسر جهان است، دستور داد از اهدای اسپرم خود خودداری کند. به گزارش عصرایران به نقل از رویترز، در حکم دادگاه آمده است که این مرد هلندی 41 ساله که با نام...
  • تابع RND در اکسس جمعه 1 اردیبهشت 1402 20:11
    تابع RND عددیست بین 0 و 1 .. و مثل یک ضریب عمل می کند اگر مفید بود لطفا در نظر سنجی شرکت کنید The code module contains the Wichmann-Hill (1982) CLCG (combined LCG) in VBA and is fully functional. It is called RndX() and is used in conjunction with its own RandomizeX() . It has a much longer repeat cycle than...
  • حجاب سه‌شنبه 22 فروردین 1402 18:54
    سلبریتی ها خیلی دوست دارن زمان طاغوت برگرده چون راحتترن Don't look back دو تصویر بالا ملاحظه بشه سوریه یک کشور اسلامی و ایران نیز ، تفاوت تا کجا ، خودتون قضاوت کنید به همراه خوش و بش جناب رئیسی با ایشان و نوع پوشش !!! کیهان: مخالفان حجاب آن قدر به مجری برنامه «زندگی پس از زندگی» حمله کردند که کارش به عمل مغز کشید! در...
  • multivalued field چیست جمعه 11 فروردین 1402 19:53
    زمان کلیک روی فلش کمبوباکس چند انتخابی ، چک باکس ها ظاهر می شوند تا انتخاب های شما را نمایش دهند. می توان موارد در فهرست را تیک زد یا تیک را برداشت سپس با فشردن کلید OK ذخیره موارد انتخابی را انجام داد.موارد انتخاب شده در multivalued field نگهداری شده و زمان نمایش با کاما از هم جدا می شوند.( بصورت پیش فرض ) ایده پشت...
  • عبور دادن یک آرایه به یک رویه تابع یکشنبه 6 فروردین 1402 21:23
    فروردین ۱۴۰۲ : مهراب قاسم‌خانی بازیگر و طنزنویس در استوری باکنایه به طرح جریمه نقدی بی‌حجابی نوشت: همه‌اش سه میلیارد؟ تساهل و تسامح تا کجا؟ ما از شما انتظار داریم برای ابطال شناسنامه اقدام کنید. می توان یک آرایه را به یک رویه تایع ارسال کرد و یک آرایه را از یک تابع برگرداند.برای مثال ، فرض کنید فهرستی از کشورها را...
  • کار با آرایه های مشخص و مقدار معین ( Parameter arrays ) یکشنبه 6 فروردین 1402 21:13
    ParamArray : نوشتن تابع AddMultipleArgs برای گرفتن تعداد کلی داخل پرانتز Function AddMultipleArgs(ParamArray myNumbers() As Variant) Dim mySum As Single Dim myValue As Variant For Each myValue In myNumbers mySum = mySum + myValue Next AddMultipleArgs = mySum End Function ?AddMultipleArgs(1, 23.24, 3, 24, 8, 34)...
  • تولید عدد تصادفی یا رندوم ..... Randomize یکشنبه 6 فروردین 1402 16:07
    minNum=1 maxNum=68 lucky=Int((maxNum - minNum + 1) * Rnd) + minNum برای استفاده در لوپ و آرایه : Const spins=6 Dim lucky(spins) Dim myNumbers as String myNumbers="" عبارت زیر در یک لوپ قرارداده می شود ، فرضا متغیر t در بازه یک تا عدد ثابت spins lucky(t) = Int((maxNum - minNum + 1) * Rnd) + minNum می توان...
  • Msgbox در اکسس شنبه 5 فروردین 1402 21:39
    Sub TestButtons() Dim question As String Dim bts As Integer Dim myTitle As String Dim myButton As Integer question = "Do you want to preview the report now?" bts = vbYesNoCancel + vbQuestion + vbDefaultButton1 myTitle = "Report" myButton = MsgBox(prompt:=question, buttons:=bts, _ Title:=myTitle)...
  • شماره آیتم انتخاب شده در لیست باکس کمبو با ویژگی ListIndex دوشنبه 22 اسفند 1401 19:43
    -برگرفته از داکیومنت سایت Office ویژگی ListIndex برای تعیین اینکه کدام آیتم در کمبوباکس انتخاب شده بکار می رود. ویژگی ListIndex عدد صحیحی بین 0 تا تعداد کلی آیتم ها در لیست باکس یا کمبوباکس منهای یک است. مایکروسافت اکسس مقداراین ویژگی را هنگام انتخاب آیتم در لیست باکس یا قسمت لیست باکسِ کمبوباکس تنظیم می کند.مقدار...
  • TempVars در اکسس ( تعریف متغیرهای موقت برای استفاده در تمام رویه ها ) سه‌شنبه 16 اسفند 1401 21:32
    طبق کتاب Access programming 2021 چنانچه دیتابیس ( پایگاه داده ) با فرمت ACCDB است ، بجای استفاده از جدول پایگاه داده یا متغیرهای global ، می توان از مجموعه TempVars برای ذخیره داده های گوناگون که تمایل دارید دوباره بکار ببرید بهره برد. TempVars مخفف متغیرهای موقت است.این متغیرها global هستند.می توان در ماژول های VBA...
  • متد Shell.NameSpace دوشنبه 15 اسفند 1401 18:31
    Shell.Application یک شئ Folder برای پوشه مشخص شده ایجاد و برمی گرداند retVal=Shell.NameSpace(vdir) vDir : پوشه ای که در آن شئ Folder ایجاد می شود.می تواند رشته ای باشد که مسیر پوشه یا یکی از مقادیر ShellSpecialFolderConstants را مشخص می کند. توجه کنید که نام های ثابت موجود در ShellSpecialFolderConstants در Visual...
  • شئ ImageFile دوشنبه 15 اسفند 1401 18:08
    شئ ImageFile یک ظرف است . همچنین از فایل های تصویری از طریق متد LoadFile پشتیبانی می کند. شئ ImageFile را می توان با استفاده از WIA.ImageFile ساخت. متدها : LoadFile SaveFile Saves the ImageFile object to the specified file. ویژگی ها : FileExtension Height Width HorizontolResolution VerticalResolution...