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

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

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

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

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

افعال حسی






افعال حسی در زبان انگلیسی | گرامر، کاربرد و لیست افعال حسی انگلیسی

۳.۷ (۷۴.۲۹%) ۱۴ vote[s]

افعال حسی در زبان انگلیسی

افعال حسی به افعالی گفته میشود که به حواس پنج گانه مربوط میشوند. لیست افعال حسی در انگلیسی را در جدول زیر مشاهده کنید.

معنی افعال حسیافعال حسی انگلیسی
دیدنsee
حس کردنfeel
گوش دادنlisten
متوجه شدن، دیدنnotice
تماشا کردنwatch
پیدا کردن، یافتنfind
شنیدنhear
بوییدنsmell

ساختار جملاتی که افعال حسی دارند

بعد از افعال حسی در داخل جملات از مصدر بدون to (شکل ساده فعل) و یا فعل ing دار به کار میرود. که هر کدام از این ساختارها معنی متفاوتی دارند. هنگامی که بخواهیم بگوییم که کل عملی را شنیده و یا دیده ایم از مصدر بدون to استفاده میکنیم و اگر بخواهیم بگوییم که بخشی از عمل را شنیده یا دیده ایم از فعل ing دار بعد از افعال حسی استفاده میکنیم. فرمول این دو ساختار را در زیر مشاهده میکنید:

ساختار جملات دارای فعل حسی

مثال از افعال حسی در داخل جملات‏

به معنی هر مثال دقت کنید تا تفاوت کاربرد مصدر بدون to و فعل ing دار را بعد از فعل حسی متوجه شوید.

saw her wash the dishes.

او را دیدم که ظرف ها را شست. (کل عمل را از ابتدا تا انتها دیدم)

saw her washing the dishes.

او را در حال شستن ظرف ها دیدم. (بخشی از عمل را دیدم)

ابزار مدیریتی ویندوز WMIC



ابزار مدیریتی ویندوز یا متشکل از مجموعه‌ای از ابزارهای جانبی برای مدیریت ویندوز می‌باشد و به عنوان رابطی بین سیستم عامل و بخش‌های مختلف عمل می‌کند به گونه‌ای که در صورت نیاز به هر گونه اطلاعاتی سیستم از طریق این ابزارها با بخش‌های مختلف ارتباط برقرار کرده و اطلاعات لازم را دریافت می‌کند






wmic diskdrive get serial number



کیو آر کد


