مقداری را برمی گرداند که نشان می دهد آیا کنترل toggleButton شناسایی شده توسط پارامتر idMso فشرده شده است یا خیر.
متد ExecuteMso کنترل شناسایی شده توسط پارامتر idMso را اجرا می کند.
expression.ExecuteMso "MinimizeRibbon"
-برداشت شده از داکیومنت سایت Office
برای سیستم ۳۲ یا ۶۴ بیت
IsZoomed :
آیا یک پنجره در حالت حداکثر سایز است ؟
Determines whether a window is maximized.
IsIconic :
آیا پنجره تعیین شده در حالت حداقل اندازه است ( دیدن فقط آیکون های پنجره) ؟
Determines whether the specified window is minimized (iconic).
#If VBA7 Then
Private Declare PtrSafe Function IsZoomed Lib "user32" (ByVal hWnd As LongPtr) As Integer
Private Declare PtrSafe Function IsIconic Lib "user32" (ByVal hWnd As LongPtr) As Integer
#Else
Private Declare Function IsZoomed Lib "user32" (ByVal hWnd As Long) As Integer
Private Declare Function IsIconic Lib "user32" (ByVal hWnd As Long) As Integer
#End If
IsWindowVisible
اندازه ، موقعیت و ترتیب Z یک پنجره Child یا Pop-up یا top-level را تغییر می دهد. این پنجرهدها با توجه به ظاهرشان بر روی صفحه نمایش ( Screen ) مرتب می شوند. بالاترین پنجره بالاترین رتبه را دریافت می کند و اولین پنجره در ترتیب Z است.
Z-Order فرآیند سورت و قرار گیری پنجره هاست.بالاترین به پائین ترین ترتیب
برای تعیین اینکه آیا پنجره پایگاه داده زمانیکه برنامه باز میشود نمایش داده شود یا خیر از این ویژگی استفاده می شود.بعنوان مثال ، زمانیکه برنامه پایگاه داده باز می شود ، می توانید یک فرم اصلی را باز کنید و پنجره پایگاه داده را پنهان کنید.
می توانید این ویژگی را برای پنهان کردن پنجره پایگاه داده به False تنظیم نُمائید لذا کاربر جداول ، پرس و جو ها ، ماکروها و ماژول های داخل پایگاه داده را نمی تواند مشاهده کند.
آسان ترین طریق برای تنظیم این ویژگی استفاده از انتخاب Display DataBase Window در دیالوگ باکس Startup است ، که با کلیک کردن Startup از منوی Tools در دسترس است . همچنین این ویژگی با استفاده از ماکرو یا ویژوال بیسیک هم قابل تنظیم است.
اگر چک باکس Use Access Special Keys در کادر محاوره Starup انتخاب شود یا اگر ویژگی AlliwSpecialKeys به True تنظیم شود کابران با فشردن کلید F11 می توانند پنجره پایگاه داده را مشاهده نمایند.
حالت نمایش پنجره بدون انتظار برای عملیات کامل شدن را تنظیم می کند
BOOL ShowWindow(
[in] HWND hWnd,
[in] int nCmdShow )
وی هدف از توزیع تخمه شور را جلوگیری از خواب آلودگی رانندگان ذکر کرده و آن را عامل مهم کاهش تصادفات اعلام و اضافه کرد: این طرح از سوی نیروی انتظامی مرکز مورد توجه قرار گرفته و مقرر شده در دیگر استانها نیز اجرا شود.
انتشار این خبر، موجی از استقبال و انتقادها را از سوی کاربران فضای مجازی به دنبال داشت؛ عدهای از این طرح استقبال کردند و در مقابل، شماری هم با طرح انتقاداتی، آن را خلاف قوانین و مقررات رانندگی به استناد "ممنوعیت خوردن و آشامیدن در حین رانندگی" دانستند.
استفاده از ویژگی برای تعیین اینکه می توان از کلید Tab برای انتقال فوکس به یک کنترل استفاده کرد یا خیر ، نوع Boolean بصورت خواندنی و نوشتنی
زمان ساخته شدن یک کنترل روی یک فرم ، مایکروسافت اکسس بصورت خودکار به کنترل یک موقعیتی را در Tab Order فرم اختصاص می دهد.
هر کنترل جدید در آخر Tab Order ( برگه چیدمان کنترل ها ) قرار می گیرد.برای جلوگیری از در دسترس بودن یک کنترل زمان پرش بین کنترل های یک فرم ویژگی TabStop را به No تنظیم کنید.
در نمای فرم کنترل های پنهان یا غیر فعال در tab order باقی می مانند اما با فشردن tab در میان کنترل ها حذف می شوند.حتی اگر ویژگیهای TabStop آنها روی Yes تنظیم شده باشد.
تا زمانیکه ویژگی Enabled یک کنترل روی Yes تنظیم شده باشد،می توانید روی کنترل Click کنید یا از یک کلید دسترسی برای انتخاب آن استفاده کنید، بدون توجه به تنظیمات ویژگی TabStop. برای مثال می توانید ویژگی TabStop یک Command Button را روی No تنظیم کنید تا با فشردن Tab از انتخاب آن توسط کاربران جلوگیری کنید.با این حال ، آنها همچنان می توانند روی Command Button کلیک کنند تا آنرا انتخاب کنند.
استفاده از ویژگی TabIndex برای تعیین محل قرارگیری یا ترتیب یک کنترل در tab order روی یک فرم یا گزارش.نوع داده Integer و خواندنی-نوشتنی است.
Me.LastName.TabIndex=2
تنظیم ویژگی TabIndex به یک مقدار صحیح که نمایش دهنده موقعیت کنترل در tab order فرم است.تنظیم های معتبر ، صفر برای اولین موقعیت در tab تا تعداد کل کنترل ها منهای یک بر ای آخرین موقعیت در tab order است.برای مثال ، اگر فرمی ۳ کنترل دارد که هر کدام دارای ویژگی TabIndex هستند ، تنظیمات معتبر برای این ویژگی ، صفر ، یک و دو هستند.
تنظیم ویژگی TabIndex به عدد صحیح کمتر از Zero خطایی را تولید می کند.
مثال بعدی tab order یک Command Button و یک text box را برعکس می کند.بدلیل اینکه TextBox1 اول ایجاد شد ، تنظیم ویژگی TabIndex صفر را دارد و Command1 مقدار یک را داراست.
Sub Form_Click()
Me!Command1.TabIndex = 0
Me!TextBox1.TabIndex = 1
End Sub
اگر پارامتر nTabPositions صفر و پارامتر lpnTabStopPositions نال باشد تب ها به هشت برابر میانگین عرض کاراکترگسترش می یابند.
اگر nTabPositions یک در نظر گرفته شود ، tab stop ها با فاصله مشخص شده توسط مقدار اول در آرایه lpnTabStopPositions از هم جدا می شوند.
اگر آرایه lpnTabStopPositions حاوی بیش از یک مقدار باشد ، یک tab stop برای هر مقدار در آرایه تا تعداد مشخص شده توسط nTabPositions تنظیم می شود.
Undocument ... User32.Dll
MB_YESNOCANCEL=&H3
MB_YESNO=&H4
MB_RETRYCANCEL=&H5
MB_OKCANCEL=&H1
MB_OK=&H0
MB_ICONEXCLAMATION=&H30
MB_ICONHAND=&H10
MB_DEFBUTTON1=&H0
MB_DEFBUTTON2=&H100
MB_RIGHT=&H80000
MB_RTLREADING=&H100000
MB_TOPMOST=&H40000
IDOK=1
IDCANCEL=2
IDYES=6
IDNO=7
MessageBoxW(hWnd,lpText,lpCaption, uType:iFlags)
MessageBoxTimeoutW(hWnd,lpText,lpCaption, uType:iFlags,wLanguage, dwMilliseconds)
2000Milliseconds=2Seconds
پنجره ، نوار عنوان یا title bar دارد ( شامل مد WS_BORDER
WS_CAPTION As Long = &HC00000
WS_MAXIMIZE As Long = &H1000000
WS_MAXIMIZEBOX As Long = &H10000
WS_MINIMIZE As Long = &H20000000
WS_MINIMIZEBOX As Long = &H20000
WS_SYSMENU As Long = &H80000
WS_POPUP As Long = &H80000000
WS_POPUPWINDOW(WS_POPUP | WS_BORDER | WS_SYSMENU)
Dim lngWindow As Long
Dim lFrmHdl As Long
FrmHnd=FindWindowA(vbNullString,frm.Caption)
lngWindow=GetWindowLong(FrmHnd,GWL_STYLE)
lngWindow=lngWindow And (Not WS_CAPTION)
SetWindowLong(FrmHnd,GWL_STYLE,lngWindow)
DrawMenuBar(FrmHnd)
نرگس محمدی، پاداش پا گذاشتن روی احساسات مادرانه و اقدامات ضدایرانیاش را گرفت و برنده جایزه نوبل ۲۰۲۳ شد.
جستجوی عبارت گرفته شده در باکسی از فرم در زیرفرم آن (subFrmEmp)
تعریف متغیر شرطی
تنظیم یک شئ به یک متغیر
استفاده از متد FindFirst
استفاده از ویژگی RecordSetClone برای پیمایش یا انجام عملی روی رکوردهای فرمی مستقل از خود فرم ، مثلا استفاده از متد Dao Find که با فرم نمی تواند بکار برده شود.
.Index = "PrimaryKey"
' Seek record.
.Seek "=", intID
مهر ۱۴۰۲ : افت فشار ، بیهوش شدن و ضربه پشت سر به لبه سکو
ابهام دیگر درخصوص انتقال آرمیتا گراوند به بیمارستان فجر است، اساساً چرا باید آرمیتا را از ایستگاه متروی شهدا به بیمارستان فجر وابسته به دانشگاه علوم پزشکی ارتش در خیابان پیروزی ببرند درحالی که دو بیمارستان معیری و شفایحیاییان در نزدیکی میدان شهدا قرار دارد؟
اطلاعات ما از مراکز درمانی نشان میدهد که دو بیمارستان معیری و شفایحیاییان بیمارستان تخصصی ارتوپدی هستند ( مزخرف ترین بیمارستان های علوم پزشکی ) اما بیمارستان تخصصی و فوق تخصصی فجر دارای بخشهای جراحی عمومی، جراحی مغز و اعصاب،درمانگاه داخلی، درمانگاه قلب، درمانگاه ریه و ... است.
۱۳مهر ۱۴۰۲ : ضبط گذرنامه محمود احمدی نژاد بدلیل عدم تامین امنیت در گواتمالا
مخالفت با سفر رئیس جمهور اسبق به گواتمالا
برخی خبرهای غیر رسمی حاکیست با سفرمحمود احمدی نژاد رئیس جمهور اسبق به کشور گواتمالا بدلیل ملاحظات حفاظتی مخالفت شده است.
جمهوری اسلامی ایران در کشور گواتمالا نمایندگی سیاسی ندارد و شرایط این کشور پس از انتخابات اخیر که منجر به منازعه سیاسی بین دو گروه رقیب برنده و بازنده در انتخابات شده، کاملا ناپایدار و غیر امن است.
آخرین خبر نوشت: احمدی نژاد بر انجام این سفر اصرار دارد و توصیه های دستگاههای ذیربط راد نپذیرفته است.
۱۷ مهر ۱۴۰۲ : ( در پی عملیات طوفان الاقصی )
You can use the LinkChildFields and LinkMasterFields properties together to specify how Microsoft Access links records in a form to records in a subform. If these properties are set, Microsoft Access automatically updates the related record in the subform when you change to a new record in a main form.
در تصویر زیر دو تا زیرفرم از نوع DataSheet View ساخته شده و در فرم اصلی قرار گرفته ، زمانیکه مکان نما روی رکورد اول در دیتاشیت سمت چپ قرار بگیره دیتاشیت سمت راست فیلتر میشه و لیست کشورها رو میاره یعنی یک فیلد MasterId در آن وجود دارد که هاید شده و این دو سابفرم طبق این فیلد بهم لینک شده اند.
زبان انگلیسی پایه هفتم-مهر ۱۴۰۲ ( پروفسورهای حکومتی)
Colorized search string
ControlSource
IIf([Company] Is Null, Null, Replace([Company], "ar", "<font color=""red"">ar</font>"))
<div><font face=SomeFontName>YourText</font></div>
Sub WebReq()
link = "http://it.finance.yahoo.com/q?s=^FCHI&ql=10" & Str(Rnd())
Set htm = CreateObject("htmlFile")
Dim objHttp
Set objHttp = CreateObject("Msxml2.ServerXMLHTTP")
objHttp.Open "GET", link, False
objHttp.Send
htm.body.innerhtml = objHttp.responsetext
Set objHttp = Nothing
End Sub
«سریال گاندو؛ شرح صحنه نشستن خانم شارلوت لبه استخر با پاچه خیس در آب : عضو سفارت انگلستان در ایران، با لباس در استخر سفارتخانه در حالی که مسکرات میخورد و با نامحرم ارتباط تصویری میگیرد.
dbMaxLocksPerFile
هنگامیکه یک یا چند کاربر ، بسیاری از تراکنش ها را در یک محیط چند کاربره ( MultiUser ) پردازش می کنند ، ممکن است تراکنش ها با پیام خطای زیر Fail شوند :
File sharing lock count exceeded. Increase MaxLocksPerFile registry entry.
For 32-bit version of Access running on 64-bit version of Windows
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\ClickToRun\REGISTRY\MACHINE\Software\Wow6432Node\Microsoft\Office\<x.0>\Access Connectivity Engine\Engines\ACE
با افزایش MaxLocksPerFile در رجیستری می توانید این خطا را تا حدی کنترل کنید ... یا با SetOption
در ویندوز ، محدودیت های خاصی برای اشتراک گذاری فایل ها ( file-sharing ) به صورت همزمان وجود دارد. اگر به هر علت از این حد فراتر رفت ، عملیات اشتراک گذاری ( sharing ) فایل متوقف می شود. یک عنصر رجیستری به نام ورودی MaxLocksPerFile وجود دارد که حداکثر محدودیت اشتراک فایل را نظارت کرده و از آن مراقبت می نُماید. بنابراین زمانیکه این محدودیت اشتراک از حدی فراتر رود ، آن خطا را در صفحه سیستم خود دریافت خواهید کرد البته شما کمتر دریافت می کنی و با چنین مشکلی برخورد خواهید کرد
how many bricks are used
'Open : For OutPut
Do While Not rst.EOF
Print #1, rst!Name
rst.MoveNext
Loop
داده های با فرمت نمایشی را در یک فایل متوالی می نویسد.
نوشتاری : [ ] اختیاری
Print#فهرست خروجی],شماره فایل]
توجه فرق #Print و #Write :
اگر در آینده می خواهید داده ها را از یک فایل با لستفاده از عبارت یا دستور #Input بخوانید ، بجای عبارت #Print از عبارت #Write برای نوشتن داده ها در فایل استفاده کنید. استفاده از #Write یکپارچگی هر فیلد داده مجزا را با جداسازی صحیح آن تضمین می کند ، به طوری که با استفاده از #Input می توان دوباره آن را خواند.استفاده از #Write همچنین تضمین می کند که می توان آن را در هر محلی به درستی خواند.
it is your job
do the best
the law is not negotiable
۲۲ مرداد ۱۴۰۲ :
کیایی نوشت:
آقای وزیر ارشاد، شما ماستها رو ریختی تو قیمه ها و اصلا عین خیالت نیست. وقتی حضور شما با این همه بیگانگی با هنر در این مسند یک شوخی بزرگ است حالا تصمیم داری چهارصد نفر شبیه خودت را در آن تکثیر کنی. شماها وقتی آنقدر قدرت تشخیص ندارید و از همه نهادها می ترسید که اجازه یک نمایش برای کودکان نمیدهید تا مبادا مشکل حجاب پیش بیاید و از قبل داوری می کنید، یا از تبلیغات کارکتر زن خلبان که کلاه خلبانی بخشی از اوست، در تبلیغات شهری جلوگیری می کنید
Veins are blood vessels located throughout your body that collect oxygen-poor blood and return it to your heart. Veins are part of your circulatory system. They work together with other blood vessels and your heart to keep your blood moving. Veins hold most of the blood in your body.
اشلونک زین ؟ یعنی : « حالت چطوره خوبی ؟ در زبان عربی در اصل برای احوال پرسی رسمی میگویند : «کیف حالک ؟»، این عبارت در تمام کشور های عربی کاربرد دارد اما، اشلونک صرفا در عراق و قسمتی از کویت رایج میباشد..... شوف هناک .... ساعِدنی؟
البته موارد زیر چندین مرتبه در مطالب بیان شده
از شی ( DAO.RecordSet ( Data Access Object برای دستکاری داده ها در این شئ استفاده می شود
با دو روش زیر می توان جستجو را انجام داد :
۱-Rst.FindFirst شرط مورد نظر
۲-DlookUp
فرضا در جدول مورد نظر ( مثل Tbl ) با تابع DlookUp می خواهید شماره موبایل (فیلد Mobile) کد ملی (Meli) خاص را بازیابی کنید.
Ret=DlookUp("Mobile","Tbl","Meli=001200")
اگر نوع داده (DataType) فیلد Meli را Text یا Char انتخاب کرده باشید باید از تک کوتیشن بین رشته داخل آن استفاده کنید
Ret=DlookUp("Mobile","Tbl","Meli='001200'")
تیک Data Access Object Library در محیط ویژوال قسمت Refrences ... (اگر این کتابخانه ها نباشند ما قادر به دستکاری محتویات داخل جداول با استفاده از مجموعه رکوردست نخواهیم بود)
Dim Rs As DAO.Recordset
از FindFirst هم می توان استفاده کرد و ویژگی Rs.NoMatch ، سپس با تابع MsgBox متن وجود ندارد را در کادر ویندوزی به شما نمایش دهد . دیفالت یا پیش فرض NoMatch مقداری غیر صفراست یعنی True و اینکه عبارت جستجو شده غیر معتبر یا Not Valid است !!!
If Rs.NoMatch
The Find method searches for a record in a Recordset that satisfies a specified criteria. If the search is successful, the record pointer will point to the first found record. Note: A current row position (like MoveFirst) must be set before calling this method, otherwise an error will occur.
If a record matching the criteria isn't located, the current record pointer is unknown, and the NoMatch property is set to True. If recordset contains more than one record that satisfies the criteria, FindFirst locates the first occurrence, FindNext locates the next occurrence, and so on.
Each of the Find methods begins its search from the location and in the direction specified in the following table.
Find method | Begins searching at | Search direction |
---|---|---|
FindFirst | Beginning of recordset | End of recordset |
FindLast | End of recordset | Beginning of recordset |
FindNext | Current record | End of recordset |
FindPrevious | Current record | Beginning of recordset |
You should use the U.S. date format (month-day-year) when you search for fields containing dates, even if you're not using the U.S. version of the Microsoft Access database engine; otherwise, the data may not be found. Use the Visual Basic Format function to convert the date.
Dim CurUser As String
CurUser = Environ("UserName")
Set db = CurrentDb()
Set rst = db.OpenRecordset("rtb1LogTimes")
rst.FindLast "UserLoginlD = '" & CurUser & "'"
rst.Editl:rst!LogOutTime = Now():rst.Update:rst.Close db.Close:Set rst = Nothing:Set db = Nothing
حجتالاسلام سید کاظم موسوی امروز دوشنبه ۲۳ مرداد به خبرنگاران درباره آخرین وضعیت پرونده حمله تروریستی شب گذشته به حرم شاهچراغ گفت: تاکنون و با تحقیقات صورت گرفته ۴ نفر مظنون مرتبط با این حادثه دستگیر شدهاند.
وی افزود: تروریست اصلی که اقدام به تیراندازی در حرم کرده بلافاصله دستگیر شده و در اختیار بازپرس قرار گرفته و بازجویی و تحقیقات از او در حال انجام است.
موسوی همچنین اعلام کرد که دو نفر از بازپرسان ویژه به منظور بررسی حادثه در حرم شاهچراغ حاضر شدهاند و در حال رصد موضوع هستند.
رئیس کل دادگستری فارس همچنین از صدور دستورات قضایی لازم برای دستگیری عوامل حادثه خبر داده و دستگیری یکی از تروریستها را تائید کرده است.
به گزارش ایسنا، ساعت ۱۹ عصر یکشنبه ۲۲ مرداد ۱۴۰۲، بر اثر حمله تروریستی به حرم مطهر حضرت شاهچراغ(ع) یک نفر شهید و هشت نفر مجروح شدند.
۲۹ مرداد ۱۴۰۲ : مملکت خر تو خر و بی صاحب
خبرنگار اجتماعی مهر در پی تماس یکی از شهروندان با خبرگزاری از اتفاق عجیبی که شب گذشته برای همسر این فرد افتاده بود مطلع شد.
این فرد مدعی شد شب گذشته در حین گشت و گذار در مرکز تجاری «ت» واقع در خیابان مدنی در پی دیدن مواردی از بی حجابی و برهنگی به مأموران حراست این مجتمع تجاری تذکر داد.
پس از این تذکر مأمور حراست مدعی شد به تو ربطی ندارد و بعد شروع به زد و خورد و آزار فیزیکی همسرم کرده و تمام وسایل وی را تخریب کردند.
به گفته این شهروند مأموران حراست این مجتمع تجاری بزرگ در خیابان مدنی حتی اقدام به تلاش برای گرفتن گوشی این فرد کردهاند تا مانع تصویربرداری صحنه کتک زدن همسر وی شوند.
و مسئولین خواب انتظامی !!!
ID | Code | Dt |
---|---|---|
1 | 1001 | 03/06/2018 |
2 | 1001 | 03/15/2018 |
3 | 1001 | 06/10/2018 |
4 | 1002 | 02/10/2018 |
5 | 1002 | 03/08/2018 |
6 | 1002 | 05/08/2018 |
7 | 1002 | 05/08/2018 |
8 | 1003 | 04/05/2019 |
9 | 1003 | 05/05/2019 |
10 | 1003 | 08/15/2019 |
11 | 1004 | 03/15/2019 |
12 | 1004 | 04/01/2019 |
13 | 1004 | 02/01/2019 |
14 | 1004 | 03/11/2019 |
15 | 1004 | 04/22/2019 |
16 | 1005 | 02/15/2019 |
17 | 1005 | 03/15/2019 |
18 | 1006 | 01/15/2019 |
19 | 1006 | 03/09/2019 |
20 | 1007 | 03/09/2019 |
SELECT All * FROM [tt] where dt between '01/01/2019' And '03/07/2019'
Text1 :
Text2:
The Cycle property uses the following settings.
Setting | Visual Basic | Description |
---|---|---|
All Records | 0 | (Default) Pressing the TAB key from the last control on a form moves the focus to the first control in the tab order in the next record. |
Current Record | 1 | Pressing the TAB key from the last control on a record moves the focus to the first control in the tab order in the same record. |
Current Page | 2 | Pressing the TAB key from the last control on a page moves the focus back to the first control in the tab order on the page. |
CustomerID | Cust_Name | City | Grade | SalesMan_ID |
---|---|---|---|---|
3002 | Nick Rimando | New York | 100 | 5001 |
3007 | Brad Davis | New York | 200 | 5001 |
3005 | Graham Zusi | California | 200 | 5002 |
3008 | Julian Green | London | 300 | 5002 |
3004 | Fabian Johnson | Paris | 300 | 5006 |
3009 | Geoff Cameron | Berlin | 100 | 5003 |
3003 | Jozy Altidor | Moscow | 200 | 5007 |
3001 | Brad Guzan | London | 5005 |
فهرست تعداد Grade هایی که بزرگتر از میانگین عددهایی که مقادیر فیلد City آنها برابر New York است
SELECT Grade,Count(*) From Customer Group By Grade Having Grade>(Select AVG(Grade) From Customer Where City="New York")
Select {0} From {1} Where {2} Group By {3} Having {4}
City | Avg(Grade) |
---|---|
Berlin | 100 |
California | 200 |
London | 150 |
Moscow | 200 |
New York | 150 |
Paris | 300 |
City | Grade | TotGr |
---|---|---|
New York | 100 | 100 |
New York | 200 | 300 |
California | 200 | 200 |
London | 300 | 300 |
Paris | 300 | 300 |
Berlin | 100 | 100 |
Moscow | 200 | 200 |
London | 0 |
City | max(TotGr) | count | Avg |
---|---|---|---|
Berlin | 100 | 1 | 100 |
California | 200 | 1 | 200 |
London | 300 | 2 | 150 |
Moscow | 200 | 1 | 200 |
New York | 300 | 2 | 150 |
Paris | 300 | 1 | 300 |
id | name | salary | role |
---|---|---|---|
1 | Augustine Hammond | 10000 | Developer |
2 | Perice Mundford | 10000 | Manager |
3 | Cassy Delafoy | 30000 | Developer |
4 | Garwood Saffen | 40000 | Manager |
5 | Faydra Beaves | 50000 | Developer |
جدول awards
id | employee_id | award_date |
---|---|---|
1 | 1 | 2022-04-01 |
2 | 3 | 2022-05-01 |
SELECT id, name FROM employee WHERE id IN (SELECT employee_id FROM awards);
id | name |
---|---|
1 | Augustine Hammond |
3 | Cassy Delafoy |
SELECT * FROM employee WHERE role = 'Developer' AND salary > ( SELECT salary FROM employee WHERE role = 'Manager' )
id | name | salary | role |
---|---|---|---|
3 | Cassy Delafoy | 30000 | Developer |
5 | Faydra Beaves | 50000 | Developer |
OrderID | OriginalVale |
---|---|
1 | 1 |
2 | 3 |
7 | 2 |
8 | 1 |
9 | 7 |
11 | 3 |
12 | 1 |
OrderID | OriginalVale | Sum |
---|---|---|
1 | 1 | 1 |
2 | 3 | 4 |
7 | 2 | 6 |
8 | 1 | 7 |
9 | 7 | 14 |
11 | 3 | 17 |
12 | 1 | 18 |
از ویژگی Dirty برای تعیین انجام ویرایش یا عدم ویرایش رکورد جاری از زمان آخرین ذخیره سازی استفاده می شود . برای مثال ، ممکن است از کاربر بخواهید که تغییراتی در رکورد صورت پذیرفته یا خیر ، اگر نه ، به کاربر اجازه دهید بدون ذخیره تغییرات به رکورد بعدی برود . از نوع Boolean و خواندنی و نوشتنی
البته رویه زیر در رویداد After Update تکست باکس فراخوان می شود و اگر تغییر صورت گرفت باتن با نام BtnUndo فعال می شود و ویژگی Value تکست باکس به OldValue تبدیل میشود . البته ویژگی AllowEdition برای جلوگیری از ویرایش ( برگشت به حالت OldValue ) در فرم وجود دارد.
Sub UndoEdits()
If Me.Dirty Then
Me!btnUndo.Enabled = True
' Enable button
Else
Me!btnUndo.Enabled = False
' Disable button
End If
End Sub
Tracking
varOld = Screen.ActiveControl.OldValue
varNew = Screen.ActiveControl.Value
strFormName = Screen.ActiveForm.Name strControlName = Screen.ActiveControl.Name
Set dbs = CurrentDb()
Set rst = dbs.TableDefs("tblDataChanges").OpenRecordset
می توانید از ویژگی PrtMip در ویژوال بیسیک برای تنظیم یا بازگرداندن اطلاعات حالت دستگاه مشخص شده برای فرم یا گزارش در کادر محاوره ای Print استفاده کنید البته در نمای دیزاین امکانپذیر است یعنی اگر فرمت اکسس به accde تبدیل شود در نمای دیزاین قادر به انجام تغییرات نخواهید بود
PrtMipString.strRGB = rpt.PrtMip
LSet PM = PrtMipString
PM.cxColumns = 2
PM.xRowSpacing = 0.25 * 1440
PM.yColumnSpacing = 0.5 * 1440
رویداد NoData بعد از قالب بندی یک گزارش برای چاپ که داده ای ندارد (گزارش باند شده یا محدود به یک رکوردست خالی)، اما قبل از اینکه گزارش پرینت شود رخ می دهد.از این رویداد برای کنسل کردن یا لغو چاپ یک گزارش خالی استفاده می شود.
اگر گزارش محدود به جدول یا کوئری نباشد ( با استفاده از ویژگی RecordSource گزارش ) ، این رویداد عملی ندارد.
این رویداد بعد از رویداد Format برای گزارش اما قبل از اولین رویداد Print اتفاق می اُفتد.
این رویداد برای زیر گزارش ها ( SubReports ) اتفاق نمی اُفتد.اگر نیاز دارید کنترل ها در زیر گزارش زمانیکه داده ای ندارد پنهان شود ( Visible)، تا اینکه کنترل ها در این مورد پرینت نشوند ، میتوانید از ویژگی HasData در ماکرو یا پروسه رویداد که زمان اجرای رویداد Format یا Print اتفاق می اُفتد استفاده کنید.
Description(Object) Value
Has Data -1
No Data 0
Unbound 1
یعنی ویژگی Visible ساب ریپورت می شود مقادیر HasData
رویداد NoData قبل از رویداد اولین Page برای گزارش اتفاق می اُفتد.
ID | Code | Amount | Sum |
---|---|---|---|
1 | A | 23 | 23 |
2 | A | 2 | 25 |
3 | B | 11 | 11 |
ماکزیمم عدد در هر دسته بندی فیلد Code :
Select Code,Max(Sum) From r Group By Code
Code | Max(sum) |
---|---|
A | 25 |
B | 11 |
Field2.IsComplex DAO.Property :
مقدار True(عددی غیر صفر) یا False(برابرصفر) را که نشان دهنده وجود یک دیتا تایپ چند مقداری است را باز می گرداند.... ( multi-valued data type )
Null=No Valid Data
Join:
اگرExpression خالی باشد Set Result=Null
Static Values As New Collection
Set Records=CurrentDb.OpenRecordSet....
(dbOpenSnapShot)
CollValues Records , Delimiter , Result
Values.Add Result
Join=Result
CollValues:
ByRef Rec As DAO.RecordSet
ByRef Delimiter
ByRef Result
Dim SubRec As DAO.RecordSet
Dim Value As Variant
'If Rec.RecordCount>0 Then
While Not Rec.EOF
Value=Rec.Field(0).Value
If Rec.Fields(0).IsComplex Then
Set SubRec=Rec.Fields(0).Value
CollValues SubRec , Delimiter , Result
ElseIf Nz(Value)="" Then
ElseIf IsEmpty(Result)
Result=Value
Else
Result=Result & Delimiter & Value
End If
Rec.MoveNext
Wend
'Else
'Result=Null
'End If
Expression,Domain,Criteria :
Const SqlMask As String = "Select {0} From {1} {2}"
Const SqlLead As String = "Select "
Const SubMask As String = "({0}) As T"
Const FilterMask As String = "Where {0}"
اگر Expression خالی باشد باید فکر چاره ای باشید و همینطور آرگومان های بعدی
در اینجا اگر در آرگومان Domain عبارت Select را بیابد متغیر SqlSub می شود جایگزین کردن Domain با {0}
در غیر اینصورت Domain نام جدول یا کوئری است.
SqlSub = Domain
یعنی درواقع در Replace های بالا جای ۲ ۱ ۰ عبارت یا رشته هایی که داخل آرگومان ها هستند قرار داده شدِس.
Example :
Expression="[First Name] & ' ' & [Last Name] & '<' & [Email Address] & '>'"
Domain="Tbl1"
Criteria="[Job]='" & [Job] & "'"
Change To Sql :
"Select [First Name] & ' ' [Last Name] & '<' & [Email Address] & '>' From Tbl1 Where [Job]=' & [Job] & '"
با قرار دادن Optional قبل از آرگومان ها می شود آنها را در تابع اختیاری کرد نه اجباری ( Required ).
وقتی دیتا تایپ فیلدی عددی نیست مثل نام بای از تک کوتیشن بین آنها استفاده کنیم :
"FirstName='" & Variable1 & "'"
اگر بنویسید :
"FirstName=" & Variable1 & ""
قطعا دچار خطا خواهید شد ، برای دیتا تایپ عددی نیازی به قرار دادن تک کوتیشن ها ندارید.
تمام برداشت ها از سایت های خارجی جهت آموزش شما دوستان مبتدی اخذشده،نایاب هستند لذا نهایت استفاده را ببرید.
We are looking to make changes
select * from products where productid in(
(select val(lastt) as lastt from (select distinct dlast('ProductId','products',"supplierId=" & [SupplierId]) as Lastt,supplierid from products
order by supplierid)))
ProductID | ProductName | SupplierID | CategoryID | Unit | Price |
---|---|---|---|---|---|
3 | Aniseed Syrup | 1 | 2 | 12 - 550 ml bottles | 10 |
8 | Northwoods Cranberry Sauce | 3 | 2 | 12 - 12 oz jars | 40 |
12 | Queso Manchego La Pastora | 5 | 4 | 10 - 500 g pkgs. | 38 |
15 | Genen Shouyu | 6 | 2 | 24 - 250 ml bottles | 15.5 |
23 | Tunnbröd | 9 | 5 | 12 - 250 g pkgs. | 9 |
24 | Guaraná Fantástica | 10 | 1 | 12 - 355 ml cans | 4.5 |
27 | Schoggi Schokolade | 11 | 3 | 100 - 100 g pieces | 43.9 |
30 | Nord-Ost Matjeshering | 13 | 8 | 10 - 200 g glasses | 25.89 |
39 | Chartreuse verte | 18 | 1 | 750 cc per bottle | 18 |
41 | Jack's New England Clam Chowder | 19 | 8 | 12 - 12 oz cans | 9.65 |
44 | Gula Malacca | 20 | 2 | 20 - 2 kg bags | 19.45 |
46 | Spegesild | 21 |
استفاده از عبارت Last
select * from products where productid in(select lLast from (select distinct last([productId]) As lLast,supplierid from products group by supplierid order by supplierid))
Or
select * from products where productid in(select distinct last([productId]) As lLast from products group by supplierid)
select * from products where productid in(select distinct last([productId])-1 As lLast from products group by supplierid)
select * from products where productid in(select distinct first([productId]) As ifirst from products group by supplierid)
first-and-lastfunction-in-ms-access
اول باید دو متغیر Arr و element را با Dim اعلان کنید
Arr(0)="123"
Arr(1)="456"
Arr(2)="789"
Arr(3)="012"
For Each element in Arr
Debug.Print element
Next
RecordSet.Fields Property ( DAO )
کالکشن یا مجموعه Fields را باز می گرداند که ارائه کننده یا حاوی اشیاء Field ذخیره شده برای شئ مشخص شده است.فقط خواندنی ( ReadOnly )
For Each Fld in Rs.Fields
Debug.Print Fld.Name
'Or your code
Next