در رکوردست میتوان به دستکاری داده ها دست یافت مثل حذف ، اضافه یا ویرایش رکورد
رکوردست نوع 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
استفاده از لوپ تو در تو برای استخراج نام فیلدها و مقادیرش ، رکورد به رکورد.
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
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 شود.
ایندکس می تواند تغییر کند ( مثلا در حذف جدول و دوباره ایجاد کردن با همان نام ) پس بهتر است نام فرم ذکرشود
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
البته این سایت سایت تولیدی نیست پس اسرائیل رکب خورد
۷ آبانماه ۱۴۰۳
در کوئری در قسمت شرط یا 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)
۱۰ مهر ۱۴۰۳ حوالی ساعت ۲۰:۳۰ پرتاب ۲۰۰ موشک بالستیک به اسرائیل ( کمتر از ۱۲ دقیقه )
مهر ۱۴۰۳
باز کردن فایل مشخص شده و بازگشت یک شئ 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)
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
در تصویر زیر کاملاً مشهود است ( تمام داده ها در جدول 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))
امکانات تحصیلی دانشگاه صداوسیما امکانات جامعی است هم از حوزه رفاهی خوابگاه دانشگاه رایگان است که در اختیار دانشجویان روزانه قرار میگیرده، یک کمک هزینه تحصیلی در اختیار دانشجویان قرار میگیرد که مبلغ آن امسال دو برابر شده است، یک میلیون و ۴۰۰ هزار تومان برای دانشجویان مجرد، دو میلیون و ۵۰۰ هزار تومان برای دانشجویان متاهل و برای دانشجویان نخبه هم که رتبه برتر کشوری دارند سه میلیون و ۵۰۰ هزار تومان کمک هزینه تحصیلی به صورت ماهیانه پرداخت می شود، تغذیه هم در همه روزهای هفته در اختیار دانشجویان است امکانات ورزشی سالن چند منظوره و اینترنت رایگان و تمام امکاناتی که دانشجو نیاز دارد در طول تحصیل در اختیار دانشجویان قرار میگیرد.
وی گفت: در تمام رشته ها به جز رشته کاردانی فنی الکترونیک که از داوطلبان مرد دانشجو می گیرد، هم از داوطلبان خانم و آقا دانشجو می پذیرد. در رشته کاردانی فنی الکترونیک اتفاقی که امسال نخستین بار افتاد این است که دانشگاه براساس سوابق تحصیلی هم دانشجو میپذیرد داوطلبانی که دیپلم دارند منتهی در کنکور شرکت نکردند این امکان وجود دارد از ۱۴ شهریور تا ۱۸ شهریور ثبت نام کنند در سایت سنجش و براساس سوابق تحصیلی مثل کاردانی فنی الکترونیک دانشگاه صداوسیما را انتخاب کنند.
قبل از کار با زبان 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 یک 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 با همان پارامترهای دریافت شده توسط رویه پنجره فراخوانی می شود.
حمله به اسرائیل در پی ترور اسماعیل هنیه در منطقه زعفرانیه تهران زودتر از ۲۸ صفر نخواهد بود ( دلایل امنیتی مخصوصا راهیان کربلا و شلوغ بودن مرزها )
درخواست مبینا نعمت زاده و موافق مسعود پزشکیان با حضور بدون کنکور در دانشکده پزشکی با واکنش تند مردم همراه شد.
برای شئ TableDef که جدول لینک شده را نشان می دهد ، تنظیم پراپرتی Connect شامل یک یا دو قسمت است ( مشخص کننده نوع دیتابیس و مسیری به دیتابیس یا پایگاه داده ) ، هر کدام از اینها با semicolon ختم می شود. مسیر جدول مسیر کامل برای دایرکتوری نگهدارنده فایل های پایگاه داده است و بایستی با نشانگر= DATABASE قبل از آن باشد.
.Connect="Ms Access;PWD=" & Pass & ";DATABASE=..."
برای لوپ زدن در جداول و گرفتن پراپرتی Name آنها می توان از مجموعه Tabledefs استفاده کرد ، شماره ایندکس جداول ZeroBase است. پراپرتی Count از مجموعه TableDefs تعداد ( number ) شئ ها در مجموعه مشخص شده را برمی گرداند و Read-only است.
Application.RefreshDatabaseWindow
Alternative :
CurrentDb.TableDef.Refresh
?CurrentDb.TableDefs(0).RecordCount
۵ شهریور ۱۴۰۳
۴ ساعت پیش · توهین به مهسا امینی در تلویزیون؛ «نفله شده دختر کرد سنی» (فیلم) ... این استاد دانشگاه گفت: در اعتراضات سال ۱۴۰۱، پیش بینی دشمن این بود که وقتی این
۱۸ مرداد ۱۴۰۳
۲ ساعت پیش · نخست وزیر اسرائیل تهدید کرد: حزبالله باید به عواقب حمله به اسرائیل و شروع یک جنگ گستردهتر فکر کند.
حسن بهشتی پور درباره نحوه بهترین پاسخ برای ترور اخیر اسماعیل هنیه، بهترین راهبرد را زدن ضربه ای کاری به یکی از سران اصلی و مسئولین جنایتکار رژیم صهیونستی دانست و اضافه کرد: دقیقا به همان شکلی که رژیم صهیونستی عملیات خود را انجام داد ما هم باید بتوانیم عملیات مشابهی را انجام بدهیم.
۱۹ مرداد ۱۴۰۳ : ترور عضو ارشد حماس در لبنان
حماس اعلام کرد که سامر الحاج در جریان حمله ددمنشانه رژیم صهیونیستی به شهر صیدا در جنوب لبنان که عصر امروز انجام شد، به شهادت رسیده است.
«سعدالله زارعی» کارشناس مسائل منطقه در پیش از خطبههای نماز جمعه این هفته تهران ( مصلی ) ، اظهار داشت: اگر اسرائیل بتواند عملیات ترور را همانند تخریب بیمارستانهای غزه عادی سازی کند، شاهد تکرار عملیاتهای ترور در سطح جهان اسلام علیه رهبران مقاومت خواهیم بود، لذا پاسخ به عملیات ترور رژیم اسرائیل یک الزام و اجبار برای سر جا نشاندن رژیم صهیونیستی است.
۲۰ مرداد ۱۴۰۳
هدف : کوچاندن اجباری
در کشتار جدید رژیم صهیونیستی در مرکز شهر غزه در بامداد امروز شنبه بیش از ۱۰۰ نفر شهید و دهها نفر زخمی شدند.
«انس الشریف»، خبرنگار الجزیره در غزه گزارش داد که اشغالگران مدرسه «التابعین» در محله الدرج را بعد از نماز صبح بمباران کردند که با توجه به حضور بین ۴۰۰۰ تا ۵۰۰۰ نفر در مدرسه واقع در خیابان النفق ممکن است تعداد تلفات افزایش یابد.
۲۲ مرداد ۱۴۰۳ و هنوز ملت ها منتظر
سفر خارجی ممنوع!
سخنگوی ارتش رژیم صهیونیستی گفت: بر پایه ارزیابیهای اطلاعاتی سفر کلیه اعضای نیروهای مسلح اسرائیل به خارج از کشور ممنوع شد.
پس از جنایت رژیم صهیونیستی در غزه در اتفاق ناگوار مدرسه التابعین نیروهای امدادی هر 70 کیلو گرم از بدن اجساد را بدلیل نامشخص بودن افراد یک شهید در نظر گرفتند.
مدیر عامل خبرگزاری میزان در واکنش به سانسورهای عجیب مسابقات المپیک در تلویزیون:
این مدل کشتی نشون دادن توهین به مخاطب ایرانی است. هادی عامل داره کشتی گزارش میکنه، اما تصویر چیز دیگهای نشون میده.
صداوسیما مسابقات کشتی رو ضبط کنه، سانسورهاش رو انجام بده بعد زندهنمایی کنه. مسخرهتر از این مدل پوشش نداریم!
ناهید کیانی و کیمیا علیزاده در مراسم توزیع مدال وزن ۵۷ کیلوگرم المپیک پاریس یکدیگر را در آغوش گرفتند تا تاریخسازی دختران ایرانی تکمیل شود. این اقدام ورزشکاران توسط صدا و سیما سانسور شد
۲۱ مرداد ۱۴۰۳
صبح امروز شهردار بندر گناوه به همراه دو کارمند شهرداری، توسط سازمان اطلاعات سپاه انصارالحسین (ع) گناوه دستگیر شده و تحویل مقام قضایی شدند. بر اساس گزارش دریافتی، متهمان به صورت سازمان یافته در زمینه اخذ رشوه فعالیت داشتهاند. پیش از این نیز، یکی از افراد وابسته به این پرونده توسط سربازان گمنام سازمان اطلاعات سپاه انصارالحسین (ع) دستگیر شده بود.
المپیک ۲۰۲۴ ، آقای یزدانی در یک قدمی مدال طلا با مصدومیت دررفتگی شانه
رییس کمیسیون پزشکی اتحادیه جهانی کشتی ادامه داد: اما در این حین آقای امینی که آنجا بود اظهار نظرهایی با لفظ نامناسبی داشت که باید بانداژ میکردم تا دست یزدانی در نرود. من هم به ایشان توضیح دادم که چون تخصص و صلاحیت پزشکی ندارند این مبحث را ادامه ندهند. به هر حال با رفتار نامناسب ایشان من مواجه شدم. البته عصبانیت آقای امینی با توجه به مصدومیت و نتیجه یزدانی برایم قابل درک بود و همین باعث واکنش نامناسب ایشان شده بود اما به عنوان مربی باتجربه از او انتظار داشتم بر خودش مسلط باشد و ادب و منش پهلوانی که از کشتیگیران و مربیان انتظار است را رعایت کند. بدون شک آقای کاوه هم به اندازه ایشان ناراحت بودند اما رفتار مناسبی داشتند و مشاجرهای با هم نداشتیم.
۲۲ مرداد ۱۴۰۳
قیمت پایه و مالیات و عوارض را ببینید
مرداد ۱۴۰۳ و اوج گرما ( حادثه شهربازی شخصی )
خوشبختانه با عنایت خداوند وتلاش کادر درمان عسل حالش بهتر شد اگرچه شرایط او چندان برای ترخیص مساعد نبود اما گرمای بیش از حد اتاق های بستری بیمارستان مدنی کرج شرایط را برای عسل دشوار کرده بود بنابراین تصمیم گرفتیم او را از بیمارستان به خانه ببریم .
در بیمارستان اتاق های بخش های درمانی کولر ها خاموش است و بیشتر مردم با پنکه های شخصی به داد بیماران خود رسیده اند و این مسله خیلی تعجب برانگیز است .
لوسمی یک نوع سرطان خون است که باعث تولید غیرطبیعی و بیش از حد سلولهای سفید خونی میشود. احساس پف کردن: یکی از نشانههای نوع مزمن لوسمی، بزرگ شدن طحال است که ممکن است منجر به کاهش اشتهای فرد مبتلا شود، زیرا به دلیل فشار وارده از سمت طحال به معده، فرد احساس سیری میکند و مواد غذایی کمتری مصرف مینماید.
المپیک کشتی ۲۰۲۴
با این حال، اتحادیه جهانی کشتی درخواست تجدید نظر را رد کرد و کار داوران در فینال را درست تشخیص داد.
آماده رفتن به لوزان
داستان می توانست به همین جا ختم شود اما الکسانیان پس از ورود به وطن خود به خبرنگاران گفت که آماده است تا پایان این شکایت را پیگیری کند. او گفت فرصت برای تجدید نظر در این تصمیم وجود دارد. قهرمان المپیک ریو ۲۰۱۶ توضیح داد که همه چیز به وضوح در ویدیو قابل مشاهده است. اتحادیه جهانی کشتی شکایت ما را نمیپذیرد چون چگونه میتواند گناه خود را بپذیرد؟ ما به IOC شکایت خواهیم کرد. ویدیو را ارائه خواهیم داد. بگذارید کارشناسان نگاه کنند و بگویند حق با کیست.
۲۳ مرداد ۱۴۰۳ اظهاز فضل وزیر پیشنهادی نیرو جهت بررسی در کمیسیون تخصصی
در این جلسه وزیر پیشنهادی نیرو نیز دلایل ایجاد وضعیت فعلی و شکاف با سیاستهای ابلاغی را اقتصاد یارانهای برق و عدم توجیه اقتصادی سرمایهگذاری در بخش برق عنوان کرد و گفت: همچنین عدم تعادل عرضه و تقاضا، رشد بیرویه مصرف را باید به این موارد افزود که ازجمله راههای تحقق سیاستهای ابلاغی از نظر علیآبادی اصلاح اقتصاد و روابط مالی برق، افزایش ظرفیت و راندمان تولید انرژی تجدیدپذیر، اصلاح ساختار صنعت برق و… است.
المپیک ۲۰۲۴
سرپرست کاروان ورزش ایران در بازی های پارالمپیک پاریس میزان پاداش مدال آوران این دوره از بازی ها را اعلام کرد.
وی ادامه داد: بر این اساس برای مدال آوران طلا در بازی های پارالمپیک ۴ میلیارد تومان در نظر گرفته شده است، مدال آوران نقره یک و نیم میلیارد دریافت می کنند و به مدال آوران برنز هم یک میلیارد اهدا می شود. پاداش مدال آوران تیمی ۷۵ درصد پاداش تعیین شده برای رشته های انفرادی است.
رئیس دانشگاه علوم پزشکی تهران در پاسخ به ادعای موافقت دانشگاه علوم پزشکی تهران با پذیرش بدون کنکور مبینا نعمت زاده در رشته پزشکی این دانشگاه گفت: پذیرش دانشجو در این دانشگاه طبق ضابطه خواهد بود. بنابراین پذیرش او بدون کنکور در رشته پزشکی تکذیب میشود.
پیش بینی : ( با توجه به لغو شدن پروازها از تهران و استانبول و حتی لبنان از ساعت ۱ ) بامداد یکشنبه ۱۳ مرداد ۱۴۰۳ حدود ساعت ۱ ببعد مراکز نظامی اسرائیل از چند کشور مورد تهاجم موشکی قرار خواهند گرفت.
مدیرعامل شهر فرودگاهی امام خمینی(ره) افزود: «لغو پروازهای ترکیه به ایران صرفاً شایعه و جو رسانهای است.»
۱۴ مرداد و مشخص شد حمله به مواضع صهیونیستی در بامداد صورت نگرفت .... و همچنان نتانیاهو به غزه حمله می کند !!!
وبسایت خبری «اکسیوس» آمریکا به نقل از مسئولان اسرائیلی و آمریکایی نوشت: «پیشبینی میشود ایران در ساعات ابتدایی فردا دوشنبه به اسرائیل حمله کند.»
امروز دوشنبه و هم عملیات خونخواهی انجام نگرفت
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.
You can turn off the Trusted Documents feature, for network locations, in the Trust Center.
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 که دارای آرگومان هایی است
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 strFile
Open یکی از متدهای شئ 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
خبرگزاری فارس و تسنیم از اعلام جرم دادستانی علیه اردشیر رستمی و علی ضیا (مجری صداوسیما) به دلیل اشاره آنها به موضوع همجنسگرایی خبر داد.
علی ضیا به بازی اخیر اردشیر رستمی در یک فیلم در نقش فرد همجنسگرا اشاره می کند و هر دو در این باره گفتگو می کنند. این برنامه با نام " با ضیا" در قالب مصاحبه ای است که در فضای اینترنت منتشر می شود.
خانم طلبه چرخنده بازیگر سابق سینما و تلویزیون اظهار داشت: مراقب باشید تا به لشکر حسین (ع) لبیک بگویید و مبادا وارد لشکر یزیدیان زمانه شوید، علی را بشناسیم، دین اسلام را مطالعه کنیم و بدانیم اگر دختران را درست هدایت نکنیم خودفروختگان لانه کرده در شبکههای معاند، این دختران را جذب مرام خود خواهند کرد.
جوکر ۲ احسان علیخانی --- فکر کنید مجید مظفری که در فیلمها و سریالهای مهم نقشهای جدی بازی میکرد، مجبورش میکنند با آهنگی از خواننده لسآنجلسی برقصد! اگر قرار بر ساخت رئالیتیشوست پس این همه سخیفبودن برای چیست؟ اینکه دیالوگهای جنسی گفته شود یا حرکات اروتیک برای خنداندن یکدیگر استفاده شود چه نکته مثبتی برای مخاطب کودک و نوجوان دارد؟ در جوکر آنقدر از الفاظ رکیک و فحش استفاده میشود که حتی دیدن آن با خانواده امکان ندارد. انگار شوخیهای جنسی را از کف خیابان جمع کردهاند و حالا در این برنامه از آنها استفاده میکنند.
خدا را شاکریم که در ایران امنیت وجود دارد و سربازان گمنام امام زمان هشیار و بیدار !
امنیت ما نقض شده است
اشعار تشییع جنازه اسماعیل هنیه در دانشگاه تهران مرداد ۱۴۰۳
مرگ بر سه ابلیس آمریکا اسرائیل و انگلیس
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 باید کارکرد عملگرهای منطقی را بدانید . با جستجوی ساده می توانید این کار را انجام دهید .
با رفتن به وب سایت 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 بالا :
فیلدهای city و state جدول tblAddress را بروز رسانی کن در جوین یا اتصال با جدول tblZipCodes بصورتیکه داده فیلدهای ZipCode دو جدول tblAddress و tblZipCodes با هم یکی باشند . در صورت match شدن فیلد ZipCode دو جدول مقادیر فیلدهای city و state از جدول tblZipCodes در فیلدهای city و state جدول tblAddress قرار خواهند گرفت . بنابراین شرط اینه که ZipCode هر دو جدول با هم تطابق داشته و همینطور مقدار فیلد Country شامل us باشد.
۷ مرداد ۱۴۰۳ ( تجاوز به لبنان )
به گزارش گروه سیاسی خبرگزاری علم و فناوری آنا، جنگندههای رژیم اشغالگر قدس، شهرک شیحین در جنوب لبنان را بمباران کردند.
براساس این گزارش، وزیر خارجه لبنان امروز (یکشنبه) گفت ما از واشنگتن خواستهایم که با توجه به تنشهای اخیر، اسرائیل را به خویشتنداری ترغیب کند.
بوحبیب همچنین اظهار داشت، هرگونه حمله گسترده از سوی رژیم صهیونیستی به جنگ منطقهای منجر خواهد شد.
رئیس کل دادگستری استان البرز با اشاره به آمار غیررسمی که از حضور بیش از ۳۰۰ هزار اتباع و مهاجرین مجاز و غیرمجاز در استان حکایت دارد، گفت: جمعیت اتباع در استان البرز به اندازه یک شهرستان شد.
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&”‘”)
مرداد ۱۴۰۳
در پاستیلهای باز و فله از ژلاتینهای خوکی و حیوانات غیرحلال دیگر چون ماهی غیرحلال، گربه و سگ استفاده شده است.
حسین رستگار، رییس مرکز تحقیقات حلال سازمان غذا و داروی وزارت بهداشت گفت: «در پاستیلهای باز و فله از ژلاتینهای خوکی و حیوانات غیرحلال دیگر چون ماهی غیرحلال، گربه و سگ استفاده شده است.»
او افزود تنها در پاستیلهایی که از این سازمان مجوز دارد، از «ژلاتین حلال» استفاده شده است.
دِ گِرِیت مَن سَکرِفایسد هیز لایف
That great man sacrificed his life
رویداد Resize وقتی که یک فرم باز می شود و زمانیکه اندازه فرم تغییر میکند ، اتفاق می اُفتد.
نکته :
مراقب باشید اگر از اکشن هایی مثل .MoveSize ، Maximise ، Minimize یا Restore ( یا متدهای مرتبط با شئ Docmd ) در ماکرو Resize یا event استفاده می کنید . این اکشن ها می توانند محرکی برای انجام رویداد Resize فرم و بنابراین باعث رویدادهای آبشاری شوند . یعنی پرش را در تغییر فرم بوضوح خواهید دید .
دو پراپرتی InsideWidth و InsideHeight فرم در هنگام Resize تغییر می کند. در یک لیبل می توانید تغییر اندازه را ببینید.
Label0.Caption="Width:" & Me.InsideWidth & _
"....Heigth:" & Me.InsideHeight
Use the InsideWidth property (along with the InsideHeight property) to determine the height and width (in twips) of the window containing a form. Read/write Long.
'Turn off screen redraw
Application.Echo False
'Action
Application.Echo True
28 تیر ۱۴۰۳ : دادستان عمومی و انقلاب قشم انقلاب کرد
وی افزود: طبق قانون استفاده کارفرمایان از اتباع بیگانه غیرمجاز یا اجاره ملک به این اتباع نیز تخلف است و با متخلفان برخورد میشود.
دادستان قشم در ادامه عنوان کرد: شهروندان هرگونه اطلاعات و اخبار در خصوص قاچاق، اقامت و اشتغال اتباع خارجی غیرمجاز را اطلاع دهند.
مالکان به هیچ عنوان حق اجازه منازل خود را به اتباع غیرمجاز را ندارند و با مشاورین املاک متخلف برخورد قانونی میشود.
ولی خب دادستان محترم مردم از کجا بفهمن کدوم افغانستانی مجاز یا غیرمجاز مگر اینکه فضول باشه
منطقه ۱۲ تهران محله امامزاده یحیی کلی افاغنه داره . کارگاه اجاره میکنن خونه دربست بهشون میدن چون پول بیشتری میدن مغازه اجاره میکنند و بالاخره ایران روزی کابل دوم خواهد شد اگر مسئولین نجنبند.
محله گلشهر مشهد، معروف به کابل دوم، از معدود مناطقی است که مظاهر فرهنگ افغانستانی را میشود در آن پیدا کرد، به این دلیل که بیشتر ساکنانش را افغانستانیها تشکیل میدهند.
کاربر دیدیدی هم اینگونه واکنش نشان داد: تمام محله امامزاده یحیی،خیابان ری،کوچه آبشار،بازارچه نایب سلطنه ،تماما افغانی نشین شده،تمام ساکنین قدیمی به ستوه آمده محله را ترک کرده اند. این محله قلب تاریخی تهران بود.
افغان ها یکی از بزرگترین جمعیت های پناهجویان در سراسر جهان را تشکیل می دهند. ۲،۶میلیون پناهنده افغان در سراسر جهان ثبت نام شده اند که 2.2 میلیون از این تعداد تنها در کشورهای ایران و پاکستان ثبت شده اند.
مرداد ۱۴۰۳ :
ندا شمس، وکیل و حقوقدان در گفتگو با خبرنگار ایلنا گفت: در پی مصاحبه با یک خبرگزاری درباره یک اِشکال قانونی درباره سرمایهگذاری اتباع بیگانه در ایران با ثبت شرکت، از سوی اتباع افغانستانی غیرمجاز مورد تهدید و توهین قرار گرفتهام
اتباع بیگانه با ثبت شرکت یکی از بستگان دارای کارت اقامت خود، شرکتی را با عنوان سرمایهگذاری خارجی در ایران به ثبت میرسانند و از آنجا که قانون به آنها اجازه میدهد که مرکز و محلی برای فعالیت خود داشته باشند، ملکی را خریداری کرده و با تغییر کاربری از آن به عنوان خانه استفاده میکنند.
ایران کابُل دوم خواهدشد؟!!!
اگر نظارت بر محل اقامت و کار این افاغنه هر ماه یکبار و بصورت نامحسوس که در اینصورت نظام باید متحمل هزینه های سنگین شود ، انجام گیرد این ناملایمات بوجود نخواهد آمد . تنها چاره، کم کردن افراد حتی با اقامت مجاز است .
پروژه حذف طبق نظر ظریف
ظریف در بخشی از این صوت میگوید، اصلاح طلبان در جریان حوادث 1378 قصد حمله به بیت رهبری را داشتند: «پشت بیسیم گفتند پیش به سوی [خیابان] آذربایجان (بیت رهبری)
آقای ظریف همینجوریش معلوم نیست تو بیت رهبری چی میگذره فقط سپاهیا می دونن اگر هم اتفاقی بیوفته و نفوذی صورت بگیره
به گزارش سایت دیدهبان ایران؛ هشتم بهمن ماه سال67 و به مناسبت تولد حضرت زهرا (سلام الله علیها) و روز زن، رادیوی جمهوری اسلامی ایران در برنامهای به نام سلام، صبح به خیر در گزارشی از مخاطبینش میپرسد: به نظر شما الگوی امروز زنان ایرانی چه کسی است؟. اکثر مخاطبین، حضرت فاطمه را الگوی خود معرفی مینمایند اما یکی از مصاحبهشوندگان در کمال تعجب میگوید: (الگوی مناسب زنان ایرانی اوشین است!). اوشین نام شخصیت اصلی داستان سریالی ژاپنی به نام سالهای دور از خانه بود که آن روزها از سیما پخش میشد.
مرداد ماه ۱۴۰۳
شوکو میاتا، کاپیتان ۱۹ساله تیم ژیمناستیک زنان ژاپن بهعلت کشیدن سیگار در یکی از تمرینات، از این تیم اخراج شد و به خانه بازگشت. بنابر قوانین اخلاقی اتحادیه ژیمناستیک ژاپن، سن قانونی استعمال سیگار ۲۰سال است.
ایران در ایران طبق قانون هر نوع تبلیغ، حمایت، تشویق مستقیم و غیرمستقیم یا تحریک افراد به استعمال دخانیات اکیداً ممنوع است. فروش یا عرضه به افراد زیر پانزده سال یا به واسطه این افراد ممنوع است. کشیدن سیگار زیر ۱۵سال غیرقانونی است.
فدراسیون کوهنوردی و صعودهای ورزشی خواستار رسیدگی به حضور مخرب موتورسواران در کوههای شمال تهران شد و در این راستا شورای اسلامی شهر تهران نیز طی نامهای به پلیس راهور شهر تهران، خواستار رسیدگی به این درخواست شد.
خانم «عین» بهورز یکی از روستاهای «قلعهگنج» استان کرمان است. قلعهگنجی که در این دهه بابت شدت محرومیت به الگوی فقر کشور تبدیل شده. خانم عین، بهورز یکی از همین روستاهاست و میگوید: «۳ سال قبل مسوول شبکه من را صدا کرد و گفت از این به بعد فقط باید روش بارداری سالم آموزش بدهی. تمام اقلام پیشگیری از بارداری را هم آمدند و جمع کردند و بردند و گفتند پیشگیری بیپیشگیری و زنهای این منطقه فقط باید بچه بزایند. بهشان گفتم این مردم آرد برای نان پختن ندارند، چطور بچه اضافه کنند؟ گفتند اگر به گوشمان برسد آموزش پیشگیری از بارداری دادهای، میفرستیمت مرز کرمان و سیستان و بلوچستان.»
crush به تنهایی یعنی علاقه شدید به کسی داشتن است و have a crush on someone نیز به معنای عاشق شخصی بودن است.
دهه اول مرداد ۱۴۰۳
سکوت خبری شهادت جهانآرا تا چهلمین روز
روزنامه اطلاعات دو روز بعد فهرستی از شهدای احتمالی حادثه سقوط سی- ۱۳۰ منتشر کرد که تعداد زیادی از اسامی آن با فهرست روزنامه جمهوری اسلامی مشترک بود اما نکته قابل توجه در هر دوی این فهرستها این بود که نامی از شهید محمد جهانآرا در میان نبود. رادیو و تلویزیون نیز همچون مطبوعات که آن زمان بیشتر اخبارشان متاثر از برگزاری انتخابات ریاست جمهودی بود، اشارهای به نام فرمانده شهید سپاه خرمشهر نکرد.
آیتالله خامنهای پل ارتباطی امام و بچههای جبهه و جنگ بودند. بچههای جبهه و جنگ عبارت بودند از حسین علم الهدی، محمد جهان آرا و ... . بنی صدر سلاحی به این گونه نیروها نمیداد و اعضای ستاد جنگهای نامنظم هم به سختی امکانات خود را تهیه میکردند. یک روز جهانآرا در مقر ستاد که در استانداری خوزستان بود، نزد آیتالله خامنهای آمد. اشک میریخت و میگفت هیچ چیز نداریم، دست خالی هستیم و خرمشهر دارد از دست میرود.
مرداد ۱۴۰۳
مدیرکل غرب اروپا ضمن هشدار به دولت آلمان در مورد پیامدهای اینگونه اقدامات مخرب، تصریح کرد: چنین اقداماتی نمونه آشکاری از مقابله با آزادی فکر و بیان و عملا ترویج خشونت و افراطگرایی است.
وزارت کشور آلمان مدعی شد که مرکز اسلامی هامبورگ ضمن حمایت از حزبالله لبنان، با ایران ارتباط داشته و به دنبال ایجاد یک حکومت دینی بود.
به گزارش آکادمی مریم حمزه ای، نخستین دوره از مسابقات ملی آرایش دائم ایران توسط آکادمی مریم حمزه ای برنامه ریزی و با حضور ۳۰۰ هنرجوی این حوزه در هتل پارسیان اوین برگزار شد.
در این مسابقات که شرکت های گروه گلرنگ با برند نانسی و نادیا پرواز نیز به عنوان حامی مشارکت داشتند، هنرجویان این آکادمی از سراسر کشور در تهران حضور داشتند و در رقابتی نزدیک با انجام آرایش دائم بر روی لاتکس های مخصوص، مورد ارزیابی داوران ایران و بین المللی قرار گرفتند.
پرواز PS752 که حامل شهروندان و مقیمان دائم کانادا بود، در بامداد روز ۸ ژانویه ۲۰۲۰، زمانی که تنشهای نظامی با ایالات متحده به سرعت در حال افزایش بود، در آسمان تهران مورد هدف قرار گرفت. دادگاه انتاریو شرکت هواپیمایی اوکراین را به دلیل عدم ارزیابی مناسب خطرات ناشی از انجام پرواز از تهران، سهلانگار دانست.
No To ghalibaf
rslt=Null
min_num=100000
max_num=999999
For C= min-num To max_num
تولید عدد تصادفی بین کمترین تا بیشترین مقدار ( بین min_num و max_num )
IdNumber=Int((max_num-min_num+1)*Rnd+min_num
qry="Select IdNumber From [Table Name] Where IdNumber=" & IdNumber
Set rs=db.OpenRecordset(qry,dbOpenSnapShot)
If rs.BOF And rs.Eof Then
کوئری رکورد موجود را پیدا نکند بنابراین اجازه میدهد که این یکی بکار رود
rslt=IdNumber
Exit For
End If
Next
rs.Close
Exit_GetRndIdNum :
Set db=Nothing
Set rs=Nothing
FunctionResult=rslt
Exit Function
Err_GetRndIdNum :
Msgbox Err.Description,, "Function Result() Error #" & Err.Number
Resume Exit_GetRndIdNum
مثالی دیگر :
رویه ای نوشته شده که تعداد مورد نیاز ( انتخابی ) اضافه نمودن عدد تصادفی به جدول را از کاربر دریافت می کند و اگر کاربرتعداد رکوردی که به جدول باید اضافه شود را انتخاب نکند مقدار بعنوان پیش فرض ۱۰۰ درنظر گرفته می شود .. البته بنظر میاد یه حداکثری هم باید در نظر گرفته شود که فرد بیشتر از اختلاف عدد کمترین و بیشترین درخواست ننماید !!!
Sub AddRecords(Optional ByVal intCount As Integer = 100)
Dim i As Integer
For i = 1 To intCount
SaveNewRecord
Next
End Sub
در تابع SaveNewRecord می توان نوشت که lngId را به فیلد ID از جدول اضافه نماید البته برای جلوگیری از Duplicate با تابع Dlookup آنرا در جدول جستجو کنید یا :
البته طبق مورد زیر باید فیلد ، Primary key شود در صورت تکراری بودن مورد تکراری به جدول اضافه نخواهد شد و اگر اینطور باشد می تواند یک یا چند رکورد کمتر از عدد دلخواه در تابع Addrecords در جدول مقصد درج یا Insert گرد لذا ملاحظه می کنید که تابع Generate کردن عدد تصادفی در Loop قرار داده شده تا اگر مورد تکراری بود و ویژگی RecordsAffected آن صفر بود تا زمانیکه یک نشده عدد تصادفی دیگری که Duplicate نیست جایگزین گردد تا طبق تعداد رکوردی که باید ساخته شود کار به اتمام برسد.
Do
lngID = RandomNum(lngcMaxID, lngcMinID)
db.Execute "INSERT INTO Table1 (ID) VALUES (" & lngID & ")"
Loop Until db.RecordsAffected
Returns the number of records affected by the most recently invoked Execute method.
Mydb.Execute strSQL,dbFailOnError
i=Mydb.RecordsAffected
MagBox i
She took a long, hot bath
آیت الله سیدعلی سیستانی مرجع تقلید شیعه مقیم نجف به صورت مشروط با حضور در عروسی مختلط همراه با رقص و موسیقی موافقت کرده است.
به گزارش خبرگزاری حوزه، پرسش از آیت الله این بود: نظر به اینکه مجالس عروسی امروزه اغلب مختلط و همراه با رقص و موسیقی است و عدم شرکت باعث کدورت آشنایان می شود، آیا شرکت در این مجالس با رعایت حجاب کامل اسلامی و عدم همراهی در اعمال آنها جایز است؟
پاسخ: اگر بیم افتادن به گناه نباشد حضور مانعی ندارد ولی وظیفه نهی از منکر هم باید رعایت شود.
هم سازی حقوق بازنشستگان تامین اشتباهی
دبیر اجرایی خانه کارگر آران و بیدگل تصریح کرده؛ متاسفانه دولت با همراهی مجلس یازدهم برخلاف سیاستهای ابلاغی تامین اجتماعی، بعد از اعلام مغایرت شورای نگهبان، نسبت به جزء ۱ بند الحاقی ۲ ماده ۲۹ لایحه برنامه هفتم توسعه بجای رفع ایراد آن را حذف کرد و با این کار دولت را تا پایان برنامه از پرداخت بدهی حسابرسی شده معاف کرد. با این کار عملا متناسب سازی برای بازنشستگان تامین اجتماعی در هالهای از ابهام قرار گرفت.
حاجیزاده بیان کرده؛ با حذف این موضوع عملا دولت طی پنج ساله هفتم هیچگونه تعهدی نسبت به بازپرداخت بدهی محاسبه شده به سازمان تامین اجتماعی نخواهد داشت و کل مصوبات سال گذشته برای متناسبسازی این قشر از مستمریبگیران که با رقم ۱۷۰ همت شروع و در نهایت با ۱۳۰ همت مصوب شد، وضعیت نامعلومی پیدا میکند.
مصوبات شورای عالی امنیت ملی پس از تأیید مقام رهبری قابل اجراست.
شخصی که با تهدید و اخاذی (ظاهراً به واسطه در اختیار داشتن برخی محتواها) ( محمدرضا نجاتی اسلاملو ) زمینه ساز خودکشی زهره فکور شده بود، از مخفیگاهش طی یک عملیات فریب دستگیر شد.
«مسعود پزشکیان در ماجرای ١٨تیر ٧٨، رئیس دانشگاه علوم پزشکی تبریز بود. بعد از حمله لباس شخصیها به کوی تهران، به دانشگاه تبریز حمله شد. در میانه حمله لباس شخصیها به دانشگاه تبریز، او در میان دانشجویان حاضر شد و در کنار آنها از حیثیت دانشگاه حفاظت کرد»
بانک آریا نام بانکی است که در اواخر سال ۱۳۸۹ اقدام به پذیرهنویسی نمود اما در مرداد ۱۳۹۰ روند ارائهٔ مجوز به آن توسط بانک مرکزی ایران متوقف گردید. مالکان اصلی این بانک با نام مهآفرید امیرخسروی و بهداد بهزادی، در شهریور ۱۳۹۰ متهم به اختلاس ۳ هزار میلیارد تومانی شدند که از بزرگترین اختلاسهای تاریخ ایران به شمار میآید
۱ تیرماه ۱۴۰۳ مناظره دوم نامزدان ریاست جمهوری
زاکانی گفت: بنزین، گاز و برق را در نظر بگیرید؛ به هر خانواده سه نفره معادل اعتبار ۲۰ گرم طلا در سال یارانه داده می شود. یک خانوار پنج نفره ۱۱۰ میلیون در سال یارانه دارد و اعتباری به میزان طلا به آنها داده می شود که مصون از تورم است.
مریم فکری: وعده عجیب زاکانی درباره اختصاص یارانه طلا، صدای اقتصاددانان را در آورد؛ به طوری که بلافاصله پس از رونمایی او از وعده پرداخت اعتبار ۲۰ گرم طلا در سال به هر نفر، اغلب اقتصاددان در محاسباتی، عنوان کردند که او عدد نمیشناسد.
کانال های خبری نزدیک به جریان موسوم به انقلابی ازحضور فردی در طبقه ۱۱ سازمان فرهنگی و هنری شهرداری سخن می گویند که در تصمیم گیری های شهرداری نقش اصلی دارد و در ادامه این جمله را هم اضافه می کنند که دامادها در طبقه بالای ساختمان ها به خدا نزدیک تر می شوند.
ظریف :
به گزارش خبرگزاری خبرآنلاین، محمد جواد ظریف، وزیر امور خارجه دولت دوازدهم در گردهمایی روحانیون حامی مسعود پزشکیان با حضور در حسینیه جماران گفت: طلا، زمین و گوشت در خانه را قول دادند. مرحوم ترکان می گفت اینها حساب نمی فهمند. ۲۰ گرم طلا برای هر خانواده سه نفره می شود چند تن طلا؟ از کجا می خواهید بیاورید؟ اینها دروغ است دیگر، اینها یعنی صادق نبودند. عدم صداقت کشنده است، عدم صداقت مرگبار است، نه برای من و شما، برای بیچاره ای که به نان شب محتاج است.
۵ تیر ۱۴۰۳
استفاده از ظرفیت سکوهای پیامرسانهای خارجی، توسط نامزدها، روسای ستادها و هواداران و طرفداران آنان به ویژه در روز سکوت تبلیغاتی از مصادیق بارز جرم انتخاباتی بوده و مرتکبان مورد پیگرد قضایی قرار خواهند گرفت.
معاونت اجتماعی و پیشگیری از وقوع جرم قوه قضاییه
۵ تیر ۱۴۰۳
شعار مردم کرمان ( فرودگاه ) در بدو ورود نامزد ریاست جمهوری ۱۴۰۳ جناب آقای سعید جلیلی ( بعد از شرکت در راهپیمایی غدیر )
صلِّ علی محمد بوی رئیسی آمد
در نامه همکاران و دانشجویان و فاغ التحصیلان دانشگاه امام صادق خطاب به جلیلی آمده است؛
باسمه تعالی
جناب آقای دکتر سعید جلیلی
کاندیدای محترم انتخابات ریاست جمهوری
ارزیابی صحنه انتخابات در کمتر از یک هفته از برگزاری آن نشان می دهد، کاندیدای اصلاح طلبان به علل مختلف رشد کرد و تشتت آرای جبهه انقلاب در حال رقم زدن تجربه انتخاباتی مانند سال نود و دو است.
مستحضرید که در سال ۱۳۹۲ آقای حسن روحانی انتخابات را با دو درصد اقبال آرا شروع و در روز انتخابات با پنجاه و یک درصد به نتیجه رساند.
سال ۹۲
بر اساس رتبه بندی انجام شده بیشترین آراء به ترتیب مربوط به حسن روحانی با 51 درصد، محمد باقر قالیباف 21 درصد بوده است و سعید جلیلی، محسن رضایی، علی اکبر ولایتی و سید محمد غرضی نیز در شمار انتخاب های بعدی مردم قرار دارند.
کرسنت و خیانت دولت به مردم
در سال 1392 و در آستانه برگزاری دادگاه لاهه با موضوع قرارداد کرسنت عباس یزدانپناه با برخی از مسئولان کشور ارتباط میگیرد و اعلام میکند که حاضر است علیه فساد و رشوه خواری در جریان قرارداد کرسنت شهادت دهد. این شهادت در صدور حکمی بهنفع جمهوری اسلامی میتوانست بسیار مفید باشد و بهدنبال آن اطلاعات ذیقیمتی از فساد در حوزه نفت و انرژی به مسئولان امنیتی و قضایی جمهوری اسلامی ایران ارائه دهد.
قرار بر آن میشود که یزدانپناه در امارات از طریق ویدئوکنفرانس چند جلسهای در دادگاه لاهه شهادت دهد. اما او بهناگاه در تاریخ 5 تیرماه 92 ربوده و ناپدید میشود. بسیاری از جمله همسرش معتقدند که عباس بعد از ربوده شدن برای بهجای نماندن هیچ ردی کشته شده است. اما رسانههای بیگانه در اصراری عجیب در تلاشند از قتل او صحبتی نشود و ماجرا را به آدمربایی تقلیل دهند. جالب اینجاست که دولت انگلیس هم که در موارد مشابه بهشدت پیگیر سرنوشت شهروندان خود است در اقدامی عجیب پرونده ربایش عباس یزدانپناه را مختومه اعلام میکند.
اوکراین دلیل متفاوتی برای احتیاط درباره «همستر کامبت» دارد. مرکز دولتی ارتباطات استراتژیک اوکراین اوایل ماه مه هشدار داد که این بازی به دلیل ارتباط آشکار با روسیه، میتواند خطرناک باشد.
چه کسی «همستر کامبت» را اداره میکند؟
حساب «همستر کامبت» در تلگرام، حدود ۳۹ میلیون دنبال کننده دارد و صفحات آن در یوتیوب و «ایکس» (توییتر سابق)، به ترتیب ۲۵ میلیون و ۸.۵ میلیون دنبال کننده دارند. اما هیچ یک از حسابها به یک استودیوی بازی سازی یا یک شرکت مادر اشاره نمیکند.
طبق تحقیقات یک رسانه اوکراینی (Ain)، «همستر کامبت» توسط گروه RU-CENTER Group به ثبت رسیده که یکی از بزرگترین ثبت کنندگان نام دامنه و فراهم کننده خدمات میزبانی در روسیه بوده و به گروه رسانهای آر بی کی تعلق دارد.
یک پیش بینی حدسی در اینترنت
صادقالحسینی، اقتصاددان در خصوص سومین مناظره نامزدهای انتخابات ریاست جمهوری نوشت:
جمعبندی مناظره سوم
۱.کسی که هیچ حرف غلطی نزد: پزشکیان
۲. بیشترین حرف غلط رو زد: زاکانی و جلیلی و قاضیزاده
۳.زشتترین نمایش: زاکانی
۴.بیحاشیهترین فرد: جلیلی
۵.بدترین نمایش: قالیباف
برنده مناظره: پزشکیان
نه برنده نه بازنده: پورمحمدی، جلیلی
بازندگان: زاکانی، قاضیزاده، قالیباف
6 تیر ۱۴۰۳
GHALIBAF.IR
سهسال مسکن رایگان به زوج های جوان
زمین رایگان به خانوارهای بیمسکن
دیوار انسداد مرز شرقی کشور
رشد حقوق با تورم
واردات خودرو
ضمانت:کارنامه من
ZAKANI
عید مبارک!
یادتان هست یارانه ۴۵هزارتومانی بیارزش شد؟!
یارانه انرژی برپایه طلا حق شماست؛
با یارانه طلایی هر ایرانی مصون از تورم معادل ۶گرم طلا یارانه انرژی خواهد داشت.
خادم شما
۷ تیر ۱۴۰۳ یکروز قبل از برگزاری انتخابات و روز سکوت انتخاباتی
او ( حضرت قالیباف ) در این توییت نوشت: از برادران عزیز آقایان زاکانی و قاضیزاده هاشمی که مطالبات نیروهای انقلاب در راستای ایجاد ائتلاف و وحدت را لبیک گفتند، تشکر میکنم.
روشنگری در خصوص پروژهٔ بازگشت به دههٔ نود و دفاع از میراث شهید رئیسی جز با مجاهدت آنها ممکن نمیشد. تا آخر ایستادهایم تا دولتی کارآمد و انقلابی تشکیل شود.
جمعه ۸ تیر ۱۴۰۳ روز انتخابات
محمدجواد ظریف در حسینیه جماران پس از انداختن رأی خود به صندوق در جمع خبرنگاران گفت: اگر حضور مردم گسترده باشد، مشخص میشود اقلیت و اکثریت چه کسانی هستند.
به گزارش ایسنا، با مرور اخبار انتخاباتی شنبه - نهم تیر ۱۴۰۳ میخوانیم:
سخنگوی ستاد انتخابات کشور نتایج نهمین مرحله از شمارش آرای انتخابات چهاردهمین دوره ریاستجمهوری را اعلام کرد و افزود: ۲۴ میلیون و ۵۳۵ هزار و ۱۸۵رای شمارش شده است که ترتیب آرا به شرح زیر است:
* مسعود پزشکیان: ۱۰ میلیون و ۴۱۵ هزار و۹۹۱ رای
* سعید جلیلی: ۹ میلیون و ۴۷۳ هزار و ۲۹۸رای
* محمدباقر قالیباف: ۳ میلیون و ۳۸۳ هزار و ۳۴۰رای
* مصطفی پورمحمدی: ۲۰۶ هزار و ۳۹۷رای
از جمع آراء تایید شده؛ پزشکیان ۴۲.۶ درصد، جلیلی ۳۸.۸ درصد، قالییاف ۱۳.۸ درصد پورمحمدی ۰.۸ درصد آرا را کسب کردند و میزان مشارکت در این دوره از انتخابات ۴۰ درصد بوده است.
وزیر کشور گفت: تعداد واجدین شرایط رای دادن در انتخابات ریاست جمهوری حدود ۶۱ میلیون نفر است.
و آقایان جلیلی و پزشکیان به دور دوم راه یافتند ( زمان ۱۵ تیر ۱۴۰۳ )
تحلیلگر حوزه اقتصادی درباره فرار سرمایه با قدرتگرفتن این جریان نیز متذکر میشود: «فرار سرمایه یکی از نخستین اتفاقات اقتصادی است که میتواند با دولت جلیلی رخ دهد»؛ چون به زعم او «همین الان تنش حزبالله و اسرائیل، نگرانیها را افزایش داده است و اگر تنش تشدید شود، اتفاق خوبی برای سرمایه رخ نمیدهد». بهخصوص که افقه باور دارد «سیاست خارجی دولت سیزدهم نیز شکست خورده و هیچکدام از مشکلات را حل نکرده است». این در حالی است که افقه میگوید: «جلیلی از دولت فعلی هم تندتر سیاست خارجی را ادامه میدهد. بنابراین دور از ذهن نیست که فرار سرمایه در دولت جلیلی شدت یابد و با توجه به نگاه فرهنگی جلیلی، فرار مغزها نیز به اوج برسد».
در مناظره اول دور دوم دوشنبه ۱۱ تیر ۱۴۰۳ ساعت ۹:۳۰ تا ۱۱:۳۰
پزشکیان گفته بود: نمیتوان کشور را در قفس کرد و با دنیا رابطه نداشت، زندگی در قفس زندگی بخور و نمیر است، نمیتوانیم مدام ارزان بفروشیم و گران بخریم. ما چاره ای غیر از ایجاد رابطه با خارج نداریم
مصاحبه با خانم خجسته باقرزاده سالیان خیلی پیش
لطفا نظراتتان را در مورد حجاب اسلامی برای خوانندگان ما بفرمایید.
به نظر من «بهترین پوشش برای خارج از منزل ،چادر، است». البته شرعا پوشیدن انواع دیگر پوشش در صورتی که بدن را کامل بپوشاند و جذب و تنگ نباشد اشکالی ندارد.اما به طور کلی چادر ترجیح دارد.برای درون خانه کاملا متفاوت است.البته پوشش در هر شرایطی باید مطابق عفت اسلامی باشد.
۱۲ تیر ۱۴۰۳
به گزارش خبرگزاری خبرآنلاین، علی عبدالعلی زاده، رئیس ستاد انتخاباتی مسعود پزشکیان، نامزد انتخابات ریاست جمهوری چهاردهم، در نامهای خطاب به رئیس قوه قضائیه، دادستان کل کشور، رئیس ستاد انتخابات کشور و سخنگوی شورای نگهبان، به تبلغیات برخی از رسانههای دولتی، حاکمیتی و نظامی مانند روزنامه کیهان، جوان، فرهیختگان، خبرگزاری فارس، تسنیم و دانشجو به نفع سعید جلیلی اعتراض کرد.
به گزارش سایت دیدهبان ایران؛ فرشته روحافزا، استاد دانشگاه تهران و نماینده زنان ستاد انتخاباتی سعید جلیلی، گفت: در دولت پزشکیان مردان در ظاهر نهج البلاغه میخوانند و زنان ظاهرا محجبه هستند، اما باطن آن کاملا آمیخته با فرهنگ غربی است؛ رییس جمهور شدن پزشکیان نه تنها حجاب بلکه کل دین را مورد خطر جدی قرار میدهد.
وی افزود: با موفقیت پزشکیان در انتخابات پیش رو، مذهب از بین خواهد رفت. رییس جمهور شدن پزشکیان نه تنها حجاب بلکه کل دین را مورد خطر جدی قرار میدهد.
او ادامه داد: فرهنگ در موضوع خانواده و روابط زن و مرد بیچاره شده است و ۲۰ میلیون نفر در غرب پدر خود را نمیشناسند! در صورتی که ۴ سال پزشکیان در مسند قدرت قرار گیرد وضعیت خانواده و روابط نامشروع مانند غرب میشود.
به گزارش خبرگزاری خبرآنلاین، این توئیت امیر حسین ثابتی ، نماینده مجلس و مشاور سعید جلیلی است که زنان بدون روسری را بدتر از "فاحشه" ها می داند و نگاه واقعی جریان پایداری را درباره پوشش زنان بیان می کند. او همچنین آنها را متهم کرده که پول می گیرند تا روسری بردارند و جامعه را به لجن بکشند!
کوروش احمدی در یادداشتی می نویسد: شک نیست که پیروزی آقای جلیلی در روز جمعه اعلام خطر دیگری به جامعه داخلی و بینالمللی خواهد بود. پیشفرض این پیروزی با پشتوانه حدود ۲۰ درصد مردم، تشدید تحریمها و تشدید سوءمدیریت مزمن بهعنوان دلایل اصلی مشکلات اقتصادی و معیشتی خواهد بود.
۲۹ مهر ۱۳۹۷ · عباس آخوندی وزیر راه و شهرسازی که مسکن مهر را مزخرف خواند و در عین حال یک آجر هم روی پروژه مسکن اجتماعی نگذاشت، از سمت خود استعفا کرد.
سرویس اقتصاد مشرق - ماجرای FATF و ایران به اوایل سال ۱۳۹۴ بازمیگردد که علی طیبنیا وزیر اقتصاد دولت یازدهم، پای برگه برنامه اقدام FATF را امضا کرد؛ برنامهای که حاوی ۴۱ بند بود. بدین ترتیب طیبنیا تعهدنامهای را امضا کرد که طبق آن ایران مکلف به اجرای ۴۱ خواسته یک نهاد غربی میشد. اکنون دو سال و نیم است که طیبنیا دیگر وزیر اقتصاد نیست، اما امضای وی همچنان گریبانگیر ایران است.
۶۰ سال پیش افزایش عرصه دام در عید قربان، گوشت کشتارگاه شهرداری را مجانی کرد.
مناظره دوم دور دوم سه شنبه ۱۲ تیر ۱۴۰۳
پزشکیان برنامه ای ندارد و فقط به این اکتفا میکند که دعواهای داخلی اگر تمام شود می شود کار را پیش برد.
جلیلی خاطرنشان کرد: برنامه سیاست خارجی ما این است که نباید معطل سه کشور بود، بلکه باید اقتصاد ایران جانمایی شود. باید فرصتهای جدید شناخته شود. برنامه من این است که باید اولویتها را شناخت. هر سفارتخانه باید سکویی برای صادرات کشور شود. واردات پاکستان ۷۰ میلیارد است که باید حداقل ۱۶ میلیارد ما حضور داشته باشیم. باید از فرصت ترانزیت استفاده کنیم. باید حواس جمع شود. شما با هیچ کشوری عقد اخوت نمی بندی، بلکه منافع ملت خود را با قدرت دنبال می کنید، اما باید برنامه داشته باشید و نباید بگویید این برنامهها را ولش کنید. اگر مطالعه و برنامه نداشته باشید حتما کشور عقب می ماند.
تیر ۱۴۰۳
ایران سال گذشته حدود ۳۶ میلیارد دلار صادرات نفت و میعانات گازی داشته است، پس از کسر تخفیفها، حق دلالان، هزینه جابجایی دریایی، هزینه چند بار تبدیل ارزهای مختلف، هزینه صرافی درنهایت حدود ۲۸ میلیارد دلار به دست بانک مرکزی و برنامه بودجه رسیده است. این یعنی نفت ایران بعد از همه هزینه با حدود ۶۱ دلار بفروش رسیده است.
پزشکیان: مشکل فقرا ما هستیم نه آمریکا / رفته بودم زیارت، برخی که بهشان میگویند حزب اللهی، به من میگفتند منافق. آیا من منافق هستم؟
«محسن هاشمی رفسنجانی» رئیس کارگزارانی شورای شهر تهران در دوره پنجم، پیش از انتخابات به سایت «انتخاب» گفته بود: اگر مشارکت زیر ۴۰ درصد باشد، افرادی مثل جلیلی رأی میآورد، اگر به ۵۰ درصد برسد، شاید قالیباف در دور اول پیروز شود، اما اگر مشارکت به سوی ۶۰ درصد برود، شانس پزشکیان بیشتر است.
۱۳ تیر ۱۴۰۳ خاتمی :
امیدوارم که نظام حکمرانی کشور که قطعاً پیامهای معنادار مردم را در کنش انتخاباتی آنان دریافته است فرصت را مغتنم بشمارد و به مقتضای آن میدان را برای تفکر و رویکردی که خیر و پیشرفت و امنیت کشور را میخواهد و تأمین میکند بازتر کند و موانع را از سر راه تحول و اصلاح امور بردارد.
من باز هم به دکتر پزشکیان که صداقتش را در گفتار و صراحتش را در رفتار بیش از پیش در این انتخابات نشان داد رأی میدهم، و برایش آرزوی توفیق هرچه بیشتر دارم.
خدای بزرگ ایران عزیز و ملت بزرگوار را از این وضعیت خطیر و دشوار به سلامت بگذراند.
۱۳ تیر ۱۴۰۳
ارسال وسیع یک پیامک به وحانیون برای تبلیغ علیه پزشکیان سوژه فضای مجازی شد.
انتخاب نوشت: در ادامه تلاشها برای تغییر رای روستاییان و مردم سایر مناطق کشور در تازه ترین اقدام پیامک هایی وسیع برای روحانیون جهت فعالیت علیه پزشکیان ارسال شده است.
در متن این پیامک که از سوی مجمع رهروان امر به معروف و نهی از منکر ارسال شده است آمده:
«سلام طلاب عزیز چنانچه فجایع سیاسی اقتصادی و فرهنگی دولت روحانی را برای انتخابات تبلیغ میکنید عدد ۱ را به همین سامانه تا ۱۵ تیر پیامک کنید تا به قید قرعه ۲۰ میلیون ریال هدیه بگیرید.
سلام طلاب عزیز : با سفر به محل تبلیغ یا شهر تولد خود و یا از طریق فضای مجازی و تماس تلفنی خطرات فجیح انتخاب هم پیمانان دولت روحانی که منجر به تعطیلی کارخانه ها ، رکود اقتصادی کاهش نفوذ منطقه ای و جهانی ... به مردم متذکر شوید.
مجمع رهروان امر به معروف و نهی از منکر»
جوان آنلاین: ستاد انتخاباتی مسعود پزشکیان از فهرست طولانی رسانههایی پردهبرداری کرد که مورد شکایت این ستاد قرار گرفتهاند!
رسانههای حامی پزشکیان متن نامهای را منتشر کردهاند که علی عبدالعلیزاده، رئیس ستاد انتخاباتی پزشکیان به رئیس قوه قضائیه، رئیس ستاد انتخابات کشور و همچنین دادستان کل کشور و سخنگوی شورای نگهبان مدعی «مداخلات آشکار و نهان» برخی رسانههای به زعم او «حاکمیتی» در انتخابات «علیه پزشکیان و تبلیغ به نفع رقیب» شده است. او در این نامه مشخصاً از روزنامههای کیهان و جوان و فرهیختگان و خبرگزاریهای فارس و تسنیم و دانشجو نام برده است. عبدالعلیزاده خواستار رسیدگی قضایی و در واقع برخورد با این رسانهها شده است.
از بیانات رهبری هم بوضوح مشخصه که اصلح آقای سعید جلیلی است و اگر ایشان باشند برای نظام در درجه اول و بعد مردم مذهبی بهتر است .
davat.drjalily.com
خیلی ها هنوز برای شرکت در انتخابات مردد هستن.
یکسری هم که تصمیم قطعی گرفتن که شرکت نکنن یا تصمیم قطعی گرفتن که به پزشکیان و دولت سوم روحانی رای بدن، الان وقتش نیست که برای تغییر نظرشون کاری بکنیم.
شاید باورش سخت باشه ولی بعضی ها که صرفا مردد هستن رو خیلی وقت ها با یک تماس ساده میشه بهشون کمک کرد تصمیم قطعی بگیرن و به دکتر جلیلی رای بدن.
پیامک کنگره ملی در ساعت ۲۲:۱۲ شب ۱۴ تیر ۱۴۰۳
همشهری عزیز بیش از ۲۴۰۰۰ شهید در شهر تهران برای حفظ کشور خون دادهاند.
با شرکت در انتخابات حافظ کشور و خون شهیدانش باشیم.
لغو 11l.eu/k
پیامک کنگره ملی در ساعت ۱۵:۱۴ روز ۱۵ تیر ۱۴۰۳
هموطن عزیز شهدا پای صندوقهای رای منتظر حضور موثر شما هستند، درنگ جایز نیست.
لغو 11l.eu/k
حجت الاسلام و المسلمین سید محمد خاتمی در گفت و گو اختصاصی تصویری با جماران در روز رای گیری مرحله دوم انتخابات ۱۴۰۳ گفت:: امروز جوری نباشد که بعدا افسوس بخوریم از اینکه فرصت را از دست دادیم؛ همه بیایند و با شوق و به امید بهبود و به امید سربلندی ایران و انشاءالله که موفق باشند.
«صغری احمدی» اهل روستای درپرچین اسفراین با ۱۰۰ سال با شرکت در دور دوم انتخابات چهاردهمین دوره ریاست جمهوری رای خود را به صندوق انداخت.
پیامک ارسالی از طرف وزارت کشور ۱۵ تیر ۱۴۰۳ ساعت ۱۸:۵۳ :
مقام معظم رهبری: کسانی که اسلام و جمهوری اسلامی و پیشرفت کشور را دوست دارند، این موضوع را با حضور خود در انتخابات نشان دهند.
وزارت کشور
رویداد 24 هم به نقل از مصطفی فقیهی، روزنامه نگار خبر داده است: انتخابات به دور دوم رفت. پزشکیان نه با آراء خاکستری که با سبد رأی رئیسی و آراء تکلیفی اول شد. جلیلی دوم شد و قالیباف سوم. در دور دوم از آنجا ۶۰ درصد حامیان قالیباف آرای خود را شاید سفید بدهند اما به جلیلی نه پس از هماینک میتوان پزشکیان را رئیسجمهور ایران دانست.
دولت چهاردهم دولت مسعود خواهد بود یا دولت سعید؟
«بغی» یکی از اتهاماتی است که قانون مجازات اسلامی به آن پرداخته است. بنا بر ماده ۲۸۷ قانون مجازات اسلامی، «باغی» کسی است که علیه «اساس نظام جمهوری اسلامی» دست به مبارزه و اقدام «مسلحانه» بزند.
بالاخره جراح قلب ، دکتر پزشکیان با حدود ۱۶ میلیون و اندی رای و اختلاف دو میلیون و هفتصد نسبت به دکتر جلیلی به مسند ریاست جمهوری ۱۴۰۳ رسید
«مردم عزیز ایران انتخابات تمام شد و این تازه آغاز همراهی ماست. مسیر دشوار پیش رو جز با همراهی، همدلی و اعتماد شما هموار نخواهد شد؛ دستم را به سوی شما دراز میکنم و به شرافتم سوگند میخورم که در این راه تنهایتان نخواهم گذاشت؛ تنهایم نگذارید.»
۱۶ تیر ۱۴۰۳ در پیام تبریک دکتر زاکانی به منتخب ملت
اینک تمام برنامههایم را که با پشتوانه جمع بزرگی از نخبگان نگاشته شده است را به رئیس جمهور منتخب تقدیم میکنم و با علم به سنگینی بار دولت، انتظار میرود رئیس جمهور منتخب با انتخاب کابینهای قوی و توانمند، معتقد و مومن به مبانی انقلاب، پر کار و پر تلاش و دارای برنامه و نقشه راهی عالمانه، راه خدمت به مردم را پیش گرفته تا گره از مشکلات مردم گشوده شده و راه رسیدن به قلههای امید و افتخار و پیشرفت و آبادانی ایران سربلند هموار گردد.»
یکی از خطاهای جبهه انقلاب
نامزدهای پوششی؛ خطای بزرگ دیگر فرستادن زاکانی و قاضیزاده هاشمی بود در حالی که بارها گفتند کنار نمیروند ولی رفتند و نماد دروغ و دستکم حرف مفت شناخته شدند. طبیعی است که مردم صداقت را بر دروغ ترجیح میدهند. قاضی زاده هاشمی یک بار به ابراهیم متقی و نوبت بعد به حسین انتظامی گفت تا آخر میماند اما نماند. زاکانی هم در واکنش به آن طعنه مشهور پزشکیان (تاآخر می مونی دیگه؟!) گفت: بله و نمیگذارد او رییس جمهوری شود.
وزیر نفت دولت روحانی خطاب به پزشکیان نوشت: خدایا صدهزار بار شکرت که قفس را شکستی به طریقی که هیچکس تصورش را هم نمیکرد.
آمار کل رأی ایرانیان در خارج از کشور در مرحله دوم انتخابات چهاردهمین دوره ریاست جمهوری ۸۸ هزار و ۳۲۵ برگه رأی بود. از مجموع این آراء ۳۶ هزار و ۱۶۹ نفر به مسعود پزشکیان و ۵۰ هزار و ۲۰۶ نفر به سعید جلیلی رای داده بودند.
ببینید: یک جهان انتصاب، چهار سال جهش / نگاهی به انتصابات دقیقه ...
۲۲ تیر ۱۴۰۳ ( می خواهند آخر کاری هر کاری که به ضررشان بود را تصویب کنند
سرویس صنعت برق: علی اکبر محرابیان بعد از آنکه تقریبا مسجل شد از وزارت نیرو رفتنی است در اقدامی عجیب، آیین نامه تبدیل وضعیت نیروهای غیررسمی که ۳ سال بود در کشوی میزش خاک میخورد را ابلاغ کرد. این ابلاغیه تبدیل وضعیت که برای شرکتهای وابسته وزارت نیرو ابلاغ شد قرار بود نیروههای غیررسمی که ۱۵ سال سابقه بیمه داشته و ۱۰ سال آن در صنعت آب و برق بوده باشد در صورت وجود چارت تبدیل وضعیت شوند.
عنابستانی نماینده سبزوار در مجلس یازدهم، موفق به راهیابی به مجلس دوازدهم نشد و حالا جلوی انتصاب غیرقانونی او در وزارت رفاه هم واپسین روزهای دولت گرفته شده است. او همان نماینده ایست که به دلیل ایست دادن پلیس راهنمایی و رانندگی به خودروی او در خط ویژه، سیلی به صورت سرباز وظیفه زده بود.
سایت drjalily.com در ۱۵ تیر ۱۴۰۳ ساعت ۱۵:۵۶
ردیف | شرح هزینه | مبلغ نهایی (ریال) |
---|---|---|
1 | هزینه ابنیه و تأسیسات | |
2 | هزینه حملونقل | |
3 | هزینه ارتباطات و رسانه | |
4 | هزینه تجهیزات و ملزومات | |
5 | هزینههای جاری | |
6 | هزینه اجاره محل | |
7 | هزینه تبلیغات | |
مجموع |
ردیف | عنوان | مقدار |
---|---|---|
1 | کل واریزیها و اهدایی به حساب | |
2 | کل مبلغ برگشت به حساب | |
3 | تعداد تراکنشهای واریزی | |
4 | میانگین مبلغ بر اساس تراکنشها | |
5 | تعداد تراکنشهای زیر ۱۰۰ هزار تومان | |
6 | تعداد تراکنشهای ۱۰۰ تا ۲۰۰ هزار تومان | |
7 | تعداد تراکنشهای ۲۰۰ تا یک میلیون تومان | |
8 | تعداد تراکنشهای یک تا پنج میلیون تومان | |
9 | تعداد تراکنشهای پنج میلیون تومان به بالا |
تیر ۱۴۰۳
پیش از این و طبق تعاریف مندرج در این آیین نامه مادر فاقد شوهر، به مادری اطلاق می شد که همسرش فوت کرده و یا طلاق گرفته باشد و در زمان رسیدگی فاقد همسر دایم باشد. این امر سبب شکل گیری پدیده طلاق های صوری برای استفاده از معافیت سربازی برخی خانواده ها شده بود؛ در این شیوه والدین توافق می کردند که از یکدیگر طلاق بگیرند و پس از معافیت فرزندشان، به صورت عقد موقت طولانی مدت به زندگی مشترک ادامه می دادند
صیحه آسمانی قبل از قتل نفس زکیه
ندایی است آسمانی که نام حضرت مهدی علیه السلام را به گوش همه مردم جهان میرساند. این ندای بلند از جبرئیل علیه السلام است و در شب ۲۳ رمضان ( به احتمالی ) به گوش میرسد و همه مردم زمین آن را به زبان خود میشنوند..... صیحه نه گوش خراش است ( بواسطه نزدیک بودن ) نه آهسته ( بواسطه دور بودن ) همه آنرا به یک نحو و مساوی درک می کنند بسیاز زیبا ، دلنشین و برّا
خداوند می فرماید : اگر بخواهیم از آسمان نشانهاى بر آنها فرو مىفرستیم تا گردنهاى آنها در برابر آن (به اجبار ) خاضع گردد.
مکانِ مقدس در شهری محترم : بخشى از مسجد الحرام و مقدّس ترین مکان آن، حَطیم است که حدود آن، عبارت اند از : رُکن حجر الأسود، درِ کنونى کعبه و مقام ابراهیم
۱۸ تیر ۱۴۰۳
زیاده روی در هر غذایی معمولاً سالم نیست. در مورد گیلاس، مصرف بیش از حد آن سالم نخواهد بود زیرا به معنای مصرف زیاد قند و مصرف بیش از حد فیبر اضافی است که ممکن است باعث نفخ، اسهال و افزایش وزن شود.
مصرف زیاد قند به مرور زمان موجبات پوکی استخوان را فراهم می سازد بیشتر از ۳۰ گرم معادل حدود ۷ حبه قند در روز مضر خواهد بود
تیر ۱۴۰۳
تب دِنگی در ایران نیز مشاهده گردید . داروی خاصی برای درمان عارضه تب دِنگی وجود ندارد .
There is no specific medicine to treat dengue infection. If you think you may have dengue fever, you should use pain relievers with acetaminophen and avoid medicines with aspirin, which could worsen bleeding. You should also rest, drink plenty of fluids, and see your doctor.
۲۰ تیرماه ۱۴۰۳ و هشدار تب دِنگی در ایران
۲۰ تیر ۱۴۰۳ ساری- رییس دانشگاه علوم پزشکی مازندران از مشاهده ورسیدن پشه آئدس در استان خبر داد.
شهنام عرشی، رئیس مرکز مدیریت بیماریهای واگیر وزارت بهداشت ایران در گفتوگو با رسانههای داخلی از ابتلای ۱۴۹ نفر به بیماری تب دنگی در این کشور خبر داد.
بیشتر موارد تب دنگی را می توان در خانه با داروهای مسکن درمان کرد. استامینوفن (پاراستامول) اغلب برای کنترل درد استفاده می شود. از مصرف داروهای ضدالتهابی غیراستروئیدی مانند ایبوپروفن و آسپرین اجتناب می شود زیرا می توانند خطر خونریزی را افزایش دهند. برای افراد مبتلا به دنگی شدید، اغلب نیاز به بستری شدن در بیمارستان است.
If you get dengue, it’s important to:
۲۴ تیرماه ۱۴۰۳
ایرنا : تعداد نهایی شهروندان گلوگاهی که در روزهای ۲۴ و ۲۵ تیر ۱۴۰۳ به دلیل نوشیدن آب یا شربت از چند موکب عزاداری دچار مسمومیت شده بودند بنا به اعلام مدیر شبکه بهداشت و درمان گلوگاه ۹۲۵ نفر است که همگی با دریافت دارو و تزریق سرم ترخیص شدند و موردی از شرایط وخیم حال این شهروندان نیز ثبت نشد.
به گفته ابراهیم خادملو نخستین مراجعه به بیمارستان ثامنالائمه (ع) این شهرستان، از ساعت ۳۰ دقیقه بامداد روز سهشنبه ۲۶ تیر آغاز شد و از ساعت چهار بامداد تا ساعت ۲۳ به مدت حدود ۱۹ ساعت اوج مراجعات شهروندان گلوگاهی با نشانههای مسمومیت غذایی به این بیمارستان ثبت شد.