متد Recordset.FindFirst

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

توضیحات :

اگر رکوردی مطابق با شرط پیدا نشد ، نشانگر رکورد جاری ناشناخته است و ویژگی NotMatch به True تنظیم می شود.اگر رکوردست حاوی بیش از یک رکورد باشد FindFirst روی اولین جستجو قرار میگیرد و FindNext بعدی و به همین ترتیب

.FindFirst(Criteria)

دیماه ۱۴۰۱ - سفارت انگلیس 

زمان خمینی قدس سره حمله به سفارت آمریکا بعلت جاسوسی و دخالت های سیاسی و نظامی انجام ، تعدادی اسیر و سفارت نیز بسته شد ولی حمله به سفارت انگلیس در زمان خامنه ای دامت افاضاته با دخالت خود نیروی انتظامی اسلامی البته تموم میشه و بی نتیجه  و همچنان بقوت خود باقیست.

اینهم تصویر ایشان

نوشیدن آب برای ستون فقرات و کمر نیز مهم می باشد. به طور مثال بیشتر حجم دیسک های بین مهره ای یعنی درحدود ۸۰ درصد از حجم آن ها را آب تشکیل می دهد. با افزایش سن میزان آب درون دیسک ها کاهش می یابد. بنابراین نوشیدن منظم آب جهت تغذیه دیسک های ستون فقرات و حفظ سلامتی آنها ضروری می باشد و باعث پیشگیری از درد و مشکلات دیسک کمر می شود

برای پیشگیری از دیسک کمر معمولا توصیه می شود که در حدود ۸ لیوان آب در روز نوشیده شود. نه تنها در هنگامی که تشنه هستید بلکه باید در طول روز آب بنوشید. نوشیدن آب علاوه بر تغذیه ارگان های بدن سبب متناسب ماندن وزن بدن و رسیدن به وزن مطلوب می شود.

همسر دوم گرفتن مردان دلایل گوناگونی دارد که از مهمترین دلایل آن می توان به سرد بودن همسر در رابطه و ناباروری همسر اشاره کرد که هر کدام پیامد و مشکلات خاص خود را دارد.

سوره انفال ۶۰

هر نیرویی در قدرت دارید، برای مقابله با آنها [= دشمنان‌]، آماده سازید! و (همچنین) اسبهای ورزیده (برای میدان نبرد)، تا به وسیله آن، دشمن خدا و دشمن خویش را بترسانید! و (همچنین) گروه دیگری غیر از اینها را، که شما نمی‌شناسید و خدا آنها را می‌شناسد! و هر چه در راه خدا (و تقویت بنیه دفاعی اسلام) انفاق کنید، بطور کامل به شما بازگردانده می‌شود، و به شما ستم نخواهد شد!

دیماه ۱۴۰۱

نماینده مردم تربت جام در مجلس شورای اسلامی تاکید کرد: من از رییس قوه قضاییه آقای محسنی اژه‌ای و دادستان کل کشور آقای منتظری درخواست دارم، ۷ نفر از افرادی که طی تجمعات اعتراضی به توزیع چراغ‌ها و قطعی گاز در تربت جام دستگیر شدند را با توجه به مشکلاتی که مردم دارند و وضعیتی که در منطقه وجود داشته است، مورد عفو قرار داده و آزاد کنند و اجازه دهند خانواده‌ها از نگرانی در بیایند. آنها جوان هستند؛ ممکن است خطایی مرتکب و شعاری هم سر داده باشند. واقعا شرایط سختی در تربت جام است؛ در چنین شرایطی ما باید مردم را بیشتر درک کنیم و در کنارشان باشیم.

متد Recordset.GetRows

این متد چندین رکورد از یک رکوردست را بازیابی میکند

-شامل سه آرگومان است :

 Rows

Start

Fields

-در آرایه دوبعدی

بعلت اینکه متد GetRows همیشه تمام فیلدها در شئ رکوردست را برمی گرداند لذا می توانید کوئری ایجاد کنید تا فیلدهای مورد نیاز شما را باز گرداند.

arrEmployees=rstEmployees.GetRows(intRows)

داده ها در آرایه ای با نام arrEmployees ذخیره می شود ( دو بعدی )  البته بصورت موقت و بعد شما می توانید از طریق Loop مقادیر را چاپ کنید با توجه به اینکه آرایه دو بعدیست می توان x را برای ستون ها و y را برای ردیف ها در نظر گرفت مثل محور x و y در محور مختصات.

