-
مِتُد 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...
-
متد Database.OpenRecordSet
یکشنبه 9 بهمن 1401 18:15
جهت پیشگیری از وقوع جرم، صرفا سازمان هلال احمر با همکاری کمیته امداد امام خمینی(ره)، سازمان بسیج مستضعفین، سازمان بهزیستی کشور، وزارت امور خارجه و سایر دستگاههای مرتبط موضوع ماده (۲) این قانون، اقدامات لازم در زمینه جذب، هدایت و توزیع کمکهای غیردولتی داخلی و خارجی را با رعایت اصل هشتادم (۸۰) قانون اساسی انجام...
-
ویژگی FilterOn از فرم
پنجشنبه 6 بهمن 1401 17:43
Form.Filter Property از ویژگی Filter برای تعیین زیر مجموعه ای از رکوردها استفاده کنید تا زمانیکه فیلتر روی فرم ، گزارش ، پرس و جو یا جدول اعمال می شود ، نمایش داده شوند. ویژگی فیلتر یک عبارت رشته ای است شامل عبارت شرطی بدون حرف کلیدی Where. Form.Filter="Id=101" Form.FilterOn=True برای اعمال فیلترِ خودکار...
-
ساخت یک ADO Recordset
چهارشنبه 5 بهمن 1401 21:42
عبارات Dim ، Redim ، Static ، Private ، Public فقط متغیری را اعلام می کنند که به یک شئ اشاره دارد.تا زمانیکه از دستور Set برای اختصاص یک شئ استفاده نکنید، به هیچ شئ واقعی اشاره نمی شود ... یعنی حتما برای دسترسی به اشیاء باید حتما از Set استفاده شود. Dim objRS As ADODB.Recordset Set objRS =...
-
ADO Charset & State & Type Property + Some Methods
سهشنبه 4 بهمن 1401 17:59
ویژگی Charset مقداری را تنظیم میکند یا برمی گرداند که مشخص می کند محتویات Stream باید به کدام مجموعه کاراکتر ترجمه شود( زمانیکه در بافر شئ Stream ذخیره می شود) . پیش فرض Unicode است. BSTR یا Basic String یک نوع داده ساختاریافته است که شامل یک رشته کاراکتر و طول رشته است. این ویژگی برای تبدیل داده های صادره و وارده از...
-
متد Recordset.FindFirst
دوشنبه 26 دی 1401 22:21
پیدا کردن اولین رکورد با توجه به شرط توضیحات : اگر رکوردی مطابق با شرط پیدا نشد ، نشانگر رکورد جاری ناشناخته است و ویژگی NotMatch به True تنظیم می شود.اگر رکوردست حاوی بیش از یک رکورد باشد FindFirst روی اولین جستجو قرار میگیرد و FindNext بعدی و به همین ترتیب .FindFirst(Criteria) دیماه ۱۴۰۱ - سفارت انگلیس زمان خمینی...
-
متد Recordset.GetRows
یکشنبه 25 دی 1401 22:56
این متد چندین رکورد از یک رکوردست را بازیابی میکند -شامل سه آرگومان است : Rows Start Fields -در آرایه دوبعدی بعلت اینکه متد GetRows همیشه تمام فیلدها در شئ رکوردست را برمی گرداند لذا می توانید کوئری ایجاد کنید تا فیلدهای مورد نیاز شما را باز گرداند. arrEmployees=rstEmployees.GetRows(intRows) داده ها در آرایه ای با نام...
-
آرایه در اکسس
یکشنبه 25 دی 1401 16:50
کد زیر از Access vba programming کپی شده که به تفسیر ساده تر آن پرداختیم. Sub modArray_StatesInAnArray() بارگزاری فهرستی از ایالات از جدول Customers داخل آرایه ای با اندازه مشخص ... با سایز ۲۰ Const lngArraySize = 20 Dim lngCounter As Long نیازمند این است که دیتا تایپ Variant باشد برای استفاده در لوپ ForEach Dim...
-
شمارش فرم های باز در اکسس
یکشنبه 25 دی 1401 15:26
-
محاسبه سن تقریبی فرد
شنبه 24 دی 1401 23:53
تاریخ تولد : ۱۳۸۰/۰۷/۰۹ تاریخ روز : ۱۴۰۱/۱۰/۲۴ (1401-1)-1380=20 ( ( 3 6 5 . 2 5 − 6 × 3 0 . 2 5 − 9 ) + ( 9 × 3 0 . 2 5 + 2 4 )=471 چون 471 از 365.25 بزرگتر است پس یکسال به عدد 20 اضافه شده و سال سن فرد مذکور 21 خواهدشد. ( ( 3 6 5 . 2 5 − 6 × 3 0 . 2 5 − 9 ) + ( 9 × 3 0 . 2 5 + 2 4 ) − 3 6 5 . 2 5 ) ÷ 3 0 . 2 5= 3 ( (...
-
شئ Stream در ADO
جمعه 23 دی 1401 13:24
Save and restore data in files with the SaveToFile and LoadFromFile methods. Stream.LoadFromFile FileName Stream.SaveToFile FileName,SaveOptions داکیومنت دو مورد بالا با نوشتاری آنها و آرگومانشان ارائه شده که قبلش حتما باید Stream را فراخوانی کنید بعد از متد Open استفاده کنید. در لینک زیر متدها و ویژگیها را می توانید...
-
کپی فایل با استفاده از توابع API
پنجشنبه 22 دی 1401 22:36
در ویندوز ۳۲ بیت : Public Declare Function CopyFileA Lib "kernel32" (ByVal AExistingFileName As String,ByVal ANewFileName As String,ByVal AFailIfExists As Boolean ) As Boolean کپی فایل متنی test از درایو C و پوشه Source در همان درایو ولی پوشه CopyLoc CopyFileA "C:\Source\test.txt",...