کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )
به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی
کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )
به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجیدرباره من
This topic is a little part of programming in access , We have reached to this goal just with efforts and more exercises also studying the Microsoft Office Documents and their various forums
ادامه...
پراپرتی Controls.Item
دانشجوی زن این دانشگاه به وسیله آمبولانس اورژانس اجتماعی به مرکزی برای اقدامات درمانی منتقل شده است: «وزیر علوم این موضوع را از رئیس دانشگاه آزاد پیگیری کرده و او از کلانتری با اورژانس اجتماعی مستقیماً به مراکزی برای درمان منتقل شده است.» لباس شخصی سپاه و امنیت نبوده!!!
سخنگوی دولت : نگاه دولت به موضوع دختر علوم و تحقیقات امنیتی اجتماعی است، نه امنیتی / هنوز پرونده قضایی تشکیل نشده ... 
حتماً جون خودشون امنیتی نیست کل رسانه های خارجی دارن مانور میدن و عکس لختش رو بُلد کردن انگار داخل شهر نو می چرخه
پراپرتی Item عضو خاصی از یک مجموعه را با استفاده از Position یا Index برمی گرداند
expression.Item(index)
ایندکس :
عبارتیکه موقعیت عضو مجموعه اشاره شده به آنرا توسط آرگومان expression تعیین میکند. اگر عبارت عددی باشد آرگومان ایندکس باید شماره ای از 0 تا مقدار پراپرتی Count مجموعه منهای یک باشد. اگر عبارت رشته ای باشد ، آزگومان ایندکس باید نام عضو مجموعه باشد
Frame3.Controls.item(Frame3.Value - 1 ).caption
rs.Fields.Item(Countfields).Name
آبان ۱۴۰۳
Do While Not rs.EOF
' AbsolutePosition value because it is zero-based.
انتخاب چند رکورد در دیتاشیت فرم
کتایون ریاحی، بازیگر شناختهشده که در دوران اعتراضات ۱۴۰۱ حجاب اجباری را کنار گذاشته بود، با انتشار پستی در اینستاگرام از این دانشجو حمایت کرد و نوشت: «یکدیگر را تنها نمیگذاریم.»
پراپرتی SelHeight فرم
برای تعیین یا مشخص کردن تعداد ردیف های انتخابی ( رکورد ) در مستطیل انتخاب جاری در رکوردهای جدول یا کوئری یا دیتاشیت فرم یا تعداد رکوردهای انتخاب شده در یک فرم continuous .
پراپرتی SelHeight یک مقدار Long Integer بین صفر و تعداد رکوردها در دیتاشیت فرم یا فرم continuous را باز میگرداند. اگر هیچ انتخابی نباشد مقدار بازگشتی این ویژگی صفر خواهد بود. تنظیم این پراپرتی به صفر انتخاب از دیتاشیت یا فرم را برمی دارد. اگر ستون های بیشتری در یک دیتاشیت انتخاب شود نمی توان تنظیم پراپرتی SelHeight را تغییر داد ( مگر اینکه با تنظیم به صفر از حالت انتخاب درآید). این پراپرتی را با پراپرتی های SelTop و SelLeft برای تعیین یا مشخص کردن موقعیت واقعی مستطیل انتخابی در دیتا شیت استفاده کنید. اگر هیچ انتخابی نباشد این دو پراپرتی شماره ردیف و ستونی که فوکس کردید را بازمی گرداند. پراپرتی های SelHeight و SelWidth حاوی موقعیت گوشه راستی پائین در مستطیل انتخابی است و SelTop و SelLeft گوشه چپ بالایی مستطیل انتخابی است.
پراپرتی SelTop فرم
این پراپرتی مقداری بین 1 و تعداد رکوردها در دیتاشیت یا فرم کانتینیوس بازمی گرداند. اگر هیچ انتخابی نباشد مقدار بازگشتی توسط این ویژگی ردیف و ستونی است که فوکس دارد.
پراپرتی SelLeft فرم
از این پراپرتی برای تعیین یا مشخص کردن اینکه کدام ستون ( فیلد ) در چپ ترین مستطیل انتخابی است استفاده می شود. مقدار بازگشتی آن بین 2 و تعداد فیلدها ( ستون ها ) در دیتاشیت + 1 است ( اکسس شمارش را از 0 شروع میکند ) . دو ستون اول همیشه record selector ستون و علامت باز و بسته شدن ستون ( expand / collapse ) برای یک subdatasheet است. اگرهیچ انتخابی صورت نگیرد مقدار برگشتی ردیف و ستون سلولی است که فوکس گرفته. نمی توان تنظیم این پراپرتی را تغییر داد.
از این پراپرتی ها با پراپرتی های SelHeight و SelWidth برای تعیین یا مشخص کردن اندازه واقعی مستطیل انتخابی استفاده کنید.
پراپرتی های SelTop و SelLeft موقعیت گوشه چپ بالایی انتخاب شده در مستطیل را تعیین میکنند
پراپرتی SelHeight و SelWidth گوشه راست پائینی در مستطیل انتخابی را مشخص می کنند.
خلاصه :
تعداد ردیف های انتخاب شده : SelHeight و مقدار بازگشتی بین صفر تا تعداد رکوردها در دیتاشیت
تعداد ستون های انتخاب شده : SelWidth
بالاترین ردیف انتخاب شده : SelTop و مقدار بازگشتی بین 1 تا تعداد رکوردها
چپ ترین ستون انتخابی : SelLeft و اکسس شمارش را از صفر شروع میشود فقط 2 ستون اول برای انتخابگر رکورد و علامت برای نمایش زیر شاخه هاست ، ولی مقدار بازگشتی برای subdatasheet از 2 تا فیلد+ 1 است.
عریان شدن زن علوم و تحقیقات ۳۰ ساله و مطلقه دارای دو فرزند دانشجوی زبان فرانسه دانشگاه مازاد نه آزاد
اخبار کسب شده از سوی خبرنگار ایسنا حکایت از این دارد که اخبار منتشر شده درباره مسائل مرتبط با تذکر حجاب کاملا دروغ بوده و دانشجوی خاطی به دلیل مشکلات روحی ناشی از طلاق و جدایی از فرزندانش مرتکب این عمل در محیط دانشگاه شده است.
طبق توصیف حضرات یعنی زن علوم و تحقیقات یک روانی بیش نیست !!! احتمالاً خواندن زبان فرانسه برای پیوستن به فرانسه بوده یا قصد تابعیت اجنوی ها در سرش می پرورانده .
شئ رکوردست برای حذف یا اضافه کردن رکورد یا حتی ویرایش
در رکوردست میتوان به دستکاری داده ها دست یافت مثل حذف ، اضافه یا ویرایش رکورد
رکوردست نوع snapshot حاوی فیلدهای یک یا چند جدول می تواند باشد اما قادر به Update شدن را ندارند.
در نوع ForwrdOnly فقط می توانید در رکوردها پیماش ( scroll ) کنید. بهبود اجرا در کوئری pass through
This improves performance in situations where you only need to make a single pass through a result set.
To run a query on a database server, use a pass-through query which is a Transact SQL (TSQL) statement that connects to SQL Server by using an ODBC connection string
Type of recordset to open
dbOpenDynamic
Opens a dynaset-type Recordset
dbOpenDynaset
Opens a dynaset-type Recordset
dbOpenForwardOnly
Opens a forward-only type Recordset
dbOpenSnapshot
Opens a snapshot-type Recordset
dbOpenTable
Opens a table-type Recordset
برای نسبت دادن متغیر به رکوردست و استفاده از شئ رکوردست از Set استفاده میکنیم
Set Rs=CurrentDb.OpenRecordset( نوع باز شدن رکوردست ، نام جدول)
آرگومان اول می تواند نام جدول باشد یا عبارت Sql ( مثلاً فقط چند فیلد از جدول داخل رکوردست واکشی شود یا طبق شرط خاصی و یکسری از رکوردها فهرست شود). هر کدام را استفاده کنید باید بین دو دابل کوتیشن قرار گیرند.
بردن کرسر به رکورد آخر
Rs.MoveLast
انتقال کرسر به رکورد اول
Rs.MoveFirst
شمارش تعداد کل رکوردهای باز شده در رکوردست
Rs.RecordCount
انتقال کِرسر به رکورد بعدی
Rs.MovNext
انتقال موقعیت رکورد جاری در شیء رکوردست
Rs.Move (Rows,StartBookmark)
The number of rows the position will move. If rows is greater than 0, the position is moved forward (toward the end of the file). If rows is less than 0, the position is moved backward (toward the beginning of the file).
اولین رکورد در شیء رکوردست نوع dynaset یا snapshot قرار میگیرد
Rs.FindFirst ( Criteria )
This code moves the cursor to the last record.
DoCmd.RunCommand acCmdRecordsGoToLast
Nested loops in recordset
استفاده از لوپ تو در تو برای استخراج نام فیلدها و مقادیرش ، رکورد به رکورد.
While (Not rs.EOF ) 'Loop 1
For Each field In rs.Fields 'Loop no 2
rowText = rowText & field.Name & "=" & rs.Fields(field.Name) & ", "
Next
Debug.Print rowText
rowText = ""
rs.MoveNext
Wend
The Fields collections of the Index, QueryDef, Relation, and TableDef objects contain the specifications for the fields those objects represent. The Fields collection of a Recordset object represents the Field objects in a row of data, or in a record. You use the Field objects in a Recordset object to read and to set values for the fields in the current record of the Recordset object.
To refer to a Field object in a collection by its ordinal number or by its Name property setting, use any of the following syntax forms:
Fields(0)
Fields("name")
Fields![name]
Index is ZeroBased
For i =0 To rs.Fields.Count-1
rs.Fields(i).Name
Next
استخراج نام سابفرم های تو در تو
دختر لخت علوم و تحقیقات آبان ۱۴۰۳
چگونه می توان نام سابفرم های تو در تو در یک سابفرم را استخراج کرد ؟
مثال : MainForm با نام frmMain ، سابفرم با نام Sub1 ، درون Sub1 یک سابفرم با نام Sub2 ، درون Sub2 یک سابفرم با نام Sub3 ایجاد کنید.
کد مربوطه را در نظرات بنویسید
از پراپرتی controlType در Vba میشود استفاده کرد ؟
You can use the ControlType property in Visual Basic to determine the type of a control on a form or report. Read/write Byte.
Parent Property Returns the parent object for the specified object. Read-only.
آبان ۱۴۰۳ دانشگاه آزاد
دختر علوم تحقیقات با نام احتمالی آهو دریایی[۲] دانشجوی دختر دانشگاه آزاد اسلامی واحد علوم و تحقیقات تهران است. موضوع دخالت مأموران حراست دانشگاه در نحوهی پوشش فردیِ وی و اعتراضِ وی به این موضوع، موجب واکنش مردم به این رخداد و موضوع حجاب اجباری در سطح جامعه شد. در تاریخ ۱۲ آبان ۱۴۰۳ در دانشگاه آزاد اسلامی واحد علوم و تحقیقات تهران مأموران حراست و بسیج دانشگاه با زور قصد داشتند این دختر دانشجو را به بهانه حجاب و نداشتن مقنعه به داخل اتاقک حراست ببرند اما با مقاومت و اعتراض او، لباسش (هودی مانند) از تنش کنده شد و زیر هودی چیزی جز لباس زیر بر تن او نبود؛ به همین علت مأموران حراست شوکه شده و رهایش کردند[۳]. پس از این ماجرا و نیمه برهنه شدنِ بالاتنهاش در طی درگیری، دختر از فرط عصبانیت شلوارش را هم درآورد و به سمت مأموران پرتاب کرد و نیمه برهنه شد و همین موضوع باعث دستگیری خشونتآمیز وی شد.[۴][۵][۶][۷][۸][۹] در جریان دستگیری، این دانشجو مورد ضربوشتم و خونریزی قرار گرفت و به مکانی نامعلوم منتقل شد.[۸][۱۰] مسئولان دانشگاه با تکذیب برخورد فیزیکی با این دانشجو، مدعی اختلال روانی وی شدند.[۱۱]
فرمول رفرنس به پراپرتی کنترل در فرم اصلی و سابفرم ( زیر فرم )
به نوشتارهای زیر دقت کنید تا فرمول ارجاعات به کنترل ها یا پراپرتی کنترل ها در هر جایی از فرم و سابفرم های تو در تو که قرار دارید را متوجه شوید.
اگر در MainForm یا فرم اصلی هستید :
اشاره به پراپرتی Enabled کنترل در فرم اصلی
Me!ControlName.Enabled
اشاره یا ارجاع به پراپرتی کنترل در سابفرم ۱
Me!Subform1.Form!ControlName.Enabled
اشاره به پراپرتی کنترل سابفرم ۲ که مجموعه سابفرم ۱ است
Me!Subform1.Form!Subform2.Form!ControlName.Enabled
اگر در سابفرم ۱ هستید :
ارجاع به پراپرتی کنترل در فرم مادر یا فرم اصلی
مثال زیر با استفاده از ویژگی Form به کنترلی در زیرفرم اشاره می کند
اشاره به کنترلی در زیرفرم
فرم اصلی : Orders
زیر فرم : OrderDetails
کنترل در زیرفرم : TotalAmount
از فیلد RecordId سابفرم با نام SubChildForm f استفاده شده تا در یکسری توابع در فرم استفاده شود
چگونگی اشاره به یک کنترل در سابفرم درون فرم اصلی :
Forms!mainform!subform.Form.controlname.property
Me!subform.Form.controlname.property
ارجاع به پراپرتی Visibe و Locked کنترل ctlStateTax در سابفرم با نام subfrmOrders داخل فرم اصلی frmCustomer
Forms("frmCustomer").subfrmOrders.Form.ctlStateTax.Visible = False
Forms("frmCustomer").subfrmOrders.Form.ctlStateTax.Locked
Nested Subform
اشاره به کنترل cboType در سابفرم تو در تو
فرم اصلی : IncidentDetails
سابفرم درون فرم اصلی : CtrlLogDetail
سابفرم درون سابفرم اول : ctrlType
کنترل داخل سابفرم دوم : cboType
Forms!frmMain!sub1.Form!sub2.Form!sub3.Form.AllowEdits = False
فرم اصلی : frmMain
سابفرم ۱ : Sub1
سابفرم ۲ داخل ساب ۱ : Sub2
سابفرم ۳ داخل ساب ۲ : Su 3
Public WithEvents txt1 As Access.TextBox
Private frm2 As Access.Form
Public Property Get sFrm() As Access.Form
Set sFrm = frm2
End Property
Public Property
Set sFrm(ByRef frmValue As Access.Form)
Set frm2 = frmValue
End Property
Private Sub txt1_AfterUpdate()
----------------------------------------------
Function Animate() Dim frmSplash as Form Dim i as Integer DoCmd.OpenForm "Splash" Set frmSplash = Forms("Splash") For i = 1 To 20 frmSplash(i).Visible = True frmSplash(i-1).Visible = False DoCmd.RepaintObject Next End Function
---------------------------------------------
Public Function LockEmAll(bLock As Boolean)
Dim frm As Form
For each frm in Forms
Call LockEm(frm, bLock)
Next
Set frm = Nothing
End Function
Private Function LockEm(frm As Form, bLock As Boolean)
Dim ctl As Control
With frm
If .Dirty Then
.Dirty = False
End If
.AllowEdits = bLock
.AllowDeletions = bLock
.AllowAddtions = bLock
For each ctl In .Controls
If ctl.ControlType = acSubForm Then
Call LockEm(ctl.Form, bLock)
End If
Next
End With
End Sub
ویژگی Filter در فرم
Form.Filter Property
Use the Filter property to specify a subset of records to be displayed when a filter is applied to a form, report, query, or table. Read/write String.
از ویژگی Filter برای ذخیره یک فیلتر و بکار بردن آن در زمان دیگری استفاده کنید . فیلترها با اشیاء در جایی که ساخته شده اند ذخیره می شوند . آنها بصورت خودکار زمانیکه شئ مثل فرم باز می شود بارگذاری می شود اما بصورت خودکار اعمال نمی شوند.
عبارتی که می دهد بدون Where است می توانید سابفرم را فیلتر کنید و عبارت پراپرتی فیلتر آنرا در متغیری ذخیره کنید و نمایش آنرا در قالب Msgbox یا در TextBox ببینید
Me.Filter="Country='USA'"
Me.FilterOn=True
Dim Form As Form
Set Form = Forms("fmClientLogDtls2")
Subform.Form Property
Use the Form property to refer to a form or to refer to the form associated with a subformcontrol. Read-only Form.
برای رجوع به فرم یا فرم مرتبط با کنترل سابفرم از ویژگی Form استفاده کنید.
پس طبق گفته بالا برای استفاده ازکنترل سابفرم باید به پراپرتی فرم اشاره کرد و بعد نام کنترل
مثال : رجوع به مقدار ذخیره شده ( پراپرتی Value بعد از رفتن فوکوس به جای دیگر مقدار میگیرد ) کنترل MyTextBox در ( کنترل ) سابفرم با نام SubformControl4 که در سابفرم ۳ قرار گرفته و ۳ در ۲ و ۲ در MySubformControlName ... خلاصه سابفرم در سابفرم است بشتابید 
!!!
Forms(“MainFormName”). Controls(“MySubformControlName“). Form.Controls(“SubformControl2”). Form.Controls(“SubformControl3”). Form.Controls(“SubformControl4”). Form.Controls("MyTextBox").Value
Controls.Count Property
Use the Count property to determine the number of items in a specified collection. Read-only Long.
Forms("Form1").Controls.Count
شماره ایندکس از صفر شروع میشود پس باید Count-1 شود.
ایندکس می تواند تغییر کند ( مثلا در حذف جدول و دوباره ایجاد کردن با همان نام ) پس بهتر است نام فرم ذکرشود
استفاده از اکشن های SysCmd در اکسس مخصوصاً جهت نوار پیشرفت
acSysCmdAccessDir : 9
Returns the name of the directory where Msaccess.exe is located.
acSysCmdAccessVer : 7
Returns the version number of Microsoft Access.
acSysCmdClearHelpTopic : 11
acSysCmdClearStatus5Provides information on the state of a database object.
acSysCmdGetObjectState : 10
Returns the state of the specified database object. You must specify argument1 and argument2 when you use this action value.
acSysCmdGetWorkgroupFile : 13
Returns the path to the workgroup file (System.mdw).
acSysCmdIniFile : 8
Returns the name of the .ini file associated with Microsoft Access.
acSysCmdProfile :12
Returns the /profile setting specified by the user when starting Microsoft Access from the command line.
acSysCmdRuntime : 6
Returns True (1) if a run-time version of Microsoft Access is running.
acSysCmdInitMeter : 1
Initializes the progress meter. You must specify the argument1 and argument2 arguments when you use this action.
acSysCmdUpdateMeter : 2
Updates the progress meter with the specified value. You must specify the text argument when you use this action.
acSysCmdRemoveMeter :3
Removes the progress meter.
acSysCmdSetStatus : 4
Sets the status bar text to the text argument.
SysCmd(acSysCmdGetObjectState, acTable, obj.Name)
expression.SysCmd(Action,Arg2,Arg3)
Argument2 Optional Variant. A string expression identifying the text to be displayed left-aligned in the status bar. This argument is required when the action argument is acSysCmdInitMeter, acSysCmdUpdateMeter, or acSysCmdSetStatus; this argument isn't valid for other action argument values.
You can't set the status bar text to a zero-length string (" "). If you want to remove the existing text from the status bar, set the text argument to a single space. The text argument can contain approximately 80 characters.
Note : When the action argument is acSysCmdUpdateMeter, the SysCmd method uses the value argument to calculate the percentage displayed by the meter. For example, if you set the maximum value to 200 and then update the meter with a value of 100, the progress meter will be half-filled.
MyTable.MoveLast
Count = MyTable.RecordCount
MyTable.MoveFirst
SysCmd acSysCmdInitMeter, "Reading Data...", Count
For Progress_Amount = 1 To Count
SysCmd acSysCmdUpdateMeter, Progress_Amount
MyTable.MoveNext
Next
SysCmd acSysCmdRemoveMeter
البته این سایت سایت تولیدی نیست پس اسرائیل رکب خورد
Search in Access
۷ آبانماه ۱۴۰۳
در کوئری در قسمت شرط یا criteria فیلد مورد نظر عبارت زیر تایپ می شود
Like "*" & [Forms]![Form1]![txtSearch] & "*"
متد و پراپرتی های مورد نیاز در رویداد Change تکست باکس :
*Form.Requry
The Requery method updates the data underlying a specified form by requerying the source of data for the form.
*Form.Refresh
The Refresh method immediately updates the records in the underlying record source for a specified form or datasheet to reflect changes made to the data by you and other users in a multiuser environment.
*Text ( Searchtxt.Text )
While the control has the focus, the Text property contains the text data currently in the control; the Value property contains the last saved data for the control. When you move the focus to another control, the control's data is updated, and the Value property is set to this new value.
فرق ویژگی Text و Value : اولی حاوی داده جاری و دومی داده ذخیره شده البته بعد از ترک فوکس از تکست باکس.
*SelStart
The SelStart property uses an Integer in the range 0 to the total number of characters in the text box portion of a combo box.
To set or return this property for a control, the control must have the focus. To move the focus to a control, use the SetFocus method.
Changing the SelStart property cancels the selection, places an insertion point in the text, and sets the SelLength property to 0.
SelText
If no text is selected, the SelText property contains a Null value.
The SelText property uses a string expression that contains the text selected in the control. If the control contains selected text when this property is set, the selected text is replaced by the new SelText setting.
To set or return this property for a control, the control must have the focus. To move the focus to a control, use the SetFocus method.
Event : OnKeyPress
The KeyPress event occurs when a user presses a key while a form or control has the focus. This event also occurs if you send a keystroke to a form or control by using the SendKeys action in a macro or the SendKeys statement in Visual Basic.
تعیین متغیر از نوع Boolean در استاندارد ماژول ، در صورتیکه در رویداد key press کلید space با کد اسکی 32 فشرده شد ، False شود
جمهوری اسلامی دیگر حریف بدحجابی ها نخواهد شد مخصوصاً در متروها ، میادین اصلی و دانشگاه های معتبر و رتبه برتر.
لینک کردن رکوردها در فرم به زیر فرم
از ویژگی LinkMaterFields همراه با ویژگی LinkChildFields برای تعیین اینکه چگونه مایکروساقت اکسس رکوردها در فرم یا گزارش را به رکوردها در یک زیرفرم یا زیر گزا ش یا شئ embedded مثل Chart لینک میکند استفاده میشود. اگر این ویژگیها تنظیم شوند ، زمان تغییر به رکورد جدید در فرم اصلی اکسس رکورد مرتبط در زیرفرم را به روز رسانی می کند.
این ویژگی ها می توانند فقط در نمای Design یا در هنگام Open کردن فرم یا گزارش انجام شود.
فیلدها یا کنترل هایی که شما برای تنظیم این ویژگیها استفاده می کنید نیازی نیست که نام های یکسان داشته باشند. اما آنها باید از نظر داده ای یکسان باشند یا دیتاتایپ و فیلدسایز سازگاری داشته باشند ( پس به data type هم توجه شود !!! ) . بعنوان مثال فیلد AutoNumber با فیلد Number چنانچه ویژگی FieldSize برای فیلد Number به Long Integer تنظیم شده باشد ، سازگار است.
نام کنترل ( شامل نام کنترل calculated ) را برای تنظیم ویژگی LinkMasterFields بکار ببرید ، اما نمی توانید نام کنترل را برای تنظیم این ویژگی استفاده کنید. اگر می خوهید مقدار محاسبه شده ( calculated value ) را بعنوان لینک برای یک زیرفرم ، زیر گزارش یا شئ embedded استفاده کنید ، یک فیلد calculated در کوئری تحت شئ child تعیین کنید و ویژگی LinkChildFields را به فیلد تخصیص دهید.
زمانیکه بیش از یک نام فیلد یا کنترل برای تنظیم این ویژگیها تنظیم می کنید باید تعداد مشابهی از فیلدها یا کنترل ها را برای تنظیم هر ویژگی مشخص کنید و نام ها را با یک semicolon از هم جدا کنید ( یعنی بین اسامی درج شده از ؛ استفاده کنید).
فیلتر در اکسس
سه شنبه ۱۰ مهر ۱۴۰۳ حوالی ساعت ۲۰:۳۰
سخنگوی ارتش اسرائیل می گوید: "ما در حالت دفاعی و تهاجمی آماده باش هستیم، از شهروندان اسرائیل محافظت خواهیم کرد. این شلیک [موشکی] عواقبی خواهد داشت. ما برنامه هایی داریم و در زمان و مکانی که انتخاب می کنیم عمل خواهیم کرد.
نخست وزیر اسرائیل ایران را تهدید کرد و گفت: ایران اشتباه کرد و برای این اشتباه هزینه پرداخت خواهد کرد. نتانیاهو افزود: هر کس به ما حمله کند، به او حمله خواهیم کرد.
ISNULL(Text0)
ISNULL(Text1)
۱۰ مهر ۱۴۰۳ حوالی ساعت ۲۰:۳۰ پرتاب ۲۰۰ موشک بالستیک به اسرائیل ( کمتر از ۱۲ دقیقه )
مهر ۱۴۰۳
اسرائیل نقاط حمله به ایران را مشخص کرد
به گزارش رسانههای اسرائیل دولت تلآویو نقاطی که در حمله تلافیجویانه به ایران هدف قرار خواهد داد را مشخص کرده است.
شئ OpenAsTextStream برای خواندن فایل متنی
باز کردن فایل مشخص شده و بازگشت یک شئ TextStream که می تواند برای خواندن از فایل ، نوشتن روی فایل یا اضافه کردن به فایل استفاده شود.
نوشتاری :
object.OpenAsTextStream ([ iomode, [ format ]])
The OpenAsTextStream method syntax has these parts:
Object : بردن نام شئ ضروریست . همیشه نام شئ File
iomode : اختیاریست . حالت Input / Output را مشخص میکند و می تواند یکی از ۳ ثابت ForReading ، ForWriting و ForAppending باشد.
format : اختیاری ، برای نشان دادن فرمت فایل بازشده استفاده می شود. اگر خالی رها شود ، فایل در حالت ASCII باز میشود ... مثلا برای باز کردن به حالت پیش فرض عدد ثابت ۲-
| Constant | Value | Description |
|---|---|---|
| ForReading | 1 | Open a file for reading only. You can't write to this file. |
| ForWriting | 2 | Open a file for writing. If a file with the same name exists, its previous contents are overwritten. |
| ForAppending | 8 | Open a file and write to the end of the file. |
| Constant | Value | Description |
|---|---|---|
| TristateUseDefault | -2 | Opens the file by using the system default. |
| TristateTrue | -1 | Opens the file as Unicode. |
| TristateFalse | 0 | Opens the file as ASCII. |
توضیحات :
متد OpenAsTextStream مثل همان متد OpenTextFile از FileSystemObject عمل می کند . بعلاوه متد OpenAsTextStream می تواند برای نوشتن به فایل استفاده شود.
| Read | Reads a specified number of characters from a TextStream file and returns the result. |
| ReadAll | Reads an entire TextStream file and returns the result. |
| ReadLine | Reads one line from a TextStream file and returns the result. |
| Skip | Skips a specified number of characters when reading a TextStream file. |
For large files, using the ReadAll method wastes memory resources. Other techniques should be used to input a file, such as reading a file line-by-line.
' const ForReading=1
strFile_Path = "Your file Path"
Open strFile_Path For Append As #1
Write #1, “You can write your required text here”
Close # 1
نقشه کد گذاری کاراکترها در سیستم ایران
نقشه کد گذاری
0x90 0x200C 0x0627 # ARABIC LETTER ALEF, isolated form 0x91 0x200D 0x0627 # ARABIC LETTER ALEF, final form 0x92 0x0628 0x200C # ARABIC LETTER BEH, final-isolated form 0x93 0x0628 0x200D # ARABIC LETTER BEH, initial-medial form 0x94 0x067E 0x200C # ARABIC LETTER PEH, final-isolated form 0x95 0x067E 0x200D # ARABIC LETTER PEH, initial-medial form 0x96 0x062A 0x200C # ARABIC LETTER TEH, final-isolated form 0x97 0x062A 0x200D # ARABIC LETTER TEH, initial-medial form 0x98 0x062B 0x200C # ARABIC LETTER THEH, final-isolated form 0x99 0x062B 0x200D # ARABIC LETTER THEH, initial-medial form 0x9A 0x062C 0x200C # ARABIC LETTER JEEM, final-isolated form 0x9B 0x062C 0x200D # ARABIC LETTER JEEM, initial-medial form
0xF0 0x06AF+<ZWJ> # ARABIC LETTER GAF, initial-medial form 0xF1 0x0644+<ZWNJ> # ARABIC LETTER LAM, final-isolated form 0xF2 0x0644+0x0627 # ARABIC LIGATURE LAM WITH ALEF 0xF3 0x0644+<ZWJ> # ARABIC LETTER LAM, initial-medial form 0xF4 0x0645+<ZWNJ> # ARABIC LETTER MEEM, final-isolated form 0xF5 0x0645+<ZWJ> # ARABIC LETTER MEEM, initial-medial form 0xF6 0x0646+<ZWNJ> # ARABIC LETTER NOON, final-isolated form 0xF7 0x0646+<ZWJ> # ARABIC LETTER NOON, initial-medial form 0xF8 0x0648 # ARABIC LETTER WAW 0xF9 0x0647+<ZWNJ> # ARABIC LETTER HEH, final-isolated form 0xFA <ZWJ>+0x0647+<ZWJ> # ARABIC LETTER HEH, medial form 0xFB <ZWNJ>+0x0647+<ZWJ> # ARABIC LETTER HEH, initial form 0xFC <ZWJ>+0x06CC+<ZWNJ> # ARABIC LETTER FARSI YEH, final form 0xFD <ZWNJ>+0x06CC+<ZWNJ> # ARABIC LETTER FARSI YEH, isolated form 0xFE 0x06CC+<ZWJ> # ARABIC LETTER FARSI YEH, initial-medial form
Hex : 630
Decimal :
6×16^(2)+3×16^(1)+0×16^(0)=1584
1584/16 16 99 0
99/16 6 3
6/16 0
0 6 3 0
1740/16 108 12(reminder)
108/16 6 12(reminder)
6/16 0 0
0 6 12 12 = 0 6 C C
Decimal 9 Hex9
Decimal 10 Hex A
Decimal 11 Hex B
Decimal 12 Hex C
Decimal 13 Hex D
Decimal 14 Hex E
Decimal 15 Hex F
1605 / 16 100 5 (reminder)
100 / 16 6 4 (reminder)
6 / 16 0
Hex : 0 6 4 5
| U+0641 | ف | d9 81 | ف | ف | ARABIC LETTER FEH |
| U+0642 | ق | d9 82 | ق | ق | ARABIC LETTER QAF |
| U+0643 | ک | d9 83 | ك | ک | ARABIC LETTER KAF |
| U+0644 | ل | d9 84 | ل | ل | ARABIC LETTER LAM |
| U+0645 | م | d9 85 | م | م | ARABIC LETTER MEEM |
| U+0646 | ن | d9 86 | ن | ن | ARABIC LETTER NOON |
| U+0647 | ه | d9 87 | ه | ه | ARABIC LETTER HEH |
| U+0648 | و | d9 88 | و | و | ARABIC LETTER WAW |
| U+0649 | ى | d9 89 | ى | ى | ARABIC LETTER ALEF MAKSURA |
| U+064A | ی | d9 8a | ي | ی | ARABIC LETTER YEH |
?Hex(&H & 1740)
read a binary file
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 intFileNumEnd Subکپی داده های جدول به جدول دیگر با فیلدها و دیتا تایپ های یکسان با Insert Into
در تصویر زیر کاملاً مشهود است ( تمام داده ها در جدول t1 محتوی ۱۴ رکورد را Delete کردیم و مجدداً تک رکورد اضافه نُمودیم ) ، جدول t1 تنها شامل یک رکورد با ID=101 است در عبارت SQL با دستور INSERT INTO تمام محتویات داخل جدول t که شامل ۱۴ رکورد است به جدول t1 کپی شده ... Primary key باعث شده که ID تکرای نگیرد البته خطا تولید می کند
Create Table t (ID int not null,Grade varchar(5),Gen varchar(6),Primary key(ID))
امکانات و مزایای باورنکردنی دانشگاه صداوسیما مهر ۱۴۰۳
امکانات تحصیلی دانشگاه صداوسیما امکانات جامعی است هم از حوزه رفاهی خوابگاه دانشگاه رایگان است که در اختیار دانشجویان روزانه قرار میگیرده، یک کمک هزینه تحصیلی در اختیار دانشجویان قرار میگیرد که مبلغ آن امسال دو برابر شده است، یک میلیون و ۴۰۰ هزار تومان برای دانشجویان مجرد، دو میلیون و ۵۰۰ هزار تومان برای دانشجویان متاهل و برای دانشجویان نخبه هم که رتبه برتر کشوری دارند سه میلیون و ۵۰۰ هزار تومان کمک هزینه تحصیلی به صورت ماهیانه پرداخت می شود، تغذیه هم در همه روزهای هفته در اختیار دانشجویان است امکانات ورزشی سالن چند منظوره و اینترنت رایگان و تمام امکاناتی که دانشجو نیاز دارد در طول تحصیل در اختیار دانشجویان قرار میگیرد.
وی گفت: در تمام رشته ها به جز رشته کاردانی فنی الکترونیک که از داوطلبان مرد دانشجو می گیرد، هم از داوطلبان خانم و آقا دانشجو می پذیرد. در رشته کاردانی فنی الکترونیک اتفاقی که امسال نخستین بار افتاد این است که دانشگاه براساس سوابق تحصیلی هم دانشجو میپذیرد داوطلبانی که دیپلم دارند منتهی در کنکور شرکت نکردند این امکان وجود دارد از ۱۴ شهریور تا ۱۸ شهریور ثبت نام کنند در سایت سنجش و براساس سوابق تحصیلی مثل کاردانی فنی الکترونیک دانشگاه صداوسیما را انتخاب کنند.
فیلتر در اکسس با استفاده از Select Query
قبل از کار با زبان SQL مخصوص اکسس و استفاده از Select Query برای فیلتر یک ستون و بیشتر طبق شرط ها باید با عملگرهای منطقی آشنا شوید تا به نوشتن سِلِکت کوئری و استفاده صحیح از آنها مسلط شوید ( این نحوه از Sql نویسی برای فیلتر پیشرفته [ استفاده از کوئری و نه کدنویسی ویژوال ] در اکسس بارها با شکل و توضیح عملگرها مکرراً بیان شده است مثل تصویر زیر ).
در زیر جدولی با نام t و دو ستون ایجاد شده و هر بار طبق ورودی داده هایی را فهرست می کند.
شرح اشکال تصویر به ترتیب :
- جدول دارای ۱۱ رکورد است.
- ID مساوی و بزرگتر از ۲۷ فیلترشده.
- ID بین ۲۷ و ۳۳ در جدول لیست شده.
- ID کوچکتر مساوی ۳۳ نمایش داده شده.
- طبق داده های ستون Educa فیلتر شده یعنی رکوردهایی که شامل A یا B است.
- رکوردهایی که ID آنها بزرگتر مساوی ۲۷ و داده فیلد Educa آنها شامل A یا B باشد نمایش داده شده.
- در شکل آخر نیز تمام رکوردهای جدول نمایش داده شده یا بعبارتی از فیلتر خارج شده .
برای Sort کردن بصورت صعودی یا نزولی میتوان از Order By که Optional است در عبارت SQL استفاده نُمود . مثل Order By ID ASC
Asc : [ A-Z],[0-9]
Desc : [Z-A],[9-0]
تصویر زیر فیلتر داده ها در ۳ فیلد نمایش داده شده در بالا فقط در دوفیلد انجام شده بود... این تصاویر جدول مجازیست که در سایت ایجاد شده و از بین میرود دیتابیس نیست که به کارجو ارائه شود
فرق پراپرتی text و value در textbox :
text : متحویات فعلی کنترل است ، این پراپرتی تا زمانیکه کنترل فوکِس دارد در جریان است و به محض فوکس کردن میشود value ، امتحان کنید.
value : مقدار ذخیره شده کنترل تکست باکس است
برای بررسی Null بودن تکست باکس یا تکست باکس کمبوباکس کافیست از تابع IsNull استفاده کنید برای فیلتر یا خارج شدن از فیلتر استفااده میشود
IsNull(text0)> Null > True
IsNull(text0) >Not Null >False
IsNull returns True if expression is Null; otherwise, IsNull returns False. If expression consists of more than one variable, Null in any constituent variable causes True to be returned for the entire expression.
مقدار Null نشاندهنده یک دیتا تایپ از نوع Variant ( داده شامل text یا number و ... باشد ) بدون داده معتبر است ، مشابه Empty ( خالی یا پوچ ) و نمایانگر رشته با طول صفر ( "") نیز نیست.
NULL = داده نامعتبر
The Null value indicates that the Variant contains no valid data. Null is not the same as Empty, which indicates that a variable has not yet been initialized. It is also not the same as a zero-length string (""), which is sometimes referred to as a null string.
Important: Use the IsNull function to determine whether an expression contains a Null value. Expressions that you might expect to evaluate to True under some circumstances, such as If Var = Null and If Var <> Null, are always False. This is because any expression containing a Null is itself Null and, therefore, False.
نکته : هر عبارتی حاوی یا شامل داده نامعتبر به تنهایی NULL است و بنابراین FALSE
بی انصافیه واقعاً با این همه توضیحات و رفرنس دوستان امتیاز خیلی کم به وبلاگ بدهند.
۱۵ شهریور ۱۴۰۳
در مشهد کمی آن سوتر از هتل های ۵ ستاره، وحشتناکترین شهر از نظر فقر، فساد و فاصله طبقاتی وجود دارد. سروصدای عزاداری و پیاده روی ما هم دنیا را فرا گرفته، اما امام رضا کجای زندگی و جامعه ماست؟
جماران: آیتالله سروش محلاتی در سخنرانی شب شهادت امام رضا(ع) در کانون توحید تهران، میراث فرهنگی و مواضع امام رضا(ع) را شبیه امام علی(ع) دانست و در بیان علت این شباهت گفت: در میان امامان، امام علی خلافت ظاهری داشت و امام رضا هم در ولایتعهدی شبه خلافت داشت و بقیه امامان کناره گیری یا معارضه با حکومت داشتند.
تابع WNDPROC
یک تابع پاسخ به تماس، که در برنامه خود برای پردازش پیام های ارسال شده به یک پنجره تعریف می کنید . نوع WNDPROC یک Pointer یا اشاره گر برای این تابع برگشتی را تعریف می کند. نام WndProc یک جایبان ( جایگاه متنی ) برای نام تابعی است که در برنامه خود تعریف می کنید.
Private Function NewWindowProc(ByVal hwnd As Long, ByVal Msg _ As Long, ByVal wParam As Long, ByVal lParam As Long) As _ Long
Dim bFormIsActivated As Boolean
If Msg = WM_ACTIVATE Then
bFormIsActivated = wParam
If bFormIsActivated = True Then
'\refresh text when form gaining focus
'Call RotateTextNow
End If
Exit Function
End If
NewWindowProc = CallWindowProc(lOldWindowProc, hwnd, Msg, wParam, lParam)
End Function
public const int WM_ACTIVATE = 6
System 64bit
Declare PtrSafe Function CallWindowProcA Lib (ByVal lpPrevWndFunc As LongPtr, ByVal hWnd As LongPtr, ByVal Msg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
فرآیند پیشفرض پنجره را فراخوانی میکند تا پردازش پیشفرض را برای هر پیام پنجرهای که برنامه پردازش نمیکند، ارائه دهد. این تابع تضمین می کند که هر پیامی پردازش می شود. DefWindowProc با همان پارامترهای دریافت شده توسط رویه پنجره فراخوانی می شود.
پراپرتی Connect در لینک به جداول
حمله به اسرائیل در پی ترور اسماعیل هنیه در منطقه زعفرانیه تهران زودتر از ۲۸ صفر نخواهد بود ( دلایل امنیتی مخصوصا راهیان کربلا و شلوغ بودن مرزها )
درخواست مبینا نعمت زاده و موافق مسعود پزشکیان با حضور بدون کنکور در دانشکده پزشکی با واکنش تند مردم همراه شد.
برای شئ TableDef که جدول لینک شده را نشان می دهد ، تنظیم پراپرتی Connect شامل یک یا دو قسمت است ( مشخص کننده نوع دیتابیس و مسیری به دیتابیس یا پایگاه داده ) ، هر کدام از اینها با semicolon ختم می شود. مسیر جدول مسیر کامل برای دایرکتوری نگهدارنده فایل های پایگاه داده است و بایستی با نشانگر= DATABASE قبل از آن باشد.
.Connect="Ms Access;PWD=" & Pass & ";DATABASE=..."
برای لوپ زدن در جداول و گرفتن پراپرتی Name آنها می توان از مجموعه Tabledefs استفاده کرد ، شماره ایندکس جداول ZeroBase است. پراپرتی Count از مجموعه TableDefs تعداد ( number ) شئ ها در مجموعه مشخص شده را برمی گرداند و Read-only است.
Application.RefreshDatabaseWindowAlternative : CurrentDb.TableDef.Refresh
?CurrentDb.TableDefs(0).RecordCount۵ شهریور ۱۴۰۳
۴ ساعت پیش · توهین به مهسا امینی در تلویزیون؛ «نفله شده دختر کرد سنی» (فیلم) ... این استاد دانشگاه گفت: در اعتراضات سال ۱۴۰۱، پیش بینی دشمن این بود که وقتی این
۱۸ مرداد ۱۴۰۳
۲ ساعت پیش · نخست وزیر اسرائیل تهدید کرد: حزبالله باید به عواقب حمله به اسرائیل و شروع یک جنگ گستردهتر فکر کند.حسن بهشتی پور درباره نحوه بهترین پاسخ برای ترور اخیر اسماعیل هنیه، بهترین راهبرد را زدن ضربه ای کاری به یکی از سران اصلی و مسئولین جنایتکار رژیم صهیونستی دانست و اضافه کرد: دقیقا به همان شکلی که رژیم صهیونستی عملیات خود را انجام داد ما هم باید بتوانیم عملیات مشابهی را انجام بدهیم.
۱۹ مرداد ۱۴۰۳ : ترور عضو ارشد حماس در لبنان
حماس اعلام کرد که سامر الحاج در جریان حمله ددمنشانه رژیم صهیونیستی به شهر صیدا در جنوب لبنان که عصر امروز انجام شد، به شهادت رسیده است.
«سعدالله زارعی» کارشناس مسائل منطقه در پیش از خطبههای نماز جمعه این هفته تهران ( مصلی ) ، اظهار داشت: اگر اسرائیل بتواند عملیات ترور را همانند تخریب بیمارستانهای غزه عادی سازی کند، شاهد تکرار عملیاتهای ترور در سطح جهان اسلام علیه رهبران مقاومت خواهیم بود، لذا پاسخ به عملیات ترور رژیم اسرائیل یک الزام و اجبار برای سر جا نشاندن رژیم صهیونیستی است.
۲۰ مرداد ۱۴۰۳
هدف : کوچاندن اجباری
در کشتار جدید رژیم صهیونیستی در مرکز شهر غزه در بامداد امروز شنبه بیش از ۱۰۰ نفر شهید و دهها نفر زخمی شدند.
«انس الشریف»، خبرنگار الجزیره در غزه گزارش داد که اشغالگران مدرسه «التابعین» در محله الدرج را بعد از نماز صبح بمباران کردند که با توجه به حضور بین ۴۰۰۰ تا ۵۰۰۰ نفر در مدرسه واقع در خیابان النفق ممکن است تعداد تلفات افزایش یابد.
۲۲ مرداد ۱۴۰۳ و هنوز ملت ها منتظر
سفر خارجی ممنوع!
سخنگوی ارتش رژیم صهیونیستی گفت: بر پایه ارزیابیهای اطلاعاتی سفر کلیه اعضای نیروهای مسلح اسرائیل به خارج از کشور ممنوع شد.
پس از جنایت رژیم صهیونیستی در غزه در اتفاق ناگوار مدرسه التابعین نیروهای امدادی هر 70 کیلو گرم از بدن اجساد را بدلیل نامشخص بودن افراد یک شهید در نظر گرفتند.
مدیر عامل خبرگزاری میزان در واکنش به سانسورهای عجیب مسابقات المپیک در تلویزیون:
این مدل کشتی نشون دادن توهین به مخاطب ایرانی است. هادی عامل داره کشتی گزارش میکنه، اما تصویر چیز دیگهای نشون میده.
صداوسیما مسابقات کشتی رو ضبط کنه، سانسورهاش رو انجام بده بعد زندهنمایی کنه. مسخرهتر از این مدل پوشش نداریم!
ناهید کیانی و کیمیا علیزاده در مراسم توزیع مدال وزن ۵۷ کیلوگرم المپیک پاریس یکدیگر را در آغوش گرفتند تا تاریخسازی دختران ایرانی تکمیل شود. این اقدام ورزشکاران توسط صدا و سیما سانسور شد
صحبت های خنده دار آقای قرائتی: شب اول عروسی دوماد اومده پیش عروس میگه توحید و نبوت یعنی چی اونم گفته والا نمیدونم شب اول قبرمونه یا عروسیمون
۲۱ مرداد ۱۴۰۳
صبح امروز شهردار بندر گناوه به همراه دو کارمند شهرداری، توسط سازمان اطلاعات سپاه انصارالحسین (ع) گناوه دستگیر شده و تحویل مقام قضایی شدند. بر اساس گزارش دریافتی، متهمان به صورت سازمان یافته در زمینه اخذ رشوه فعالیت داشتهاند. پیش از این نیز، یکی از افراد وابسته به این پرونده توسط سربازان گمنام سازمان اطلاعات سپاه انصارالحسین (ع) دستگیر شده بود.
المپیک ۲۰۲۴ ، آقای یزدانی در یک قدمی مدال طلا با مصدومیت دررفتگی شانه
رییس کمیسیون پزشکی اتحادیه جهانی کشتی ادامه داد: اما در این حین آقای امینی که آنجا بود اظهار نظرهایی با لفظ نامناسبی داشت که باید بانداژ میکردم تا دست یزدانی در نرود. من هم به ایشان توضیح دادم که چون تخصص و صلاحیت پزشکی ندارند این مبحث را ادامه ندهند. به هر حال با رفتار نامناسب ایشان من مواجه شدم. البته عصبانیت آقای امینی با توجه به مصدومیت و نتیجه یزدانی برایم قابل درک بود و همین باعث واکنش نامناسب ایشان شده بود اما به عنوان مربی باتجربه از او انتظار داشتم بر خودش مسلط باشد و ادب و منش پهلوانی که از کشتیگیران و مربیان انتظار است را رعایت کند. بدون شک آقای کاوه هم به اندازه ایشان ناراحت بودند اما رفتار مناسبی داشتند و مشاجرهای با هم نداشتیم.
۲۲ مرداد ۱۴۰۳
قیمت پایه و مالیات و عوارض را ببینید
مرداد ۱۴۰۳ و اوج گرما ( حادثه شهربازی شخصی )
خوشبختانه با عنایت خداوند وتلاش کادر درمان عسل حالش بهتر شد اگرچه شرایط او چندان برای ترخیص مساعد نبود اما گرمای بیش از حد اتاق های بستری بیمارستان مدنی کرج شرایط را برای عسل دشوار کرده بود بنابراین تصمیم گرفتیم او را از بیمارستان به خانه ببریم .
در بیمارستان اتاق های بخش های درمانی کولر ها خاموش است و بیشتر مردم با پنکه های شخصی به داد بیماران خود رسیده اند و این مسله خیلی تعجب برانگیز است .
لوسمی یک نوع سرطان خون است که باعث تولید غیرطبیعی و بیش از حد سلولهای سفید خونی میشود. احساس پف کردن: یکی از نشانههای نوع مزمن لوسمی، بزرگ شدن طحال است که ممکن است منجر به کاهش اشتهای فرد مبتلا شود، زیرا به دلیل فشار وارده از سمت طحال به معده، فرد احساس سیری میکند و مواد غذایی کمتری مصرف مینماید.
المپیک کشتی ۲۰۲۴
با این حال، اتحادیه جهانی کشتی درخواست تجدید نظر را رد کرد و کار داوران در فینال را درست تشخیص داد.
آماده رفتن به لوزان
داستان می توانست به همین جا ختم شود اما الکسانیان پس از ورود به وطن خود به خبرنگاران گفت که آماده است تا پایان این شکایت را پیگیری کند. او گفت فرصت برای تجدید نظر در این تصمیم وجود دارد. قهرمان المپیک ریو ۲۰۱۶ توضیح داد که همه چیز به وضوح در ویدیو قابل مشاهده است. اتحادیه جهانی کشتی شکایت ما را نمیپذیرد چون چگونه میتواند گناه خود را بپذیرد؟ ما به IOC شکایت خواهیم کرد. ویدیو را ارائه خواهیم داد. بگذارید کارشناسان نگاه کنند و بگویند حق با کیست.
۲۳ مرداد ۱۴۰۳ اظهاز فضل وزیر پیشنهادی نیرو جهت بررسی در کمیسیون تخصصی
در این جلسه وزیر پیشنهادی نیرو نیز دلایل ایجاد وضعیت فعلی و شکاف با سیاستهای ابلاغی را اقتصاد یارانهای برق و عدم توجیه اقتصادی سرمایهگذاری در بخش برق عنوان کرد و گفت: همچنین عدم تعادل عرضه و تقاضا، رشد بیرویه مصرف را باید به این موارد افزود که ازجمله راههای تحقق سیاستهای ابلاغی از نظر علیآبادی اصلاح اقتصاد و روابط مالی برق، افزایش ظرفیت و راندمان تولید انرژی تجدیدپذیر، اصلاح ساختار صنعت برق و… است.
المپیک ۲۰۲۴
سرپرست کاروان ورزش ایران در بازی های پارالمپیک پاریس میزان پاداش مدال آوران این دوره از بازی ها را اعلام کرد.
وی ادامه داد: بر این اساس برای مدال آوران طلا در بازی های پارالمپیک ۴ میلیارد تومان در نظر گرفته شده است، مدال آوران نقره یک و نیم میلیارد دریافت می کنند و به مدال آوران برنز هم یک میلیارد اهدا می شود. پاداش مدال آوران تیمی ۷۵ درصد پاداش تعیین شده برای رشته های انفرادی است.
رئیس دانشگاه علوم پزشکی تهران در پاسخ به ادعای موافقت دانشگاه علوم پزشکی تهران با پذیرش بدون کنکور مبینا نعمت زاده در رشته پزشکی این دانشگاه گفت: پذیرش دانشجو در این دانشگاه طبق ضابطه خواهد بود. بنابراین پذیرش او بدون کنکور در رشته پزشکی تکذیب میشود.
غیر فعال کردن هشدار Hyperlink در Microsoft Office
پیش بینی : ( با توجه به لغو شدن پروازها از تهران و استانبول و حتی لبنان از ساعت ۱ ) بامداد یکشنبه ۱۳ مرداد ۱۴۰۳ حدود ساعت ۱ ببعد مراکز نظامی اسرائیل از چند کشور مورد تهاجم موشکی قرار خواهند گرفت.
مدیرعامل شهر فرودگاهی امام خمینی(ره) افزود: «لغو پروازهای ترکیه به ایران صرفاً شایعه و جو رسانهای است.»
۱۴ مرداد و مشخص شد حمله به مواضع صهیونیستی در بامداد صورت نگرفت .... و همچنان نتانیاهو به غزه حمله می کند !!!
اکسیوس:
پیشبینی میشود حمله ایران به اسرائیل بامداد روز دوشنبه انجام شود ( ۱۵ مرداد ۱۴۰۳ )
وبسایت خبری «اکسیوس» آمریکا به نقل از مسئولان اسرائیلی و آمریکایی نوشت: «پیشبینی میشود ایران در ساعات ابتدایی فردا دوشنبه به اسرائیل حمله کند.»
امروز دوشنبه و هم عملیات خونخواهی انجام نگرفت
VBAwarnings KeyWord
Security\Trusted Documents.
DisableTrustedDocuments
A Security Warning dialog box appears when you try to trust a file from a network location. You can click Don't show this message again in the dialog box, and then the dialog box does not appear again. In addition, you can turn off the feature by clicking No on the Security Warning dialog box.
Turn off Trusted Documents feature for network locations
You can turn off the Trusted Documents feature, for network locations, in the Trust Center.
- Click the File tab.
- Click Options.
- Select Trust Center, and then Trust Center Settings.
- Click Trusted Documents.
- Clear the Allow documents on a network to be trusted check box.
Security\Protected View.
ProtectedView
Leave Blank Type
Regedit
Trusted Location
location1 To Location20 Only
If you enable this policy setting, you may specify a folder location, path, and date from which files can the application can open files which run macros without warning.
path ... software\policies\microsoft\office\16.0\access\security\trusted locations\location20
Type
Allowsubfolders : all sub-folders in the folder you specify will also be trusted.
If you disable or do not configure this policy setting, all trusted locations (those specified in the Trust Center) in the specified applications are assumed to be safe.
Disable All Trusted Location
Type : alllocationsdisabled
Value : 1 enabled 0 disabled
software\policies\microsoft\office\16.0\access\security
Value Name: modaltrustdecisiononly
دستور امنیتی دادستان کل کشور علنی شد
به گفته رحیمی، حجتالاسلام والمسلمین موحدی ازاد، دادستان کل کشور دستور داده «تمامی افرادی که در ماجرای ترور شهید اسماعیل هنیه قصور داشتند و یا به عنوان عامل نفوذی از آنها استفاده شده، شناسایی و دستگیر شوند.»
رد پای نفوذ در ترور هنیه| قوه قضاییه: نه تایید می کنیم و نه رد
معاون قضایی قوه قضاییه البته اینکه «رژیم صهیونیستی در این ترور از عوامل نفوذی و جاسوس استفاده کرده را تایید و یا رد نکرد» اما در عین حال از بررسی و پیگیری این فرضیه خبر داد.
۱۴ مرداد ۱۴۰۳ - فرودگاه امام
پروانه فعالیت شرکت خدمات مسافرت هوایی ارزان سفر ایرانیان از تاریخ 10/05/1403 بدلیل عرضه بلیت/نمایش نرخ بلیت هواپیما در مسیرهای داخلی بالاتر از نرخ های تعیین شده به مدت یک ماه تقویمی تعلیق شد.
سعید آقاخانی و تیمش در تبلیغات قرعه کشی بانک سپه مرداد ۱۴۰۳
۱۴ مرداد ۱۴۰۳ نوبنیاد تهران ، دور دور پولدارها و تصادف منجر به مرگ حالا مست بودن یا نبودن بماند ( سرعت زیاد لکسوس )
وی با اشاره به جزئیات این تصادف افزود: در این تصادف، خودروی سواری لکسوس با خودروی پراید برخورد کرد که درپی آن خودروی پراید در اثر شدت این برخورد، چرخیده و با عابرپیادهای که در ایستگاه اتوبوس ایستاده بود؛ برخورد کرد.
رئیس اداره تصادفات پلیس راهور تهران بزرگ ادامه داد: شدت این برخورد به نحوی بود که هم راننده پراید و هم عابرپیاده بر اثر شدت جراحات در صحنه تصادف کشته شدند. این موضوع به تایید عوامل اورژانس نیز رسید. همچنین راننده و سرنشینان خودروی لکسوس نیز جراحات سطحی دیدند.
اصابت تیر ضدهوایی خودی سهواً به شاهرگ شهید عباس بابایی
به گزارش خبرگزاری دانشجویان ایران(ایسنا)، سرتیپ خلبان عباس بابایی، معاون عملیات فرماندهی نیروی هوایی ارتش جمهوری اسلامی ایران روز ۱۵ مرداد ۱۳۶۶ پس از انجام ماموریت در عراق و در حین بازگشت به خاک ایران در منطقه عملیاتی سردشت مورد شلیک پدافند خودی قرار گرفت و به شهادت رسید.
مرداد ۱۴۰۳ و اوج گرما ( حادثه شهربازی شخصی )
خوشبختانه با عنایت خداوند وتلاش کادر درمان عسل حالش بهتر شد اگرچه شرایط او چندان برای ترخیص مساعد نبود اما گرمای بیش از حد اتاق های بستری بیمارستان مدنی کرج شرایط را برای عسل دشوار کرده بود بنابراین تصمیم گرفتیم او را از بیمارستان به خانه ببریم .
در بیمارستان اتاق های بخش های درمانی کولر ها خاموش است و بیشتر مردم با پنکه های شخصی به داد بیماران خود رسیده اند و این مسله خیلی تعجب برانگیز است .
اجرای فایل با استفاده از متد Run و Open
اشعار تشییع جنازه اسماعیل هنیه در دانشگاه تهران مرداد ۱۴۰۳
مرگ بر سه ابلیس آمریکا اسرائیل و انگلیس
در حال حاضر که حدود ۴ روز از سکوت خبری جزئیات ترور اسماعیل هنیه و شوک بزرگ امنیتی در ایران می گذرد مشخص است که سربازان گمنام با جستجوی ترددهای محل اقامت و اطراف و محل شلیک موشک از کوهستان روبروی محل اقامت ایشان به دنبال افرادی هستند که بتوان ثابت کرد عوامل نفوذی ایرانی مطمئناً در این ترور دخیل بوده اند ، و گرنه ایشان بسیار به ایران سفر کرده بود و دلیلی برای محافظت و مراقبت بیش از اندازه نبود. ولی بالاخره از یک غفلت اسرائیل البته با زمینه چینی بهره برد.
نوشتاری متد Run که دارای آرگومان هایی است
Syntax
objShell.Run (strCommand, [intWindowStyle], [bWaitOnReturn])
intWindowStyle از نوع عددی است اگر صفر باشد پنجره در حالت Hide قرار می گیرد و پنجره دیگری فعال می شود.
bWaitOnReturn از نوع Boolean است یعنی False یا True می توانید قرار دهید یا عددی غیر 0 برای True : وقفه برای کامل شدن دستور قبل از ادامه اجرای wsh script.
strFile = """"c:\foldername\filename.accdb""""CreateObject("WScript.Shell").Run strFileOpen یکی از متدهای شئ Shell
CreateObject("Shell.Application").Open("C:\Temp\Book1.xlsx")
روش دیگر برای باز کردن یا پرینت گرفتن سند
.ShellExecute "application", "parameters", "dir", "verb", window
Key
application : فایلی که اجرا می شود( قید کردن نام اجباریست)
Parameters : آرگومان برای فایل های اجرایی
verb : عملیات برای اجرا ( runas/open/edit/print )
window : حالت نمایش پنجره ( عدد ۱ حالت معمول پنجره ، عدد صفر برای پنهان کرده پنجره و فعال کردن در پنجره دیگر ، عدد ۲ برای به حداقل رساندن سایزپنجره [ minimize ] ، عدد ۳ برای حداکثر کردن سایز پنجره ، عدد ۴ برای بازیابی یا Restore ، عدد ۵ برای حالت جاری ، عدد ۷ به حداقل رساندن / غیر فعال شدن ، عدد ۱۰ حالت پیش فرض )
روش دیگر برای باز کردن فایل استفاده از توابع ویندوزی است
برای ۳۲ بیت :
ShellExecuteA Lib "shell32.dll" ( ByVal hWnd As Long ,ByVal lpOperation As String,ByVal lpFile As String,ByVal lpParameters As String,ByVal lpDirectory As String,ByVal nShowCmd As Long) As Long
hWnd = 0
lpOperation = "open"
lpFile = Path + FileName
Others = vbNullString
اگر lpOperation را Null قرار دهید در زیر اشاره شده که پیش فرض عمل Open خواهد بود.
Null
The default verb is used, if available. If not, the "open" verb is used. If neither verb is available, the system uses the first verb listed in the registry.
برای باز کردن folder در آرگومان lpFile مسیر فولدر را بنویسید و بقیه را Null قرار دهید البته vbNullString
از FollwHyperlink هم که بسیار ساده و سریع هست هم می توانید بهره ببرید برای باز کردن فایل های اجرایی داکیومنت یا فولدر
مرداد ۱۴۰۳ در پی شهادت هنیه در اقامتگاهش در قلب ایران
«بنیامین نتانیاهو» نخست وزیر رژیم صهیونیستی با تایید اینکه اسرائیل در حال حاضر در بالاترین سطح آماده باش قرار دارد، گفت که هر طرفی که اقدام تهاجمی علیه این کشور انجام دهد بهای بسیار سنگینی را خواهد پرداخت.
یک لحظه غفلت مامورین امنیتی باعث تاوان از دست دادن رهبران سیاسی بزرگ خواهد شد ، آنجا که فکر کنی دشمن خوابه همونجا خفتت می کنن !!!
امام علی(ع) در خبطه سی و چهارم نهج البلاغه می فرماید: دشمن به شما حمله مى کند و شهرها را از دستتان خارج می سازد و شما به خشم نمی آئید! دیده دشمن براى حمله به شما خواب ندارد، ولى شما در غفلت و بى خبرى به سر می برید، شکست از آن آنانى است که دست از یارى یکدیگر برمی دارند.
باید از اسرائیل انتقام بگیریم اما قبل از هر انتقامی در داخل سرزمین های اشغالی - که لازم است - باید انتقام جنایت تهران را در تهران گرفت و این انتقام چیزی نیست جز عملیات وعده صادق 2 برای شناسایی، دستگیری و مجازات نفوذی های اسرائیل در همه سطوح و بی هیچ تعارف و ترحمی. فراموش نکنیم که الی کوهن جزو چند نفر اول حکومت وقت سوریه بود و در همین ایران خودمان، عامل ترور همزمان رئیس جمهور رجایی و نخست وزیر باهنر، کسی نبود جز جانشین شورای امنیت کشور، مسعود کشمیری!
۱۱ تیر ۱۴۰۳ ( شهادت هنیه در ۱۱ مرداد ۱۴۰۳ )
گزارش اقتصادنیوز، سردار حاجی زاده در جمع تعدادی از خانوادههای شهدای غزه گفت: آرزومند رسیدن فرصت «عملیات وعده صادق ۲» هستیم که نمی دانم تعداد موشکهای آن چقدر باید باشد.
طبق گفته بالا این آرزو محقق شد 
32 bit : Declare Function
64 bit : Declare Ptrsafe Function
#If VBA7 Then
Declare PtrSafe Sub...
#Else
Declare Sub...
#EndIf
خبرگزاری فارس و تسنیم از اعلام جرم دادستانی علیه اردشیر رستمی و علی ضیا (مجری صداوسیما) به دلیل اشاره آنها به موضوع همجنسگرایی خبر داد.
علی ضیا به بازی اخیر اردشیر رستمی در یک فیلم در نقش فرد همجنسگرا اشاره می کند و هر دو در این باره گفتگو می کنند. این برنامه با نام " با ضیا" در قالب مصاحبه ای است که در فضای اینترنت منتشر می شود.
خانم طلبه چرخنده بازیگر سابق سینما و تلویزیون اظهار داشت: مراقب باشید تا به لشکر حسین (ع) لبیک بگویید و مبادا وارد لشکر یزیدیان زمانه شوید، علی را بشناسیم، دین اسلام را مطالعه کنیم و بدانیم اگر دختران را درست هدایت نکنیم خودفروختگان لانه کرده در شبکههای معاند، این دختران را جذب مرام خود خواهند کرد.
جوکر ۲ احسان علیخانی --- فکر کنید مجید مظفری که در فیلمها و سریالهای مهم نقشهای جدی بازی میکرد، مجبورش میکنند با آهنگی از خواننده لسآنجلسی برقصد! اگر قرار بر ساخت رئالیتیشوست پس این همه سخیفبودن برای چیست؟ اینکه دیالوگهای جنسی گفته شود یا حرکات اروتیک برای خنداندن یکدیگر استفاده شود چه نکته مثبتی برای مخاطب کودک و نوجوان دارد؟ در جوکر آنقدر از الفاظ رکیک و فحش استفاده میشود که حتی دیدن آن با خانواده امکان ندارد. انگار شوخیهای جنسی را از کف خیابان جمع کردهاند و حالا در این برنامه از آنها استفاده میکنند.
تنظیم کوئری بر اساس عبارت Sql کاربر
خدا را شاکریم که در ایران امنیت وجود دارد و سربازان گمنام امام زمان هشیار و بیدار !
امنیت ما نقض شده است
اشعار تشییع جنازه اسماعیل هنیه در دانشگاه تهران مرداد ۱۴۰۳
مرگ بر سه ابلیس آمریکا اسرائیل و انگلیس
Public Sub SetQuery(query_name As String, query_string As String)
Application.CurrentDb.QueryDefs(query_name).SQL = query_string
End Subمی توان یک کوئری با نام دلخواه در دیتابیس ایجاد کرد و هر بار در کد Vba عبارت Sql را به آن ارسال کرد مثل کد بالا البته اگر به زبان Sql و Join زدن مسلط هستید وگرنه کوئری بسازید.
می توان یک کوئری موقت ساخت که در دیتابیس ذخیره نشود در کد زیر یک کوئری با نام qdfNew ساخته و بعد حذف میشود.
With db
Set qdfNew = .CreateQueryDef("NewQueryDef", _ "SELECT * FROM Categories")
' Open Recordset and print report.
' Delete new QueryDef because this is a demonstration. .QueryDefs.Delete qdfNew.Name
End With
برای مراجعه به شئ QueryDef در یک مجموعه با استفاده از تنظیم شماره ترتیبی خودش یا با ویژگی نام آن ، یکی از روش های نوشتاری زیر را استفاده کنید :
QueryDefs(0)
QueryDefs("name")
QueryDefs![name]
می توانید با استفاده از متغیرهای شئ که به آنها اشاره کرده اید به اشیاء QueryDef موقت مراجعه کنید.
آخرین روز عمر شهید اسماعیل هنیه در تهران مراسم سوگند پزشکیان در مجلس شورای اسلامی ... بهارستان ... ایشان حدود ۲ بامداد روز بعدش با موشک هدایت شونده در اقامتگاه ویژه جانبازان ( شمالغرب تهران ) دعوت حق را لبیک گفت و همچنان سپاه و دستگاه های ا منیتی شگفت زده از این حمله نابهنگام و غافلگیر کننده !!!
اولین جزئیات از ترور اسماعیل هنیه در تهران: ترور حدود ساعت ۲ نیمه شب اتفاق افتاد / هنیه در یکی از اقامتگاههای ویژه جانبازان در شمال تهران مستقر بودکه با اصابت پرتابهای از هوا ترور شد
دیدبان ایران
۵ ساعت پیش
گزارش اقتصادنیوز به نقل از مهر، رضا کارگر مدیر روابطعمومی شرکت فرودگاهها و ناوبری هوایی ایران ضمن تکذیب شایعه ممنوعیت پروازی در تهران به دلیل برگزاری مراسم تشییع پیکر شهید «اسماعیل هنیه»، گفت: هیچگونه محدودیتی برای برقراری پروازهای ورودی و خروجی فرودگاه مهرآباد نداریم.
وی افزود: این محدودیتهای تنها برای پروازهای آموزشی، هلیکوپتر و باشگاههای هوانوردی وجود دارد.
بنا به روایت رسانه های خارجی موشک NLOS ضد تانک از داخل ایران شلیک شده و دقیقاً هدف ، اتاق محل اقامت وی بوده که یکی بر پیکر ایشان اصابت کرده .
نیویورک تایمز مدعی شده بمبی از چند ماه پیش در اتاق و زیر تخت جاسازی شده یعنی اگر واقعیت داشته باشد که احتمالش کم است از کجا می دانستند که ایشان در طبقه چهارم اقامت خواهند داشت ؟؟؟؟
به برخی روایت ها مقصر تیم حفاظتی اسماعیل هنیه است که ناخواسته منجر به ردیابی گوشی ها و پیدا کردن محل شده ، یاد هفت سر اژدها افتادم که نفر اصلی سریال که همش در حال کشیدن سیگار و مشروبات آبی بود چقدر برای ردیابی نشدن از نرم افزارهای پیشرفته خارجی استفاده کرده بود ولی بالاخره نفوذ کار دستش داد !!! ... در آخر گفته شد بد افزار از طریق واتساپشان که در ایران فیلتر است گوشی ایشان را آلوده کرده و نهایتاً ردیابی مکان و ارسال موقعیت برای شلیک پرتابه
برخی منابع خارجی و داخلی از جمله سید حسن نصرالله، روش ردزنی اسماعیل هنیه را نفوذ به گوشی موبایل او اعلام کردند. در تصاویری که به تازگی از هنیه در کنار نوههایش منتشر شده مشخص است که هنیه از گوشی آیفون استفاده میکرده که یک بیاحتیاطی بزرگ برای شخصی همچون هنیه است. آیفون پیش از این به سفارش اف بی آی برای رصد یک متهم، توسط یک شرکت اسرائیلی هک شده بود و اسرائیل دسترسی قابل توجهی به این نوع گوشی تلفن همراه دارد.
۱۵ مرداد ۱۴۰۳
تشدید احتمال حمله ایران به اسرائیل به دنبال ناکامی تلاشها برای آرام کردن اوضاع/ ترامپ: شنیدهام که امشب حملهای از سوی ایران علیه اسرائیل انجام خواهد شد/ العربیه: ایران قرار است برای اولین بار موشک قدرتمند خرمشهر راعملیاتی و علیه اسرائیل استفاده کند / وزیر امور خارجه مجارستان روز دوشنبه در تماس تلفنی با کاتز وزیر امور خارجه اسرائیل به وی گفت که ایران اوایل امروز به مجارستان اطلاع داده است که در پاسخ به ترور اسماعیل هنیه، رئیس دفتر سیاسی حماس در تهران، به اسرائیل حمله خواهد کرد.
ساعت صفر (آلمانی: Stunde Null ، تلفظ [ˈʃtʊndə nʊl]) اصطلاحی است که به کاپیتولاسیون در نیمهشب ۸ مهٔ ۱۹۴۵ و هفتههای بلافاصله پس از آن در آلمان اشاره دارد. برنامههای سیاسی آدولف هیتلر، رهبر آلمان نازی، یک جنگ جهانی به بار آورد و اروپای شرقی و مرکزی را ویران و فرسوده به جا گذاشت.
خاخام «ماتیتیاهو گلازرسون» ۸۲ ساله که بیش از ۳۰ کتاب مذهبی نوشته و به پیشگویی از روی کدهای مخفی تورات شهره است، در مدعی شده بود بر اساس خوانش کدهای رمزی که در آیات تورات وجود دارد، ایران به اسراییل حمله و این کشور را نابود خواهد کرد.
۱۶ مرداد ۱۴۰۳ ( سه شنبه )
به گزارش رکنا، مدیرعامل شهر فرودگاهی امام خمینی(ره) گفت: امروز (سهشنبه، ۱۶ مردادماه) خبر صدور نوتام هشدار امنیت پروازی برای غرب ایران توسط سازمان هواپیمایی کشور شایعه شده که چنین هشدار وجود ندارد.
طبق اطلاعات منتشر شده از منابع روسی، سیستمهای هواپیمای جنگنده F-35 نیروی هوایی آمریکا به دلیل تداخل ایجاد شده توسط سیستمهای جنگ الکترونیک مورمانسک BN از کار خواهد افتاد. با توجه به اینکه اسرائیل تنها کشور جهان به جز ایالات متحده آمریکا است که از این جنگنده فوق پیشرفته با حداکثر دسترسی نظامی بهره میبرد، بنابراین کاملا مشخص است که یکی از اهداف درخواست احتمالی ایران برای به خدمت گرفتن مورمانسک، تقابل با سیستم جنگ الکترونیک جنگنده F-35 است.
رئیس مجلس نمایندگان آمریکا گفت: بایدن باید فوراً تمام تسلیحاتی که از ارسال آنها خودداری کرده یا به تأخیر انداخته است، در اختیار اسرائیل قرار دهد تا بتواند از مردم خود دفاع کند و ایران را بازدارد و روشن کند که اگر ایران در هر گونه حمله ای شرکت کند یا از آن حمایت کند، پیامدهای اقتصادی، نظامی و بین المللی مشخص و قاطعی خواهد داشت.
درخواست مکرون از پزشکیان درباره پاسخ به اسرائیل/پزشکیان : هرگز در مقابل تعدی به منافع و امنیت خود سکوت نخواهیم کرد.
گزارش «انتخاب»؛ وزارت هوانوردی مصر اعلام کرد: ایران برای همه شرکتهای هواپیمایی غیرنظامی که از حریم هوایی این کشور عبور میکنند، در مورد انجام رزمایشهای نظامی در روزهای ۷ و ۸ ( چهارشنبه و پنج شنبه ۱۸ مرد اد ۱۴۰۳ ) اوت هشدار داده است.
حسن بهشتی پور درباره نحوه بهترین پاسخ برای ترور اخیر اسماعیل هنیه، بهترین راهبرد را زدن ضربه ای کاری به یکی از سران اصلی و مسئولین جنایتکار رژیم صهیونستی دانست و اضافه کرد: دقیقا به همان شکلی که رژیم صهیونستی عملیات خود را انجام داد ما هم باید بتوانیم عملیات مشابهی را انجام بدهیم.
۱۹ مرداد ۱۴۰۳ : ترور عضو ارشد حماس در لبنان
حماس اعلام کرد که سامر الحاج در جریان حمله ددمنشانه رژیم صهیونیستی به شهر صیدا در جنوب لبنان که عصر امروز انجام شد، به شهادت رسیده است.
«سعدالله زارعی» کارشناس مسائل منطقه در پیش از خطبههای نماز جمعه این هفته تهران، اظهار داشت: اگر اسرائیل بتواند عملیات ترور را همانند تخریب بیمارستانهای غزه عادی سازی کند، شاهد تکرار عملیاتهای ترور در سطح جهان اسلام علیه رهبران مقاومت خواهیم بود، لذا پاسخ به عملیات ترور رژیم اسرائیل یک الزام و اجبار برای سر جا نشاندن رژیم صهیونیستی است.
۲۰ مرداد ۱۴۰۳
همه تأسیسات حیاتی و استراتژیک اسرائیل توسط ایران و برای پاسخ شناسایی شده؛ زمان نهایی حمله با نظر مقامات سیاسی و نظامی تعیین خواهد شد ؛ اعتمادآنلاین ۴ ساعت پیش
هدف : کوچاندن اجباری
در کشتار جدید رژیم صهیونیستی در مرکز شهر غزه در بامداد امروز شنبه بیش از ۱۰۰ نفر شهید و دهها نفر زخمی شدند.
«انس الشریف»، خبرنگار الجزیره در غزه گزارش داد که اشغالگران مدرسه «التابعین» در محله الدرج را بعد از نماز صبح بمباران کردند که با توجه به حضور بین ۴۰۰۰ تا ۵۰۰۰ نفر در مدرسه واقع در خیابان النفق ممکن است تعداد تلفات افزایش یابد.
اسرائیل در هراس !!!
«سیما کادمون» تحلیلگر روزنامه صهیونیستی «یدیعوت آحارنوت» در گزارشی نوشت: در طول جنگ خلیج فارس، یک تحقیق نشان داد که ۴۴ درصد ساکنان تل آویو، شبها در خانه خود نمیخوابند.
۲۱ مرداد ۱۴۰۳
آرمان ملی با اشاره به شایعات استعفای ظریف در شبکه اجتماعی ایکس نوشت: به نظر میرسد که اگر استفعا یا حتی قهری در کار باشد در اعتراض به لیست وزرای پزشکیان است چرا که برخی کاربران با هشتک ظریف نباشه ما هم نیستیم، توییت و به لیست مورد بحث اعتراض کردهاند.
نمایندگی ایران در سازمان ملل افزود: «امنیت و حاکمیت ملی ما در اقدام تروریستی اخیر رژیم اسرائیل نقض شده است. ما حق دفاع مشروع داریم و این ارتباطی با آتشبس غزه ندارد؛ اما امیدواریم پاسخ ما در زمان و بهگونهای صورت گیرد که لطمهای به آتشبس احتمالی نزند.»
۲۲ مرداد ماه ۱۴۰۳ و همچنان منتظر زمان صفر حمله نه تنها ایران بلکه کل دنیا
سفر خارجی ممنوع!
سخنگوی ارتش رژیم صهیونیستی گفت: بر پایه ارزیابیهای اطلاعاتی سفر کلیه اعضای نیروهای مسلح اسرائیل به خارج از کشور ممنوع شد.
روزنامه عبریزبان «یدیعوت آحارونوت» اخیرا در گزارشی اعتراف کرده که صهیونیستها منتظر حملات ایران و حزب الله هستند، و «این دوره انتظار برای اسرائیل ویرانکننده و ناامیدکننده است».
از سوی دیگر و در بحبوبه گزارشها از بیم و هراس رژیم صهیونیستی از احتمال پاسخ تلافیجویانه ایران و حزبالله به دلیل ترور شهیدان اسماعیل هنیه و فواد شکر، «یوآو گالانت»، وزیر جنگ این رژیم در سخنانی مدعی شد: «اسرائیل تواناییهای زیادی دارد
قیمت پایه و مالیات و عوارض همین مالیات و عوارض رو اگر جمهوری اسلامی از عبور پروازهای خارجی از آسمان ایران بگیره ۹۰ درصد فقرای ایران ثروتمند خواهند شد
ارتش اسرائیل از ترس انتقامجویی ایران با صدور دستور جدیدی از ماندن تمامی سربازان عادی در گرجستان و آذربایجان که نزدیک به ایران هستند، جلوگیری کرد.
پایگاه خبری «العربیه» در اینباره نوشت: فرمانده نیروی هوایی اسرائیل، با پیشبینی حمله ایران، سفر خلبانان نیروی هوایی به خارج از کشور را لغو کرد.
پس از جنایت رژیم صهیونیستی در غزه در اتفاق ناگوار مدرسه التابعین نیروهای امدادی هر 70 کیلو گرم از بدن اجساد را بدلیل نامشخص بودن افراد یک شهید در نظر گرفتند.
۲۳ مرداد ۱۴۰۳
در حالی که رهبران اسرائیل بر سر شکاف های شدید با هم اختلافاتی بنیادین دارند و در اظهارات خود با هم درگیر می شوند؛ حمله انتقام جویانه ایران در حال نزدیک شدن است و جامعه اسرائیلی هم روزهای دوشنبه و سه شنبه (دیروز و امروز) برای شوم ترین روز تاریخ یهود روزه می گیرند.
بزالل اسموتریچ» وزیر دارایی کابینه رژیم صهیونیستی خواستار رد مذاکرات برای برقراری آتش بس شده و گفته است: نباید در دام کشورهای میانجی بیفتیم که میخواهند توافقنامه تسلیم شدن را بر ما تحمیل کنند.
او افزوده است: از نتانیاهو میخواهم با توافق پیشنهادی جدید درباره مبادله اسرا موافقت نکند چرا که زمان توقف جنگ فرا نرسیده و برقراری هرگونه آتش بس باید منوط به نابودی حماس باشد.
اسرائیل: به خاک ایران حمله میکنیم حتی اگر حمله جمهوری اسلامی تلفاتی نداشته باشد/ ایران اینترنشنال/ ۲۰ ساعت پیش
عباس: احتمال حمله تلافیجویانه ایران به اسرائیل در ساعات آینده وجود دارد/ایرنا/۱۴ ساعت پیش ...... این پیش بینی هم غلط بود.
واقعاً ما ایرانیها هم منتظریم شب حمله چه زمانیست فقط دلهره نداریم 
از شهادت هنیه چندین هفته می گذرد . لامصب بزن و خیال همه رو راحت کن مرگ یکبار شیون هم یکبار !!!
صهیونیسم آینده تاریک و اقتصاد وحشتناکی را تجربه خواهد کرد . صهیونیست در آستانه فروپاشی است.
میگن اسرائیل با سر نوشت و واقعیتی روبرو خواهند شد که هیچ روزی انتظارش را نداشته.
شهرک های موشکی چند شعبه در دل کوه های لبنان
عبدالسلام، فرزند اسماعیل هنیه به العربیه فارسی گفت: موشک، تلفن همراه پدرم را ردیابی کرده بود؛ این موشک هدایتشونده از طریق دنبالکردن تلفن همراهی که در اتاق پدرم و در نزدیکی سر او قرار داشت، هدایت شد.
وی افزود: پدرم در آن روز، مدام از تلفن خود تماس میگرفت و تا ساعت ۲۲.۱۵ شبی که شهید شد، از آن استفاده میکرد.
۲۶ مرداد ماه ۱۴۰۳
اسرائیل: انتظار داریم غرب هم در دفاع هم در حمله به ایران به ما کمک کند / ایران اینترنشنال / ۵ ساعت پیش
فرمانده پیشین نیروهای آمریکایی در منطقه (سنتکام) میگوید حمله ایران برای مجازات اسرائیل قطعی است اما این بار بر خلاف عملیات ماه آوریل احتمالاً متحدان ایران هم در عملیات انتقامی شرکت خواهند کرد.
۳۱ مرداد ۱۴۰۳
۲ شهریور ۱۴۰۳
فرماندهی مشترک عملیات عراق با صدور بیانیهای، ضمن تأیید خبر درگیری میان نیروهای ارتش و گروه مسلح «جند الامام»، از گروههای ائتلاف حشد الشعبی، تأکید کرد که این درگیری «مراسم زیارت اربعین را دچار مشکل نمیکند».
خبرگزاری فرانسه هم گزارش داده است که درگیری در میان جمع بزرگی از زائران در نزدیکی یکی از ایستهای بازرسی ارتش عراق روی داد و طی آن دستکم شش تن از نیروهای حشد الشعبی دخیل در واقعه بازداشت شدند.
«سابرینا سینگ» معاون سخنگوی وزارت دفاع آمریکا با اشاره به ورود ناوگروههای این کشور به خاورمیانه، گفت که حضور دو ناو هواپیمابر آمریکا در منطقه، پیامی قوی درباره بازدارندگی به ایران در صورت حمله به اسرائیل ارسال میکند.
بالاخره فواد شکر هم در دام ترور افتاد. ( بعد از ترور نافرجام چندین رو ز قبل ) - از ترور اسماعیل هنیه و هک گوشی ایشان حزب الله درس نگرفتند !!!
گفتنی است که صبح امروز یکشنبه ۲۵ آگوست ۲۰۲۴ ( اربعین - ۴ شهریور ۱۴۰۳ ) حزب الله از واکنش اولیه به حمله ددمنشانه به ضاحیه بیروت که طی آن فواد شکر فرمانده بارز حزب الله به شهادت رسید، خبر داد.
نتانیاهو: آمادگی حزب الله برای حمله به اسرائیل را رصد کرده بودیم / ارتش هزاران موشک که به سمت شمال اسرائیل هدایت شده بود، منهدم کرد / بر بازگرداندن ساکنان شمال اسرائیل به منازلشان اصرار داریم / هر کس که به ما حمله کند، به او حمله خواهیم کرد
ساویت تاکید کرد: طبق دستورات بایدن، مقامات آمریکایی با همتایان اسرائیلی خود به طور مداوم رایزنی میکنند و از حق اسرائیل در دفاع از خود حمایت خواهیم کرد و در راستای ثبات منطقه حرکت خواهیم کرد.
خب مشخص شد که حمله به اسرائیل بخاطر مسائل امنیتی زائران مسیر کربلا بعد از اربعین اتفاق خواهد افتاد ( بخاطر حمایت آمریکا در مشارکت دفاع از اسراعیل که حتمیست) ولی زودتر از ۲۸ صفر نخواهد بود.... باید از زمان شروع حمله تمهیدات لغو پروازهای داخلی بمدت ۲۴ ساعت و پرواز جنگنده های فانتوم بر فراز مرزها جهت بررسی هر گونه اقدام سوء از طرف اسرائیل و هم پیمانانش انجام گیرد تا درگیری به داخل ایران کشیده نشود. چیزی که از شواهد و قرائن و کری خوانی ها مشخص شده در صورت موشک باران اسرائیل حمله به ایران دور از انتظار نخواهد بود!!!
۸ شهریور ۱۴۰۳
In Iran, the method of assassination was the subject of rumor and dispute. The Tasnim News Agency, the media outlet for the Guards, reported that witnesses said an object like a missile had hit the window of Mr. Haniyeh’s room and exploded.
But the two Iranian officials, the members of the Guards briefed on the attack, confirmed that the explosion had taken place inside Mr. Haniyeh’s room, and said that an initial investigation showed that the explosives had been placed there sometime in advance.
They described the attack’s precision and sophistication as similar in tactic to the remote controlled A.I. robot weapon that Israel used to assassinate Iran’s top nuclear scientist Mohsen Fakhrizadeh in 2020.
۱۵ مرداد ۱۴۰۳
به گزارش تابناک؛ یک منبع ارشد در شورای عالی امنیت ملی ایران به الجریده فاش کرده که یک هیئت امنیتی آمریکایی با میانجیگری عمان به ایران سفر کرده تا پیام «آرامش و هشدار» را به تهران برساند تا از جنگ بزرگی که نخست وزیر اسرائیل برنامهریزی کرده جلوگیری شود.
در عجیبترین بخش این گزارش الجریده آمده است: این هیئت فهرستی حاوی «اسامی ۱۰ نفر از عوامل موساد» در داخل ایران را که آمریکاییها معتقدند مستقیم یا غیرمستقیم در این ترور دست داشتهاند، به عنوان حسن نیت به طرف ایرانی ارائه کرده است.
Spike
امام علی(ع) در خبطه سی و چهارم نهج البلاغه می فرماید: دشمن به شما حمله مى کند و شهرها را از دستتان خارج می سازد و شما به خشم نمی آئید! دیده دشمن براى حمله به شما خواب ندارد، ولى شما در غفلت و بى خبرى به سر می برید، شکست از آن آنانى است که دست از یارى یکدیگر برمی دارند.
رئیس پیشین ستاد مشترک سپاه پاسداران انقلاب اسلامی به جماران گفت: قطعا آمریکا در برنامه ترور اسماعیل هنیه همکاری نزدیکی را با رژیم صهیونیستی هم در حوزه عملیاتی و هم اطلاعاتی انجام داده است.
رژیم صهیونیستی با انجام این ترور می خواهد به گروههای فلسطینی نشان دهد که در هیچ جای دنیا مکان امنی برای حضور و زندگی ندارند و همانطور که نوار غزه برای مردم آن ناامن است، سایر کشورها هم برای کسانی که مخالف اشغال هستند، نا امن است.
زبان Sql در فیلتر کردن رکوردها ( کوئری )
اشعار تشییع جنازه اسماعیل هنیه در دانشگاه تهران مرداد ۱۴۰۳
مرگ بر سه ابلیس آمریکا اسرائیل و انگلیس
مروری بر نوشته های قدیمی !!!
برای درک نوشتاری کد SQL باید کارکرد عملگرهای منطقی را بدانید . با جستجوی ساده می توانید این کار را انجام دهید .
با رفتن به وب سایت W3School می توانید Sql نویسی انجام دهید
در تصویر زیر جدول Orders فیلد OrderID آن از شماره 10248 تا 10443 پر شده
از Val به این علت استفاده شده چون دیتا تایپ فیلد OrderID عددی است ( int )
Dim MyValueMyValue = Val("2457") ' Returns 2457.MyValue = Val(" 2 45 7") ' Returns 2457.MyValue = Val("24 and 57") ' Returns 24.
فرض کنید دو تکست باکس دارید که میخواهید فقط اعدادی بین اینها لیست شوند ، در صورت وجود نداشتن یا Null شدن از فیلتر در بیاید و کل رکوردها نمایش داده شوند یا اگر تکست باکس اول پر شده بود اعداد بالاتر و خودش یا اگر تکست باکس دوم فقط پر شده بود اعداد پائین تر از خودش فهرست شوند.
عبارت Sql زیر رکوردهایی از جدول Orders را با تعیین شرطی نمایش می دهد.
عبارت زیر را در لینک بالا باکس Sql Statement جایگزین کرده و امتحان نمائید.
Select * from Orders Where (orderID>=Val(10440) or False) And (OrderID<=Val('') or True)
لینک مورد نظر برای کسانیکه به سیستم دسترسی ندارند مناسب است شما می توانید Sql نویسی را یاد بگیرید .
عبارت Sql زیر را نیز در باکسِ لینک W3Shool قرار دهید . رکوردهایی که دارای OrderID بزرگتر از 10280 بوده و شرط دیگر اینکه CustomerID آن بین 70 و 72 است را لیست میکند
Select * from Orders Where ((orderID>=Val(10280) or False) And (OrderID<=Val('') or True)) And ((CustomerID>=Val(70) Or False) And (CustomerID<=Val(72) Or False))
طبق تصویر زیر 8 رکورد یافت و فهرست شد.
Select * from Orders Where ((orderID>=Val('') or True) And (OrderID<=Val('') or True)) And ((CustomerID>=Val(88) Or False) And (CustomerID<=Val('') Or True))
عبارت بالا نیز تنها رکوردهایی از جدول Orders را نمایش میدهد که دارای CustomerID بالاتر از و خود 80 باشد.
اگر چندین باکس برای فیلتر داشته باشید ارزش این همه عبارت نویسی را ندارد مخصوصا اگر چندین فرم مجبور باشید در پایگاه داده بسازید در این مواقع باید از یک ماژول استفاده کنید که بتوانید در هر فرمی آن را فراخوانی کنید.
در مورد True یا False هایی که در عبارات ذکر شده باید گفت که منظور از آنها در اصطلاح عامیانه خالی بودن یا نبودن تکست باکس ها در فرم است . اگر تکست باکس Null باشد نتیجه تابع ایزنال True و اگر تکست باکس درونش پرشده باشد False است.
با Between نمی توان اینچنین مانورهایی را داشت در نتیجه از عملگر کوچکتر و بزرگتر استفاده کردیم !!!
اگر بخواهید در Query Builder انجام دهید و با Between برای جستجوی بین دو تاریخ :
فرمی تهیه شده که دارای دو TextBox برای ورودی تاریخ است بعد از زدن باتن Show Orders کوئری نمایش داده خواهد شد
در کوئری ورودی زیر در ردیف criteria برای فیلد OrderDate ذکر می شود :
کوئری همچنین خالی بودن باکس ها را بررسی میکند ( IsNull ) ، حتی با خالی بودن یک باکس کوئری تمام رکوردها را نمایش می دهد. یا از فیلتر تاریخ در می آید.
همانطور که در تصویر می بینید آدرس دهی تکست باکس در فرم مربوطه ( فرم باز ) در سر ستون قرار داده شده و در قسمت Or ( پائین Criteria ) و زیر همان ستون تابع IsNull نوشته شده است.
در همین قسمت Query Design می توانید به Sql آن هم دسترسی داشته باشید که متوجه شوید ساختار نوشتاری را اکسس چه داده که یاد بگیرید. ولی عملگرهای منطقی را حتما یاد بگیرید هم And هم Or و هم Null
اگر شرطی را زیر هم بنویسید ( در یک Row نباشد ) به معنای Or است و اگر در یک ردیف بنویسید در زبان Sql به معنای And در نظر گرفته می شود و اگر حتی یک کدام True یا موجود باشد کوئری خالی نمایش داده می شود.چون نتیجه False خواهد بود در عملگر And
Form.Requery Method
The Requery method updates the data underlying a specified form by requerying the source of data for the form.
Update در زبان Sql مخصوص اکسس
Update با مقادیری از فیلدهای داخل جدول دیگر
ترجمه زبان sql بالا :
فیلدهای city و state جدول tblAddress را بروز رسانی کن در جوین یا اتصال با جدول tblZipCodes بصورتیکه داده فیلدهای ZipCode دو جدول tblAddress و tblZipCodes با هم یکی باشند . در صورت match شدن فیلد ZipCode دو جدول مقادیر فیلدهای city و state از جدول tblZipCodes در فیلدهای city و state جدول tblAddress قرار خواهند گرفت . بنابراین شرط اینه که ZipCode هر دو جدول با هم تطابق داشته و همینطور مقدار فیلد Country شامل us باشد.
۷ مرداد ۱۴۰۳ ( تجاوز به لبنان )
به گزارش گروه سیاسی خبرگزاری علم و فناوری آنا، جنگندههای رژیم اشغالگر قدس، شهرک شیحین در جنوب لبنان را بمباران کردند.
براساس این گزارش، وزیر خارجه لبنان امروز (یکشنبه) گفت ما از واشنگتن خواستهایم که با توجه به تنشهای اخیر، اسرائیل را به خویشتنداری ترغیب کند.
بوحبیب همچنین اظهار داشت، هرگونه حمله گسترده از سوی رژیم صهیونیستی به جنگ منطقهای منجر خواهد شد.
رئیس کل دادگستری استان البرز با اشاره به آمار غیررسمی که از حضور بیش از ۳۰۰ هزار اتباع و مهاجرین مجاز و غیرمجاز در استان حکایت دارد، گفت: جمعیت اتباع در استان البرز به اندازه یک شهرستان شد.
فرم Login و استفاده از تابع DLookup در اکسس
Private Sub Form_Load()
InsideHeight = 4000
InsideWidth = 6000
Me.tb_ID = Null
Me.tb_pwd = Null
Me.tb_ID.SetFocus
End Sub
Private Sub frm1Btn_Click()
If IsNull(Me.tb_ID) Or IsNull(Me.tb_pwd) Then
MsgBox "You must enter password and login ID.", vbOKOnly + vbInformation, "Required Data"
Me.tb_ID.SetFocus
Exit Sub
End If
If Me.tb_pwd.Value = DLookup("[Login_Pwd]", "login_tbl", "[Empl ID]='" & Me.tb_ID.Value & "'") Then
If DLookup("[User_Type]", "login_tbl", "[Empl ID]='" & Me.tb_ID.Value & "'") = "Admin" Then
DoCmd.openForm "admin_menu"
DoCmd.Close acForm, "login", acSaveNo
Else
DoCmd.openForm "user_menu"
DoCmd.Close acForm, "login", acSaveNo
End If
Else
MsgBox "Password or login ID incorrect. Please Try Again", vbOKOnly + vbExclamation, "Invalid Entry!" Me.tb_pwd.SetFocus
End If
End Sub
مثال های زیر را ببینید :
DLookUp ( "شرط","نام جدول","نام فیلد مورد جستجو")
تابع زیر یک را بر میگرداند چون دیتا تایپ از نوع متنی است لذا 001 در داخل تک کوتیشن می بایست قرارداده شود
DLookUp("Login_Pwd","login_tbl","[Empl ID]='001'")
تابع زیر عدد ۲ را برمی گرداند ( از فیلد Empl ID ) ، اگر بیش از یک نتیجه باشد فقط اولین آن برگردانده میشود
Dlookup("[Empl ID]","login_tbl","User_Type='User'")
تابع چند شرطه زیر عدد ۲ را برمیگرداند ، شروط : دیتا در فیلد User_Type همان User و فیلد Login_Pwd برابر ۲ باشد
Dlookup("[Empl ID]","login_tbl","User_Type='User' AND Login_Pwd='2'")
شرط از فرم دیگری
Dlookup(“[Empl ID]”,”login_tbl”,”User_Type='”&Forms![Form1]!tb1&”‘”)
مرداد ۱۴۰۳
در پاستیلهای باز و فله از ژلاتینهای خوکی و حیوانات غیرحلال دیگر چون ماهی غیرحلال، گربه و سگ استفاده شده است.
حسین رستگار، رییس مرکز تحقیقات حلال سازمان غذا و داروی وزارت بهداشت گفت: «در پاستیلهای باز و فله از ژلاتینهای خوکی و حیوانات غیرحلال دیگر چون ماهی غیرحلال، گربه و سگ استفاده شده است.»
او افزود تنها در پاستیلهایی که از این سازمان مجوز دارد، از «ژلاتین حلال» استفاده شده است.