For x=0 To intRows-1

   For y=0 To 2

       Debug.Print arrEmployees(y,x) & " " ;

Next

Debug.Print vbrclf

Next

آرایه در اکسس

کد زیر از Access vba programming کپی شده   که به تفسیر ساده تر آن پرداختیم.

Sub modArray_StatesInAnArray()

بارگزاری فهرستی از ایالات از جدول Customers داخل آرایه ای با اندازه مشخص ... با سایز ۲۰

 Const lngArraySize = 20

 Dim lngCounter As Long

 نیازمند این است که دیتا تایپ Variant باشد برای استفاده در لوپ ForEach

 Dim varAState As Variant 

 Dim strState(lngArraySize) As String

 Dim db As Database

 Set db = CurrentDb

 lngCounter = 0

 Dim rst As Recordset

متغیری که به Object یا شئ ای اشاره می کند ( بعنوان نشانگر ) را با Set  اظهار می کنند ... در کد زیر رکوردستی در حافظه موقت ایجاد شده و  درون آن داده های ستونِ [State/Province]  از جدول مشتریان ( بدون تکرار ) قرار می گیرد با شرط پر بودن این فیلد یعنی بدون Null ها .

 Set rst = db.OpenRecordset("SELECT DISTINCT [State/Province] " & _

 " FROM Customers WHERE [State/Province] IS NOT NULL", _

 dbOpenDynaset)

در کد زیر لوپی زده شده در رکوردست ( مجموعه داده )

 Do While Not rst.EOF

در اینجا بعلت جلوگیری از خطا (  بعلت اینکه تعداد داده های فیلد از سایز یا اندازه ۲۰ [تعداد ردیف ها ] بیشتر است یا ممکن است کمتر باشد )  از یک شرط استفاده شده.

 If lngCounter > lngArraySize Then

 'this would cause a problem

 Stop

 End If

در اینجا و با توجه به لوپ آرایه با داده های فیلد پر می شوند.

 strState(lngCounter) = rst![State/Province]

یک شمارشگر قرار داده تا در شرط بالا یعنی if بکار برده شود.... از DOEVENTS می توانید در اول کدها استفاده کنید تا اگر کدها را اشتباه نوشتید ( مثلا لوپ درجا بزند و پایانی نداشته باشد ) سیستم هنگ نکند

 lngCounter = lngCounter + 1

این خط ( MoveNext ) برای انتقال به رکورد بعد ( ردیف ) در رکوردست لازم است وگرنه همان داده اولین ردیف را پر می کند.

 rst.MoveNext

 Loop

در کد زیر لوپی میزند در آرایه strState و مقادیر را در صفحه immediate window نمایش میدهد ( Debug.Print ) که می توانید در صفحه ویژوال آنرا مشاهده کنید.

 For Each varAState In strState

 If varAState <> "" Then

چاپ در Debug که با Ctrl+G می توانید به صفحه مورد نظر ببرید.

 Debug.Print varAState

 End If

 Next

 Debug.Print "Lower bound : " & LBound(strState)

 Debug.Print "Upper Bound : " & UBound(strState)

حتما بعد از استفاده رکوردست را باید ببندید تا در حافظه جایی که اشغال کرده را آزاد کند.

 rst.Close

 Set rst = Nothing

 db.Close

 Set db = Nothing

End Sub

تمام آرایه ها در اکسس پایه صفر دارند یعنی از صفر شروع می شوند.

Dim Arr(2) As Variant

Arr(0)="A"

Arr(1)="123"

Arr(2)="01/08/1999"

?Arr(1)

123

امکانپذیراست ، آرایه ای داشته باشیدکه بتوان انداره و تعداد ابعادش را با استفاده از عبارت Redim تغییر داد.

Dim strState() As String

 lngArraySize = 8

 ReDim strState(lngArraySize)

این آرایه ها همچنین می توانند داده های موجود را هنگام تغییر اندازه با استفاده از کلمه کلیدی Preserve حفظ کنند.

عبارت Redim Preserve یک آرایه جدید ایجاد میکند و اجزاء آرایه قدیمی داخل آرایه جدید کپی می شوند... لذا فقط بعد یا اندازه تغییر کرده و منجر به از دست رفتن داده ها نخواهد شد .

For lcount = 0 To 5000000
        ReDim Preserve myText(lcount)
        myText(lcount) = lcount
    Next lcount