("Hex("&H3F" Xor  "&HE3?

گرفتن کاراکتر

(Chr(&H3F?








تاریخ ساخت فایل




("Set fso = CreateObject("Scripting.FileSystemObject

(Set f = fs.GetFile(fso

f.DateCreated




.("CreateObject("Scripting.FileSystemObjec?

GetFile(CurrentProject.FullName).DateCreated

جستجو داخل تکست


(instr(Start,String,Searchstring



پسورد دیتابیس جدول لینک شده در اکسس


تنها پسوردی که در فایل اکسس کد نشده  پسورد دیتابیس جدول لینک شده است که براحتی میتوان از فایل استخراج نمود


نمایش کامند بار بعنوان شورتکات منو


نمایش بصورت پنجره   

myBar.ShowPopup






MsoBarPosition enumeration (Office)











بازیابی رمز در اکسس قدیمی

offset : 0x42-0x68

47 5E EC 37 9C E1 9C FA 07 FB 28 E6 D2 13 8A 60 95 31 7B 36 34 D7 DF B1 B6 51 13 43 0E 0A B1 33 F5 C4 79 5B 53 10 7C

  XOR روش 



ROW Hex Char HEXNULL Bin1 Bin2 Pass Bin Hexbin Decode_pass
1 78 x 47 01111000 01000111 7847 00111111 3F ?
2 5E ^ 5E 01011110 01011110
00000000 00
3 D3 EC 11010011 11101100 D3EC 00111111 3F ?
4 37 7 37 00110111 00110111
00000000 00
5 A3 ú 9C 10100011 10011100 A39C 00111111 3F ?
6 E1 ß E1 11100001 11100001
00000000 00
7 9C £ 9C 10011100 10011100
00000000 00
8 FA · FA 11111010 11111010
00000000 00


در اکسس جدید امکان بازیابی با این روش وجود ندارد چون تاریخ  و زمان فایل نیز در کد شدن دخیل میشود. پس سعی   نکنید     منظور اکسس ۲۰۰۰ که با ۲۰۰۷ به بالا ایجادشده باشد

 Low Security وبصورت 


اگر با اکسس 2007 و بالاتر فایل ورژن پاینتر ساخته باشید تاریخ  و ساعت ساخت فایل برای کد گذاری در نظر گرفته خواهد شد و در هدر فایل ذخیره خواهد شد برای بدست آوردن رمزاین حقه را میشود  بکار گرفت  باید یک فایل با همان تاریخ و ساعت ایجادکرد و بعد از آفست 42 تا 68 دو فایل را بایت به بایت با هم مقایسه نمود ولی در آفیس ۲۰۱۰ به بالا از رمزنگاریهای مختلف استفاده شده و غیر قابل بازیابیست جز مهندسان مرتبط حوزه ی خودش 



درج ردیف و ایجاد ردیف در اکسل

درج ردیف در اکسل در صورتیکه ردیف پاک شود ردیف ها تغییر خواهند نمود 

Row()-1=



ایجاد ردیف اتومات 


ActiveCell.EntireRow.Insert XlShiftDown




بررسی لود فرم و شمارش تعداد فرم ها در اکسس


شی CurrentProject چندین  کالکشن یا مجموعه  دارد که  محتوی اشیاء  AccessObject  داخل  دیتابیس جاری هستند  در جدول زیر نام کالکشن

و نوع شی ذکر شده  ، کالکشن ALLFORMS محتوی فرم های دیتابیس جاریست فرضا می توانید با پراپرتی های آن تعداد آنها را بدست آورید





ALLFORMS PROPERTIES






بررسی لود بودن فرم : 


Currentproject.AllForms.Item("Form1").isloaded


کالکشن Forms حاوی فرم های باز شده در دیتابیس جاریست و پراپرتی Count برای شمارش آنها.


تعیین تعداد فرم های باز شده
forms.count
تعیین تعداد فرم ها در دیتابیس جاری
currentproject.allforms.count


فیلتر خودکار در اکسل


فیلتر تمام  ردیف هایی که آیتم ثبتی آنها Printer یا Projector باشد.





کپی  ردیف های فیلتر شده به صفحه ی کاری اضافه شده 



اضافه کردن ردیف


وقتی شما شماره ای در کالمن B بالای Total (در کالمن A ) قرار بدهید ردیف ایجاد و کرسر به کالمن A روی ردیف ایجادشده خواهد رفت.



(Private Sub Worksheet_Change(ByVal Target As Range
If Target.Column <> 2 Then Exit Sub
If Cells(Target.Row, 2).Offset(1, -1) = "Total" Then
Rows(Target.Row + 1).Insert
Cells(Target.Row + 1, 1).Select
End If
End Sub

شمارش ردیف ها در اکسل




Returns a Range object that represents the cell at the end of the region that contains the source range. Equivalent to pressing END+UP ARROW, END+DOWN ARROW, END+LEFT ARROW, or END+RIGHT ARROW. Read-only Range object.

Syntax

(expression.End (Direction



lngLastRow = Cells(Rows.Count, 1).End(xlUp).Row



کنسل کردن رایت کلیک در اکسل



این رویداد زمانی اتفاق می افتد که در صفحه ی کاری کلیک راست انجام  شود.



Private Sub Worksheet_BeforeRightClick(ByVal Target

(As Range, Cancel As Boolean

اگر در آن رنج بود : 

Cancel=True


تابع تعیین موقعیت رشته داخل رشته ی دیگر Instrrev از آخر


InstrRev(stringcheckstringmatch, [ start

compare ]]


این تابع موقعیت یک String را داخل String دیگر بر می گرداند البته از اول نه آخر فقط از آخر دنبال String مورد نظر شما در String دیگر می گردد؛ اگر Start ( که آپشنال یا انتخابیست و نشاندهنده ی این است که  از کدام کاراکتر شروع کند ) نال باشد ارورمیدهد و اگر خالی رها شود از آخر شروع و اگر مقدار عددی داشته باشد تعداد کاراکتر StringCheck از اول رشته تا آن عدد اعلام شده است.


*****   جستجو از آخرین کاراکتر انجام میشود 


فرض کنید میخواهید موقعیت xy را در Azxyiopxy123 بیابید 


("Instrrev("Azxyiopxy123","xy


تابع بالا عدد ۸ را بر می گرداند ( یعنی از آخر شروع به جستجوی میکند ولی مقدار تابع از اولین کاراکتر است نه از آخر به اول )


مثال های خود اکسس  : 


(InstrRev ("alphabet", "a", 2
Result: 1
درمثال پائین نتیجه یک است چون شما Start
را از 3 اعلام کردید
در نتیجه فقط alp در نظر گرفته میشود و a در آن جستجو میشود
(InstrRev ("alphabet", "a", 3
Result: 1
(InstrRev ("alphabet", "a", 4
Result: 1
(InstrRev ("alphabet", "a", 5
Result: 5
(InstrRev ("alphabet", "a", 6
Result: 5