البته اگردر لوپ بجای lcount همان عدد 5 میلیون استفاده شود سرعتش بیشتر از زمانیست که از خود متغیر lcount استفاده کردیم.

در وهله اول به متغیر آرایه ای strState یک بعد میدهیم فرضا ۵۰ 

Do While Not rst.EOF

 strState(lngCounter) = rst![State/Province]

 lngCounter = lngCounter + 1

 rst.MoveNext

 Loop

شمارش فرم های باز در اکسس

محاسبه سن تقریبی فرد

تاریخ تولد : ۱۳۸۰/۰۷/۰۹

تاریخ روز  : ۱۴۰۱/۱۰/۲۴

(1401-1)-1380=20

((365.25−6×30.25−9)+(9×30.25+24)=471

چون 471 از 365.25 بزرگتر است پس یکسال به عدد 20 اضافه شده و سال سن فرد مذکور 21 خواهدشد.

((365.25−6×30.25−9)+(9×30.25+24)−365.25)÷30.25=3

((365.25−6×30.25−9)+(9×30.25+24)−365.25)−(3×30.25)=15

سن فرد طبق محاسبه بالا 21 سال و 3 ماه و 15 روز است.

تاریخ تولد : ۱۳۸۰/۱۲/۲۹

تاریخ روز  : ۱۴۰۱/۱۰/۲۵

(1401-1)-1380=20

(9×30.25+25+1)=298.25<365.25

(9×30.25+25+1)÷30.25=9 

(9×30.25+25+1)−(9×30.25)=26 

در بالا چون عدد 298.25 از 365.25 کوچکتر است پس سال سن فرد همان 20 شده و ماه و روز نیز به ترتیب 9 و 26 خواهد شد.

البته این محاسبه تقریبی است ، امکان خطا نیز داشته و بنظر بنده می توان روی این روش نیز حساب کرد البته سایت باحساب سن دقیق تری به شما نشان خواهد داد.... جهت کمک به شما  دوست گرامی این مطلب قرار داده شد.

تاریخ تولد : ۱۳۵۷/۰۶/۲۰

تاریخ روز  : ۱۴۰۱/۱۰/۲۵

(365.25−(5×30.25+20)+9×30.25+25)÷365.25=126

چون  عددی بالاتر از ۳۶۵.۲۵ در جمع تعداد روزهای ۵۷ و ۱۴۰۱ بدست آمده لذا یکسال به ۱۳۵۷-۱-۱۴۰۱ اضافه می کنیم که سال سن می شود ۴۴ سال

126÷30.25=4.165~4

126-4×30.25=5

در نتیجه طبق محاسبات ما سن فرد مذکور می شود ۴۴ سال و ۴ ماه و ۵ روز

لطفا لایک و نظر دهی فراموش نشود 

۲۴ دیماه ۱۴۰۱ :

در حالیکه آرامش در سراسر کشور حاکم بوده و رسانه‌های ضدانقلاب و ضدایران از محتوا تهی شده‌اند، جریان عبدالحمید اسماعیل زهی تلاش دارد تا مسجد زاهدان را به عنوان مقر اصلی فتنه، شورش و ناامنی زنده نگه داشته و هر بار با تحریک جوانان و حرکت در پازل دشمنان مردم ایران نقش مخرب خود را ادامه دهد.

شئ Stream در ADO

Save and restore data in files with the SaveToFileand LoadFromFile methods.

Stream.LoadFromFile FileName

Stream.SaveToFile FileName,SaveOptions

داکیومنت دو مورد بالا با نوشتاری آنها و آرگومانشان ارائه شده که قبلش حتما باید Stream را فراخوانی کنید بعد از متد Open استفاده کنید.

در لینک زیر متدها و ویژگیها را می توانید ببینید

learn.microsoft.com

ویژگی Type فقط زمانی خواندنی / نوشتنی می شود که موقعیت فعلی در ابتدای Stream باشد (     Position = پوزیشن 0   ) و در هر موقعیت دیگری فقط خواندنی است.این ویژگی تعیین می کند که کدام متدها باید برای خواندن و نوشتن Stream استفاده شوند.برای Stream های متنی از ReadText و WriteText استفاده نُمائید . برای باینری ها از  Read و Write استفاده کنید.

String = Stream.ReadText ( NumChars)

Stream.WriteText Data, Options

Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1 'binary type

یک جریان متن یا Text Stream از یک یا چند خط متن تشکیل شده است که می توان آنها را روی یک صفحه نمایش متن محورنوشت تا بتوان آنها را خواند.وقتی آن از یک جریان متنی می خواند، برنامه یک خط جدید در انتهای هر خط 

شئ TextStream برای دسترسی به محتوای فایل های متنی استفاده می شود.("!f.WriteLine("Hello World برای ساختن نمونه ای از شئ TextStream می توان از CreateTextFile یا OpenTextFile متدهای شئ FileSystemObject یا از متد شئ File یعنی OpenAsTextStream استفاده کرد.

مرجع برای استاندارد برنامه نویسی در اکسس البته موارد بالا جزء آموزش اکسس نیست ،  کتابش گرونه ولی مفید

ACCESS  2019 PROGRAMMING : 

• Teaches you how to programmatically create and access database tables and fields.
• Shows you how to insert, update, and delete data via programming code using various data access techniques.
• Gets you proficient creating and running simple and parameterized queries against your Access databases.
• Gets you comfortable using external data sources with Access (Excel, Word, flat files, XML, and SQL Server).
• Teaches you how to take control of your forms and reports by writing programming code known as event procedures.
• Shows you how to use various types of macros and templates.

دیماه ۱۴۰۱ ... اتفاق نادر در مهر آباد :

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

وی ادامه داد: مهمانداران مدعی شدند وزن هواپیما ۱۵۰ کیلوگرم بیشتر از وزنی است که پرواز بتواند در ایمنی کامل و در شرایط آب و هوایی خرم آباد بر زمین بنشیند.

معتمدآریا

قطار یخ زده مشهد ( زائرین امام هشتم و معصومه ) دیماه ۱۴۰۱

این مسافر قطار قم ـ مشهد عنوان کرد: خدمت رسانی، پاسخگویی بسیار ضعیف است حتی به مسافران آب، چای و یا نانی در این ساعات داده نشده است و ما با توجه به اینکه به اردو میرفتیم مواد غذایی که برای اردو تهیه کرده بودیم را بین مردم توزیع کردیم و پس از این اقدام ما تازه خدمه قطار کیک و آبمیوه بین مردم توزیع کردند.

خبرآنلاین: سید علی خان محمدی سخنگوی ستاد امر به معروف و نهی از منکر از امضای تفاهم نامه ای بین این ستاد و قوه قضاییه و بسیج خبرداده تا در هر محله «مساجد» محور اقدامات در حوزه «آسیب‌های اجتماعی» قرار گیرند.

بازدید بانوان شهر تهران به مدت سه روز در روزهای شنبه، یکشنبه و دوشنبه هفته آینده (۲۴ الی ۲۶ دی ماه ۱۴۰۱ ) از ساعت ۹ الی ۱۵ از مجموعه میلاد بازدید کنند.

بانوان علاقه مندان می‌توانند برای بازدید از برج میلاد، در سامانه miladticket.com ثبت نام کرده و روز و ساعت بازدید خود را رزرو کنند.

شرکت بیمه پاسارگاد از سال ۱۳۹۳ تا کنون نسبت به اعطای پوشش هزینه های بیمارستانی (بستری و جراحی) به بیمه شدگان بیمه نامه های عمر و تأمین آتیه اقدام نموده است. چنانچه ذخیره ریاضی (ارزش بازخرید) بیمه نامه به حدنصاب ۲۰,۰۰۰,۰۰۰ ریال رسیده باشد و از تاریخ شروع یا تاریخ تغییرات مالی در بیمه نامه مدت شش ماه سپری شده باشد، این پوشش فعال می شود. سقف پوشش هزینه های بیمارستانی (درمان تکمیلی) در حال حاضر ۳۰۰,۰۰۰,۰۰۰ ریال است.

کپی فایل با استفاده از توابع API

در ویندوز ۳۲ بیت : 

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", "C:\CopyLoc\test.txt", 0

BOOL CopyFileW(

  [in] LPCWSTR lpExistingFileName,

  [in] LPCWSTR lpNewFileName,

  [in] BOOL    bFailIfExists

);

تابع بالا کاملا مشخصه که دیتا تایپ دو تا آرگومان اولی از نوع Long و آخری Boolean است ( False یا True ) ... اولی فایل موجود دومی فایل جدید و سومی خطا بدهد در صورت موجود بودن در مسیر کپی یا خیر ... جواب تابع هم بصورت Boolean است ( اگر خطا دهد صفر و اگر کپی انجام شود غیر صفر است ) و در فایل هایی که نام آن بصورت Unicode است نه Ascii استفاده میشود.

برای کار دو تابع در ویندوز ۶۴ بیتی قبل فانکشن کلمه PtrSafe را بگذارید  و در CopyFileW غیر از کلمه ذکر شده دیتاتایپ های Long به LongPtr تغییر یابد.

نکته : توابع API به حروف کوچک و بزرگ حساسند لذا از نظر نوشتاری همان را استفاده کنید که گفته شده فرضا  چنانچه تابع CopyFileA را با نوشتاری copyfileA اظهار کنید ، یا خطا میدهد یا عمل نمیکند !!!

تا می تونید زایمان کنید دولت حمایت میکنه :۲۲ دیماه ۱۴۰۱ 

مدیرکل رفاه، تعاون و خدمات اجتماعی شهرداری تهران از ارائه خدمات ویژه به مادران شاغل در شهرداری تهران خبر داد و گفت: به مادران دو قلوهای دو روز دورکار، ماهانه ۲ میلیون و چهارصد هزارتومان کمک هزینه نگهداری از کودک پرداخت می‌شود.... البته مادران عزیز بفکر پوکی شدید استخوان در ۶۰ سالگی هم باشید !!! هزینه ترم دانشگاه هم الان نزدیک به ۲ میلیون تومن هست الان البته به خیلی چیزها فکر کنید..... 

دهه ۷۰ تا ۹۰ شعار ایران ما ...فرزند کمتر زندگی بهتر حتی تامین اجتماعی هم برای فرزند ۵ ببعدجریمه صدور دفترچه می گرفت !!!

طبق اعلام نماینده دادستان دادگاه بر اساس کیفرخواست صادره، مستندات پرونده بدست آمده از فعالیت متهم ( کتایون ریاحی ) در شبکه‌های اجتماعی، اتهامات او شامل اجتماع و تبانی علیه امنیت ملی، تشویش اذهان عمومی و تشویق به فساد بود که از نظر دادگاه و در راستای ماده ۳۴۱ این ماهیت را ترغیب و تشویق مردم به اعمال منافی عفت در فضای مجازی در نظر گرفته شد..... البته در جریان رسیدگی ایشون غش کردند و با اورژانس دلالت شده و ختم جلسه اعلام شد 

روش OpenAsTextStream برای باز کردن فایل Text بعلاوه نوشتن و خواندن در آن

به اسناد Office مراجعه کنید.

مثل  روش OpenTextFile از FileSystemObject است بعلاوه روش OpenAsTextStream می تواند برای نوشتن یک فایل نیز استفاده شود.

object.OpenAsTextStream ([ iomode, [ format ]])

imode حالت ورودی و خروجی که عدد 1 برای خواندن 2  نوشتن و 8  اضافه کردن ، format هم باز کردن فایل طبق پیش فرض سیستم یا باز کردن  در حالت Unicode یا Ascii است  اعداد 2-  ، 1 و 0

یا : 

object.OpenTextFile (filename, [ iomode, [ create, [ format ]]])

Set fso=CreateObject("Scripting.FileSystemObject")

Set sFile=fso.OpenTextFile(FileName,ForReadimg,False)

Do While sFile.AtEndOfStream<>True

.

.

Wend

sFile.Colse ' Needs

.CreateObject("Scripting.FileSystemObject")

.CreateTextFile

.GetFile

شئ TextStream برای دسترسی به محتویات فایل های متنی استفاده می شود. از متدهاش می توان به Close ، Read ، ReadAll ، ReadLine و WriteLine اشاره کرد. همچنین دارای خصوصیات یا ویژگیهایی مثل AtEndOfLine و AtEndOfStream است.

Search String :

FileSystemObject ( fso variable )

fso.OpenTextFile

TextStream ( ts variable )

String=ts.ReadAll ' ( Properties )

Str=Instr(1,String,SearchString)

'OpenTextFile ... Using TextStream

With strTextFile

Do Until .AtEndOfStream

Debug.Print .Line & "..." & .ReadLine

Loop

.Close

End With

شئ DataObject .... کپی متن یا عدد صحیح به کلیپبورد

methods-microsoft-forms

Tools -> References -> Microsoft Forms 2.0 Object Library

DataObject مثل Clipboard عمل می کند . اگر رشته متنی را کپی کنید ، آن رشته را ذخیره می نماید ( حافظه موقت ) . اگر رشته دوم از همان شکل  را اضافه کنید ، جایگزین می شود.

متدها و خصوصیاتی داره که از لینک بالا میشود مطالعه و تست کرد . متد SetText را امتحان کنید

MSFORMS.DataObject 

object. SetText(StoreData [, format ] )

آرگومان دوم انتخابیست که خالی هم رها شود  پیش فرض یک یا Text در نظر گرفته می شود ،انتخاب عددی  غیر از یک  در آرگومان انتخابی یعنی دیتا یا integer است یا Text.

DataObject داده را طبق فرمت یا شکلش ذخیره می کند پس اگر شما همان متن با همان فرمت را بخواهید ذخیره کنید روی همان rewrite می نُماید ولی اگر فرمت یا شکل دیگری داشته باشد بعنوان جدید در نظر خواهد گرفت 

داده را از یک DataObject به Clipboard کپی می نماید.

object. PutInClipboard

1-کپی داده از Clipboard به یک DataObject

String = object. GetFromClipboard( )

2-بازیابی  رشته متنی از DataObject

String = object. GetText( [ format ] )

از توابع API هم می توان استفاده کرد که با کمی جستجو در اینترنت کد ها موجود است 

متد RunCommand و کپی رکورد در رکورد جدید

این مِتُد یک دستور داخلی را اجرا می کند

دستور انتخاب رکورد acCmdSelectRecord تمام فیلدها نه فیلد خاصی !!!

دستور کُپی acCmdCopy

دستور acCmdPasteAppend تمام فیلدهای یک رکورد نه فیلدهای انتخابی شما !!!

لیست سایر دستورها access.accommand

چنانچه به رکورد جدید رفت و کپی محتوای داخل فیلدها روی رکورد جدید در فرم سینگل انجام شد و بعد شما قبل ویرایش جای دیگری از فرم فوکس کردید و ارور داد که تغییرات قابل ذخیره نیست احتمالا در جدول کلیدی تعبیه کردید که متن یا محتوای فیلدی یکتاست و نمی تواند دو یا چند رکورد ، همان محتوا را داشته باشد پس تعجب نکنید با Esc می توانید Undo انجام دهید یا فیلدی که بصورت کلید است را ویرایش کنید که بعد از رفتن به رکورد بعدی یا کلیک کردن در سابفرم آن رکورد ذخیره شود و اروری دریافت نکنید ... برای ذخیره نکردن رکورد تکراری حتما فیلد Primary key داشته باشید ....Foreign key منظور کلیدی در جدول دیگر نه در جدول موجود.

.

Select کوئری در اکسس

نوداقتصادی، هشدار احمد توکلی، عضو مجمع تشخیص مصلحت نظام در گفت و گویی تصویری پیرامون خطر شورش احتمالی «فقرا» را منتشر کرد.

خروجی  فیلد یا ستون از جداول و ارتباط آنها ، می توانید به آدرس  سایت مذکور مراجعه و فیلدهای جداول آنرا را ملاحظه نمائید

فرد مذکور بعدها در اعتصابات سال ۱۴۰۱ به جرم برهم زدن امنیت ملی و قتل اعدام شد.

دیماه ۱۴۰۱

محمد فاضلی جامعه‌شناس و استاد دانشگاه در گفتگویی بیان کرد احتمال دارد ایران به زودی از نقشه جهان حذف شود. این حذف شدن بدین معناست که بود و نبود ایران در تصمیمات و اقتصاد جهان مهم نیست.

به گزارش وقت صبح به نقل از ایسنا؛ کریستیانو رونالدو ستاره پرتغالی در هتل ۹۹ طبقه‌ای ریاض به نام FourSeasons زندگی خواهد کرد. هزینه اقامت برای مهاجم پرتغالی بیش از ۲۵۰ هزار یورو در ماه خواهد بود.

رونالدو یکی از بهترین سوئیت‌ها را به صورت اختصاصی برای خود رزرو کرده که دو طبقه را شامل می‌شود.

علاوه بر این، در ۱۷ اتاق رزرو شده توسط رونالدو، قرار است خانواده، دوستان، نیروهای حفاظت از رونالدو و نزدیکان این فوتبالیست سرشناس اقامت داشته باشند. یک دفتر خصوصی، یک اتاق غذاخوری و یک اتاق رسانه‌ای هم در این بین قرار دارد که از امکانات اختصاصی این هتل برای رونالدو است.

لئونور دختر پادشاه اسپانیا بدون اطلاع خانواده‌اش از خانه خارج شده تا با گاوی ستاره باشگاه بارسلونا قرار بگذارد.

در مورد کاریکاتور آ.خامنه ای هفته نامه شارلی ابدو : 

امیرعبداللهیان نوشته که کشورش پیشتر این نشریه را در فهرست تحریم‌ها قرار داده است.

او در حالی این نشریه‌ را تهدید کرده است که در سال 2015 مورد حمله اسلام‌گرایان تندرو قرار گرفت و 12 عضو تحریریه این مجله کشته شدند.

در تاریخ ۷ ژانویهٔ ۲۰۱۵ حمله‌ای مسلحانه و مرگ‌بار به دفتر مجله رخ داد. مقام‌های قضایی فرانسه اعلام کردند این حمله دست‌کم ۱۲ کشته و حدود ۱۰ زخمی بر جای گذاشت. به‌گزارش خبرگزاری فرانسه دو نفر از کشته‌شدگان مأموران پلیس بوده و چهار نفر از کاریکاتوریست‌های مطرح فرانسوی از جمله سردبیر هفته‌نامه نیز در میان قربانیان بودند. دو مرد با نقاب‌های سیاه و کلاشنیکف به دفتر مجله در پاریس حمله کرده و به افراد تیراندازی کرده، سپس از محل گریخته و ضمن فرار هم به تیراندازی ادامه دادند. ویدئوهای آماتوری از این حمله گرفته و در اینترنت منتشر شد. پلیس اعلام کرد مهاجمان، جلسهٔ شورای سردبیری شارلی ابدو را هدف قرار دادند و هنگام خروج فریاد می‌زدند: «الله اکبر». آن‌ها گفتند «انتقام پیامبر» را گرفته‌اند

سعید کواشی به همراه برادرش شریف کواشی در تاریخ هفتم ژانویه ۲۰۱۵ در دفتر نشریه طنز شارلی ابدو دست به تیراندازی و کشتن دوازده نفر نموده و سپس متواری شدند.

آتاگول

فرارو- برخی رسانه‌های داخلی از ممنوع الخروج شدن علی ضیا مجری تلویزیون خبر دادند.

علی ضیا در صفحه اینستاگرامش نوشت:

«سلام دوستان عزیزم

شرمنده اگه بعضی هاتون نگران شدید

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

به امید روزا خوب برای ایران»

رئیس جمهور سودان

شمارش تعداد رکوردها ( ردیف ها ) ی یک جدول یا کوئری توسط زبان SQL

نام جدول : Customers

فرض کنیم شامل 91 ردیف باشد.

Select Count(*) From Customers 

نمایش فهرست کمبو باکس ( لیست باکس کمبو ) بصورت خودکار

در رویداد یا Events کنترل کمبو باکس ( GotFocus ) از روش DropDown استفاده شده بمحض گرفتن فوکس توسط این کنترل لیست کشوئی کمبو باز خواهد شد.

Private Sub cboBookCategory_GotFocus()
'When the combo box receives focus
'display in drop down position
    Me.cboBookCategory.Dropdown
End Sub

combobox.dropdown

رویداد چرخش غلطک ماوس در یک کنترل مثل TextBox

Public Const WM_VSCROLL = &H115 Public Const WM_HSCROLL = &H114 Public Const SB_LINEUP = 0

Public Const SB_LINEDOWN = 1

Public Declare Function SendMessageA Lib "User32" (ByVal hwnd As Long, ByVal wMsg As Long,ByVal wParam As Long, lParam As Any) As Long

Public Declare Function GetFocus Lib "User32" () As Long

wm-vscroll

Public Function Wnd(Ctl As Control) As Long

On Error Resume Next

Ctl.SetFocus

If Err Then

Wnd=0

Else

Wnd=GetFocus

End If

On Error Goto 0

End Function

OnMouseWheel : 

HandleWindow=Wnd(Screen.ActiveControl)

Count<0

iCount From1 To -1 * Count

hWnd,WM_VSCROLL,SB_LINEUP,0

Count Not Zero

iCount From 1 To Count

hWnd,WM_VSCROLL,SB_LINEDOWN,0

به گزارش سایت خبری تحلیلی ساعدنیوز به نقل از روزیاتو، آنی شارلوت ۲۳ ساله، اهل شهرستان ساری انگلیس، وقتی در ۱۶ سالگی برای معاینه پیش پزشک زنان رفته بود معلوم شد به دو رحمی (Uterus Didelphys) دچار است.

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

۱۸ دیماه ۱۴۰۱ :

اعتمادآنلاین |

روزنامه آرمان امروز از رونق بازار اجاره کارت ملی برای معامله خودرو در بورس کالا گزارش دارد. به نوشته این روزنامه کارت های ملی تا ۱۰۰ میلیون تومان اجاره داده می‌شوند! .... دلالان همه جا هستند ، سکه دلار بورس کالا 

ویژگی ListRows و Selected در کمبو باکس

اواخر آذر ۱۴۰۱:

بانوان مطالبه‌گر حوزه عفاف و حجاب اعلام کردند؛

بست‌نشینی را تا ارسال ۵ هزار پیامک تذکر حجاب ادامه می‌دهیم

بانوان مطالبه‌گر حوزه عفاف و حجاب که از حدود سه هفته پیش در برخی از بقاع متبرکه بست نشسته‌اند و خواستار اجرای مطالبات امامین انقلاب و قانون عفاف و حجاب هستند، اعلام کردند: تا زمانی که حداقل ۵ هزار پیامک تذکر حجاب ارسال نشود به این بست‌نشینی ادامه می‌دهیم.

Selected : 

انتخاب مورد از لیست باکس کمبو

Combo1.Selected(3)=True

ایندکس ردیف ها در لیست باکس ZeroBase هست یعنی ردیف ۱ ایندکس صفر دارد پس طبق خاصیت یا ویژگی مثال زده شده 3 می شود ردیف چهارم

The item in the combo box. The first item is represented by a zero (0), the second by a one (1), and so on.

ListRows : 

حداکثر ردیف هایی که نمایش داده می شود

SelStart : 

برای تعیین نقطه شروع در متن یا نقطه درج.

این ویژگی از دیتا تایپ integer در محدوده صفر تا تعداد کل کاراکترها در قسمت تکست باکس یک کمبو باکس بهره می برد.

.SelStart=0

باعث می شود که از حالت انتخاب خارج شود

SelLength هم طول کاراکتر را مشخص میکند فرضا با SelStart نقطه شروع در متن رو انتخاب می کنید و با ویژگی گفته شده ، می توان برای جستجو در متن و های لایت کردن یافته بهره برد.

ScrollBarAlign : 

جهت نوارپیمایش عمودی یا Vertical از صفر تا ۲ ... 

۱ Scroll Bar در سمت راست کنترل قرار می گیرد .

۲ Scroll Bar در سمت چپ کنترل قرار می گیرد.

TabStop :

کاملا مشخصه یعنی مانع از استفاده Tab برای بردن فوکس به کنترل خواهد شد به False و True تنظیم میشود البته مراقب کلیدهای ترکیبی باشید.

LimitToList : 

اگر متن وارد شده در لیست کمبو باکس نباشد در صورت زدن Enter یا پرش از تکست باکس خطا می دهد.

نماینده ولی فقیه در استان لرستان در صحبت های جنجالی اخیر خود گفت: مسئله بر سر حجاب نیست بحث بر سر سوق دادن به سمت همجنسگرایی و ازدواج با حیوانات است.

سیاستمدار سیاس

او پس از واقعه کودتای سوم اسفند ۱۲۹۹ به دست رضا خانِ میرپنج برای فرار از دست غضب شاه، بست‌نشین مرقد حضرت معصومه (س) شد و از تبریز به قم مهاجرت کرد.

یک روز بعد از این مهاجرت احضاریه‌ای مربوط به املاک لشته‌نشاء به دست فخرالدوله رسید. احضاریه را عبدالکریم خان اکبر معروف به میرزا کریم‌خان رشتی و برادرش عبدالحسین خان اکبر معروف به معزالسلطان و سردار محیی برایش فرستادند. فخرالدوله نیز با وجود مخالفت همسرش میرزا محسن خان، برای اعاده دادرسی به دادگستری تهران رفت و با سردار سپه ملاقات کرد و موفق شد نظر مساعد شاه را برای حفظ املاک پدریش جلب کند.

رضاخان با دیدن فخرالدوله و شهامتش، او را این گونه توصیف کرد: «قاجاریه یک مرد و نیم داشت، مردش فخرالدوله و نیم مردش آغا محمدخان بود.»  البته قاجاریه و فخرالدوله مثل ... از رضاخان ترس داشتند چون اگر دست از پا درازتر می کردند در دم کشته می شدند.