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

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

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

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

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

شئ رکوردست برای حذف یا اضافه کردن رکورد یا حتی ویرایش




در رکوردست میتوان به دستکاری داده ها دست یافت مثل حذف ، اضافه یا ویرایش رکورد



رکوردست نوع snapshot حاوی فیلدهای یک یا چند جدول می تواند باشد اما قادر به Update شدن را ندارند.



در نوع ForwrdOnly فقط می توانید در رکوردها پیماش ( scroll )  کنید. بهبود اجرا در کوئری pass through 


This improves performance in situations where you only need to make a single pass through a result set.


To run a query on a database server, use a pass-through query which is a Transact SQL (TSQL) statement that connects to SQL Server by using an ODBC connection string




Type of recordset to open



dbOpenDynamic
Opens a dynaset-type Recordset

dbOpenDynaset
Opens a dynaset-type Recordset

dbOpenForwardOnly
Opens a forward-only type Recordset

dbOpenSnapshot
Opens a snapshot-type Recordset

dbOpenTable
Opens a table-type Recordset



برای نسبت دادن متغیر به رکوردست و استفاده از شئ رکوردست از Set استفاده میکنیم


Set Rs=CurrentDb.OpenRecordset(  نوع باز شدن رکوردست ، نام جدول)


آرگومان اول می تواند نام جدول باشد  یا عبارت Sql ( مثلاً فقط چند فیلد از جدول داخل رکوردست واکشی شود یا طبق شرط خاصی و یکسری از رکوردها فهرست شود). هر کدام را استفاده کنید  باید بین دو دابل کوتیشن قرار گیرند.



بردن کرسر به رکورد آخر

Rs.MoveLast

انتقال کرسر به رکورد اول

Rs.MoveFirst

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

Rs.RecordCount

انتقال کِرسر به رکورد بعدی

Rs.MovNext

انتقال موقعیت رکورد جاری در شیء رکوردست

Rs.Move (Rows,StartBookmark)


The number of rows the position will move. If rows is greater than 0, the position is moved forward (toward the end of the file). If rows is less than 0, the position is moved backward (toward the beginning of the file).


اولین رکورد در شیء رکوردست نوع dynaset یا snapshot قرار میگیرد

Rs.FindFirst ( Criteria )




This code moves the cursor to the last record.
DoCmd.RunCommand acCmdRecordsGoToLast






Nested loops in recordset





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



While (Not rs.EOF ) 'Loop 1
For Each field In rs.Fields 'Loop no 2
rowText = rowText & field.Name & "=" & rs.Fields(field.Name) & ", "
Next
Debug.Print rowText
rowText = ""
rs.MoveNext
Wend



The Fields collections of the IndexQueryDefRelation, 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.





















۹ ساعت پیش · عملیات وعده صادق 3 در صورت وقوع ابعاد غیر قابل تصور خواهد داشت ... رژیم اسرائیل و امریکا پس از عملیات وعده صادق 2، با حملات شدید به لبنان، غزه، سوریه و یمن و 



۲۸ دقیقه پیش · اعزام این بمب‌افکن‌ها به منطقه هشدار به ایران محسوب می‌شود که بنا به برخی از گزارش‌ها برای واکنش به حمله اخیر اسرائیل به مراکز نظامی خود آماده


۱ مهر ۱۴۰۲ · بسیاری بر این باورند که ایران رمز محرمانه جنگنده های F-35 را رهگیری کرده است و اکنون، می تواند پروازهای این نوع هواپیماها را کنترل کند


آبان ۱۴۰۳ دانشگاه آزاد




دختر علوم تحقیقات با نام احتمالی آهو دریایی[۲] دانشجوی دختر دانشگاه آزاد اسلامی واحد علوم و تحقیقات تهران است. موضوع دخالت مأموران حراست دانشگاه در نحوه‌ی پوشش فردیِ وی و اعتراضِ وی به این موضوع، موجب واکنش مردم به این رخداد و موضوع حجاب اجباری در سطح جامعه شد. در تاریخ ۱۲ آبان ۱۴۰۳ در دانشگاه آزاد اسلامی واحد علوم و تحقیقات تهران مأموران حراست و بسیج دانشگاه با زور قصد داشتند این دختر دانشجو را به بهانه حجاب و نداشتن مقنعه به داخل اتاقک حراست ببرند اما با مقاومت و اعتراض او، لباسش (هودی مانند) از تنش کنده شد و زیر هودی چیزی جز لباس زیر بر تن او نبود؛ به همین علت مأموران حراست شوکه شده و رهایش کردند[۳]. پس از این ماجرا و نیمه برهنه شدنِ بالاتنه‌اش در طی درگیری، دختر از فرط عصبانیت شلوارش را هم درآورد و به سمت مأموران پرتاب کرد و نیمه برهنه شد و همین موضوع باعث دستگیری خشونت‌آمیز وی شد.[۴][۵][۶][۷][۸][۹] در جریان دستگیری، این دانشجو مورد ضرب‌وشتم و خون‌ریزی قرار گرفت و به مکانی نامعلوم منتقل شد.[۸][۱۰] مسئولان دانشگاه با تکذیب برخورد فیزیکی با این دانشجو، مدعی اختلال روانی وی شدند.[۱۱]




KeyUp
If Len(txtNameFilter.Text) > 0 Then 
filterText = txtNameFilter.Text
Me.Form.Filter = "[Contacts]![first_name] LIKE '*" & filterText & "*' OR [Contacts]![last_name] LIKE '*" & filterText & "*'"
Me.FilterOn = True
txtNameFilter.Text = filterText txtNameFilter.SelStart=Len(txtNameFilter.Text)
Else
Me.Filter = ""
Me.FilterOn = False
txtNameFilter.SetFocus
End If









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




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




اگر در MainForm یا فرم اصلی هستید : 


اشاره به پراپرتی Enabled کنترل در فرم اصلی 


Me!ControlName.Enabled


اشاره یا ارجاع به پراپرتی کنترل در سابفرم ۱


Me!Subform1.Form!ControlName.Enabled


اشاره به پراپرتی کنترل سابفرم ۲ که مجموعه سابفرم ۱ است


Me!Subform1.Form!Subform2.Form!ControlName.Enabled




اگر در سابفرم ۱ هستید :



ارجاع به پراپرتی کنترل در فرم مادر یا فرم اصلی


Me.Parent!ControlName.Enabled

ارجاع به پراپرتی کنترل سابفرم ۱ در خود سابفرم

Me!ControlName.Enabled

ارجاع به پراپرتی کنترل سابفرم ۲ 

Me!Subform2.Form!ControlName.Enabled




مثال زیر با استفاده از ویژگی Form  به کنترلی در زیرفرم اشاره می کند


The following example uses the Form property to refer to a control on a subform.


Dim curTotalAmount As Currency
curTotalAmount = Forms!Orders!OrderDetails.Form!TotalAmount 


اشاره به کنترلی در زیرفرم

فرم اصلی : 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 در  سابفرم تو در تو


[Forms]![IncidentDetails]![CtrlLogDetail].[Form]![ctrlType].[Form].[cboType]


فرم اصلی : IncidentDetails

سابفرم درون فرم اصلی : CtrlLogDetail

سابفرم درون سابفرم اول : ctrlType

کنترل داخل سابفرم دوم : cboType




اشاره به پراپرتی AllowEdits سابفرم ۳ و تنظیم به False که اجازه  ویرایش نمی دهد.


Forms!frmMain!sub1.Form!sub2.Form!sub3.Form.AllowEdits = False


فرم اصلی : frmMain

سابفرم ۱ : Sub1

سابفرم ۲ داخل ساب ۱ : Sub2

سابفرم ۳ داخل ساب ۲ : Su 3






























Public WithEvents txt1 As Access.TextBox
Private frm2 As Access.Form
Public Property Get sFrm() As Access.Form
Set sFrm = frm2
End Property
Public Property
Set sFrm(ByRef frmValue As Access.Form)
Set frm2 = frmValue
End Property
Private Sub txt1_AfterUpdate()


----------------------------------------------



Function Animate() Dim frmSplash as Form Dim i as Integer DoCmd.OpenForm "Splash" Set frmSplash = Forms("Splash") For i = 1 To 20 frmSplash(i).Visible = True frmSplash(i-1).Visible = False DoCmd.RepaintObject Next End Function




---------------------------------------------



Public Function LockEmAll(bLock As Boolean)
Dim frm As Form

For each frm in Forms
Call LockEm(frm, bLock)
Next

Set frm = Nothing
End Function

Private Function LockEm(frm As Form, bLock As Boolean)
Dim ctl As Control

With frm
If .Dirty Then
.Dirty = False
End If
.AllowEdits = bLock
.AllowDeletions = bLock
.AllowAddtions = bLock

For each ctl In .Controls
If ctl.ControlType = acSubForm Then
Call LockEm(ctl.Form, bLock)
End If
Next
End With
End Sub








ویژگی Filter در فرم





Form.Filter Property




Use the Filter property to specify a subset of records to be displayed when a filter is applied to a form, report, query, or table. Read/write String.



از ویژگی Filter برای ذخیره یک فیلتر و بکار بردن آن در زمان دیگری استفاده کنید . فیلترها با اشیاء در جایی که ساخته شده اند ذخیره می شوند  . آنها بصورت خودکار زمانیکه شئ مثل فرم باز می شود بارگذاری می شود اما بصورت خودکار اعمال نمی شوند.



عبارتی که می دهد بدون Where است می توانید سابفرم را فیلتر کنید و عبارت پراپرتی فیلتر آنرا در متغیری ذخیره کنید و  نمایش آنرا در قالب Msgbox یا در TextBox ببینید



Me.Filter="Country='USA'"

Me.FilterOn=True



Dim Form As Form

Set Form = Forms("fmClientLogDtls2")

Form.Filter = "logDtlsID = " & Me!logDtlsID.Value & ""
Form.FilterOn = True



Subform.Form Property



Use the Form property to refer to a form or to refer to the form associated with a subformcontrol. Read-only Form.



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



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



مثال :  رجوع به مقدار ذخیره شده ( پراپرتی Value بعد از رفتن فوکوس به جای دیگر مقدار میگیرد ) کنترل MyTextBox در ( کنترل ) سابفرم با نام SubformControl4  که در سابفرم ۳  قرار گرفته  و ۳ در ۲ و ۲ در MySubformControlName ... خلاصه سابفرم در سابفرم است بشتابید  !!!


Forms(“MainFormName”). Controls(“MySubformControlName“). Form.Controls(“SubformControl2”). Form.Controls(“SubformControl3”). Form.Controls(“SubformControl4”). Form.Controls("MyTextBox").Value




Controls.Count Property


Use the Count property to determine the number of items in a specified collection. Read-only Long.



Forms("Form1").Controls.Count 



شماره ایندکس از صفر شروع میشود پس باید Count-1 شود.

ایندکس می تواند تغییر کند ( مثلا در حذف جدول و دوباره ایجاد کردن با همان نام )  پس بهتر است نام فرم ذکرشود










استفاده از اکشن های SysCmd در اکسس مخصوصاً جهت نوار پیشرفت




acSysCmdAccessDir : 9

Returns the name of the directory where Msaccess.exe is located.

acSysCmdAccessVer : 7

Returns the version number of Microsoft Access.

acSysCmdClearHelpTopic : 11

acSysCmdClearStatus5Provides information on the state of a database object.

acSysCmdGetObjectState : 10

Returns the state of the specified database object. You must specify argument1 and argument2 when you use this action value.

acSysCmdGetWorkgroupFile : 13

Returns the path to the workgroup file (System.mdw).

acSysCmdIniFile : 8

Returns the name of the .ini file associated with Microsoft Access.

acSysCmdProfile :12

Returns the /profile setting specified by the user when starting Microsoft Access from the command line.

acSysCmdRuntime : 6 

Returns True (1) if a run-time version of Microsoft Access is running.

acSysCmdInitMeter : 1

Initializes the progress meter. You must specify the argument1 and argument2 arguments when you use this action.

acSysCmdUpdateMeter : 2 

Updates the progress meter with the specified value. You must specify the text argument when you use this action.

acSysCmdRemoveMeter :3 

Removes the progress meter.

acSysCmdSetStatus : 4 

Sets the status bar text to the text argument.



SysCmd(acSysCmdGetObjectState, acTable, obj.Name)



expression.SysCmd(Action,Arg2,Arg3)


Argument2  Optional Variant. A string expression identifying the text to be displayed left-aligned in the status bar. This argument is required when the action argument is acSysCmdInitMeteracSysCmdUpdateMeter, or acSysCmdSetStatus; this argument isn't valid for other action argument values.


You can't set the status bar text to a zero-length string (" "). If you want to remove the existing text from the status bar, set the text argument to a single space.  The text argument can contain approximately 80 characters. 





Note : When the action argument is acSysCmdUpdateMeter, the SysCmd method uses the value argument to calculate the percentage displayed by the meter. For example, if you set the maximum value to 200 and then update the meter with a value of 100, the progress meter will be half-filled.


MyTable.MoveLast
Count = MyTable.RecordCount
MyTable.MoveFirst
SysCmd acSysCmdInitMeter, "Reading Data...", Count
For Progress_Amount = 1 To Count
SysCmd acSysCmdUpdateMeter, Progress_Amount
MyTable.MoveNext
Next
SysCmd acSysCmdRemoveMeter












البته این سایت سایت تولیدی نیست پس اسرائیل رکب خورد















Search in Access

۷ آبانماه ۱۴۰۳










در کوئری  در قسمت شرط یا criteria  فیلد مورد نظر عبارت زیر تایپ می شود 


Like "*" & [Forms]![Form1]![txtSearch] & "*"




متد و پراپرتی های مورد نیاز در رویداد Change تکست باکس : 


*Form.Requry


The Requery method updates the data underlying a specified form by requerying the source of data for the form.


*Form.Refresh


The Refresh method immediately updates the records in the underlying record source for a specified form or datasheet to reflect changes made to the data by you and other users in a multiuser environment.


*Text ( Searchtxt.Text )


While the control has the focus, the Text property contains the text data currently in the control; the Value property contains the last saved data for the control. When you move the focus to another control, the control's data is updated, and the Value property is set to this new value.



فرق ویژگی Text و Value : اولی حاوی داده جاری و دومی داده ذخیره شده البته بعد از ترک فوکس از تکست باکس.



*SelStart


The SelStart property uses an Integer in the range 0 to the total number of characters in the text box portion of a combo box.

To set or return this property for a control, the control must have the focus. To move the focus to a control, use the SetFocus method.

Changing the SelStart property cancels the selection, places an insertion point in the text, and sets the SelLength property to 0.



SelText 

If no text is selected, the SelText property contains a Null value.

The SelText property uses a string expression that contains the text selected in the control. If the control contains selected text when this property is set, the selected text is replaced by the new SelText setting.

To set or return this property for a control, the control must have the focus. To move the focus to a control, use the SetFocus method.


Event : OnKeyPress


The KeyPress event occurs when a user presses a key while a form or control has the focus. This event also occurs if you send a keystroke to a form or control by using the SendKeys action in a macro or the SendKeys statement in Visual Basic.




تعیین متغیر از نوع Boolean در استاندارد ماژول ، در صورتیکه در رویداد key press کلید space با کد اسکی 32 فشرده شد ، False شود








جمهوری اسلامی دیگر حریف بدحجابی ها نخواهد شد مخصوصاً در متروها ، میادین اصلی و دانشگاه های معتبر و رتبه برتر.



-صبح روز دوشنبه ۷ آبان ماه ۱۴۰۳، حدود ۲۰۰ دانشجو به دلیل عدم رعایت مقررات پوشش، توسط حراست دانشگاه امیرکبیر از ورود به محوطه دانشگاه منع شدند.
-بر اساس گزارش‌ها، این اقدام در سه ورودی دانشگاه از خیابان‌های حافظ، ولیعصر و رشت صورت گرفت و دانشجویان مذکور موفق به حضور در کلاس‌های خود نشدند.
-خبرنامه امیرکبیر همچنین اعلام کرده است که تعدادی از دانشجویانی که نسبت به این اقدام اعتراض داشتند، به اتاقک‌های حراست دانشگاه منتقل شده و مورد بازجویی قرار گرفتند./ امتداد
@khabarfarda_ir














لینک کردن رکوردها در فرم به زیر فرم




SubForm.LinkMasterFields property (Access)



از ویژگی 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)








۱۰ مهر ۱۴۰۳ حوالی ساعت ۲۰:۳۰ پرتاب ۲۰۰ موشک بالستیک به اسرائیل ( کمتر از ۱۲ دقیقه )





۲ روز پیش · نتانیاهو به حکومت ایران هشدار داد جایی در منطقه وجود ندارد که دست اسرائیل به آن نرسد. او به مردم ایران گفت که "آزادی" آنها زودتر از آنچه 



مهر ۱۴۰۳

اسرائیل نقاط حمله به ایران را مشخص کرد

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

16.10.2024 - به‌روز رسان : 17.10.2024
اسرائیل نقاط حمله به ایران را مشخص کرد







شئ OpenAsTextStream برای خواندن فایل متنی



باز کردن فایل مشخص شده و بازگشت یک شئ TextStream که می تواند برای خواندن از فایل ، نوشتن روی فایل یا اضافه کردن به فایل استفاده شود.


نوشتاری : 

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

The OpenAsTextStream method syntax has these parts:


Object : بردن نام شئ ضروریست . همیشه نام شئ File

iomode : اختیاریست . حالت Input / Output را مشخص میکند و می تواند یکی از ۳ ثابت ForReading ، ForWriting و ForAppending باشد.

format : اختیاری ، برای نشان دادن فرمت فایل بازشده استفاده می شود. اگر خالی رها شود ، فایل در حالت ASCII باز میشود ... مثلا برای باز کردن به حالت پیش فرض عدد ثابت ۲- 





ConstantValueDescription
ForReading1Open a file for reading only. You can't write to this file.
ForWriting2Open a file for writing. If a file with the same name exists, its previous contents are overwritten.
ForAppending8Open a file and write to the end of the file.
ConstantValueDescription
TristateUseDefault-2Opens the file by using the system default.
TristateTrue-1Opens the file as Unicode.
TristateFalse0Opens the file as ASCII.

توضیحات : 

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


 
ReadReads a specified number of characters from a TextStream file and returns the result.
ReadAllReads an entire TextStream file and returns the result.
ReadLineReads one line from a TextStream file and returns the result.
SkipSkips 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

Set fso =CreateObject("Scripting.FileSystemObject")
Set fileObject =fs.GetFile("test1.txt")
Set  myfile=fileObject.OpenAsTextStream(ForReading, TristateUseDefault)
Magbox myfile.ReadAll
myfile.Close






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&#1601;فARABIC LETTER FEH
U+0642قd9 82&#1602;قARABIC LETTER QAF
U+0643کd9 83&#1603;کARABIC LETTER KAF
U+0644لd9 84&#1604;لARABIC LETTER LAM
U+0645مd9 85&#1605;مARABIC LETTER MEEM
U+0646نd9 86&#1606;نARABIC LETTER NOON
U+0647هd9 87&#1607;هARABIC LETTER HEH
U+0648وd9 88&#1608;وARABIC LETTER WAW
U+0649ىd9 89&#1609;ىARABIC LETTER ALEF MAKSURA
U+064Aیd9 8a&#1610;یARABIC LETTER YEH









?Hex(&H & 1740)





read a binary file






Sub Temp()
Dim intFileNum%, bytTemp As Byte, intCellRow%
intFileNum = FreeFile
intCellRow = 0
Open "C:\temp.bin" For Binary Access Read As intFileNum
Do While Not EOF(intFileNum)
intCellRow = intCellRow + 1
Get intFileNum, , bytTemp
Cells(intCellRow, 1) = bytTemp
Loop
Close intFileNum
End Sub








کپی داده های جدول به جدول دیگر با فیلدها و دیتا تایپ های یکسان با Insert Into






در تصویر زیر کاملاً مشهود است ( تمام داده ها در جدول t1  محتوی ۱۴ رکورد را Delete کردیم و مجدداً تک  رکورد اضافه نُمودیم ) ، جدول t1 تنها شامل یک رکورد با ID=101 است در عبارت SQL با دستور INSERT INTO تمام محتویات داخل جدول t که شامل ۱۴ رکورد است به جدول t1 کپی شده ... Primary key باعث شده که ID تکرای نگیرد البته خطا تولید می کند














Create Table t (ID int not null,Grade varchar(5),Gen varchar(6),Primary key(ID))










امکانات و مزایای باورنکردنی دانشگاه صداوسیما مهر ۱۴۰۳



امکانات تحصیلی دانشگاه صداوسیما امکانات جامعی است هم از حوزه رفاهی خوابگاه دانشگاه رایگان است که در اختیار دانشجویان روزانه قرار می‌گیرده، یک کمک هزینه تحصیلی در اختیار دانشجویان قرار میگیرد که مبلغ آن امسال دو برابر شده است، یک میلیون و ۴۰۰ هزار تومان برای دانشجویان مجرد، دو میلیون و ۵۰۰ هزار تومان برای دانشجویان متاهل و برای دانشجویان نخبه هم که رتبه برتر کشوری دارند سه میلیون و ۵۰۰ هزار تومان کمک هزینه تحصیلی به صورت ماهیانه پرداخت می شود، تغذیه هم در همه روز‌های هفته در اختیار دانشجویان است امکانات ورزشی سالن چند منظوره و اینترنت رایگان و تمام امکاناتی که دانشجو نیاز دارد در طول تحصیل در اختیار دانشجویان قرار می‌گیرد.

وی گفت: در تمام رشته ها به جز رشته کاردانی فنی الکترونیک که از داوطلبان مرد دانشجو می گیرد، هم از داوطلبان خانم و آقا دانشجو می پذیرد. در رشته کاردانی فنی الکترونیک اتفاقی که امسال نخستین بار افتاد این است که دانشگاه براساس سوابق تحصیلی هم دانشجو می‌پذیرد داوطلبانی که دیپلم دارند منتهی در کنکور شرکت نکردند این امکان وجود دارد از ۱۴ شهریور تا ۱۸ شهریور ثبت نام کنند در سایت سنجش و براساس سوابق تحصیلی مثل کاردانی فنی الکترونیک دانشگاه صداوسیما را انتخاب کنند.






فیلتر در اکسس با استفاده از Select Query



قبل از کار با زبان SQL مخصوص اکسس و استفاده از Select Query برای فیلتر یک ستون و بیشتر طبق شرط ها باید با عملگرهای منطقی آشنا شوید تا به نوشتن سِلِکت کوئری و استفاده صحیح از آنها مسلط شوید ( این نحوه از Sql نویسی برای فیلتر پیشرفته [ استفاده از کوئری و نه کدنویسی ویژوال ] در اکسس بارها با شکل و توضیح عملگرها مکرراً بیان شده است مثل تصویر زیر ).


در زیر جدولی با نام t و دو ستون ایجاد شده و هر بار طبق ورودی داده هایی را فهرست می کند.

شرح اشکال تصویر به ترتیب : 

- جدول دارای ۱۱ رکورد است.

- ID مساوی و بزرگتر از ۲۷ فیلترشده.

- ID بین ۲۷ و ۳۳ در جدول لیست شده.

- ID کوچکتر مساوی ۳۳ نمایش داده شده.

- طبق داده های ستون Educa فیلتر شده یعنی رکوردهایی که شامل A یا B است.

- رکوردهایی که ID آنها بزرگتر مساوی ۲۷ و داده فیلد Educa آنها شامل A یا B باشد نمایش داده شده.

- در شکل آخر نیز تمام رکوردهای جدول نمایش داده شده  یا بعبارتی از فیلتر خارج شده .


برای Sort کردن بصورت صعودی یا نزولی میتوان از Order By که Optional است در عبارت SQL استفاده نُمود . مثل Order By ID ASC

Asc : [ A-Z],[0-9]

Desc : [Z-A],[9-0]


SELECT fieldlist
FROM table
WHERE selectcriteria
[ORDER BY field1 [ASC | DESC ][, field2 [ASC | DESC ]][, ...]]]


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














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







فرق پراپرتی 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 dataNull is not the same as Empty, which indicates that a variable has not yet been initialized. It is also not the same as a zero-length string (""), which is sometimes referred to as a null string.


Important:  Use the IsNull function to determine whether an expression contains a Null value. Expressions that you might expect to evaluate to True under some circumstances, such as If Var = Null and If Var <> Null, are always False. This is because any expression containing a Null is itself Null and, therefore, False.



نکته : هر عبارتی حاوی یا شامل داده نامعتبر به تنهایی NULL است و بنابراین FALSE 




بی انصافیه واقعاً با این همه توضیحات و رفرنس دوستان امتیاز خیلی کم به وبلاگ بدهند.





۴۹ دقیقه پیش · مجید عشقی، رئیس سازمان بورس و اوراق بهادار با ارسال نامه‌ای به طور رسمی از سمت خود استعفا داد. استعفای او سه روز پس از افشای وام‌های کم‌بهره



۲ روز پیش · مجید عشقی و اعضای هیئت مدیره سازمان بورس از منابع این سازمان وام‌های میلیاردی با سود چهار درصد برداشت کرده‌اند. به گزارش تجارت نیوز،






۱۵ شهریور ۱۴۰۳



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

 جماران: آیت‌الله سروش محلاتی در سخنرانی شب شهادت امام رضا(ع) در کانون توحید تهران، میراث فرهنگی و مواضع امام رضا(ع) را شبیه امام علی(ع) دانست و در بیان علت این شباهت گفت: در میان امامان، امام علی خلافت ظاهری داشت و امام رضا هم در ولایتعهدی شبه خلافت داشت و بقیه امامان کناره گیری یا معارضه با حکومت داشتند.













تابع WNDPROC




یک تابع پاسخ به تماس، که در برنامه خود برای پردازش پیام های ارسال شده به یک پنجره تعریف می کنید . نوع WNDPROC یک Pointer یا اشاره گر برای این تابع برگشتی را تعریف می کند. نام WndProc یک جایبان ( جایگاه متنی )  برای نام تابعی است که در برنامه خود تعریف می کنید.



Private Function NewWindowProc(ByVal hwnd As Long, ByVal Msg _ As Long, ByVal wParam As Long, ByVal lParam As Long) As _ Long 

Dim bFormIsActivated As Boolean 

If Msg = WM_ACTIVATE Then 

bFormIsActivated = wParam 

If bFormIsActivated = True Then 

'\refresh text when form gaining focus 

'Call RotateTextNow 

End If 

Exit Function 

End If 

NewWindowProc = CallWindowProc(lOldWindowProc, hwnd, Msg, wParam, lParam) 

End Function





public const int WM_ACTIVATE = 6

System 64bit

Declare PtrSafe Function CallWindowProcA Lib (ByVal lpPrevWndFunc As LongPtr, ByVal hWnd As LongPtr, ByVal Msg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr



فرآیند پیش‌فرض پنجره را فراخوانی می‌کند تا پردازش پیش‌فرض را برای هر پیام پنجره‌ای که برنامه پردازش نمی‌کند، ارائه دهد. این تابع تضمین می کند که هر پیامی پردازش می شود. DefWindowProc با همان پارامترهای دریافت شده توسط رویه پنجره فراخوانی می شود.









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

حمله به اسرائیل در پی ترور اسماعیل هنیه در منطقه زعفرانیه تهران زودتر از ۲۸ صفر نخواهد بود ( دلایل امنیتی مخصوصا راهیان کربلا و شلوغ بودن مرزها )


۲۷ فروردین ۱۴۰۳ · 3 - اگر بین ایران و اسرائیل جنگی تمام عیار در بگیرد، حتماً کشورمان همانند وضعیت عراق در جنگ با آمریکا، دچار آسیب های جدی خواهد شد و از این رو،


درخواست مبینا نعمت زاده و موافق مسعود پزشکیان با حضور بدون کنکور در دانشکده پزشکی با واکنش تند مردم همراه شد.



برای شئ 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

۵ شهریور ۱۴۰۳
۴ ساعت پیش · توهین به مهسا امینی در تلویزیون؛ «نفله شده دختر کرد سنی» (فیلم) ... این استاد دانشگاه گفت: در اعتراضات سال ۱۴۰۱، پیش بینی دشمن این بود که وقتی این 



۱۸ مرداد ۱۴۰۳
۲ ساعت پیش · نخست وزیر اسرائیل تهدید کرد: حزب‌الله باید به عواقب حمله به اسرائیل و شروع یک جنگ گسترده‌تر فکر کند.



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



۲ روز پیش · تصمیم به ترور هنیه که پس از ۷ اکتبر گرفته شد، نیازمند مجموعه‌ای پیچیده از ترتیبات شبکه‌ای از جاسوسان موساد بوده که در سراسر تهران پراکنده بودند


۱۹ مرداد ۱۴۰۳ : ترور عضو ارشد حماس در لبنان

حماس اعلام کرد که سامر الحاج در جریان حمله ددمنشانه رژیم صهیونیستی به شهر صیدا در جنوب لبنان که عصر امروز انجام شد، به شهادت رسیده است.



«سعدالله زارعی» کارشناس مسائل منطقه در پیش از خطبه‌های نماز جمعه این هفته تهران ( مصلی ) ، اظهار داشت: اگر اسرائیل بتواند عملیات ترور را همانند تخریب بیمارستان‌های غزه عادی سازی کند، شاهد تکرار عملیات‌های ترور در سطح جهان اسلام علیه رهبران مقاومت خواهیم بود، لذا پاسخ به عملیات ترور رژیم اسرائیل یک الزام و اجبار برای سر جا نشاندن رژیم صهیونیستی است.


۲۰ مرداد ۱۴۰۳

هدف : کوچاندن اجباری 

در کشتار جدید رژیم صهیونیستی در مرکز شهر غزه در بامداد امروز شنبه بیش از ۱۰۰ نفر شهید و ده‌ها نفر زخمی شدند.

«انس الشریف»، خبرنگار الجزیره در غزه گزارش داد که اشغالگران مدرسه «التابعین» در محله الدرج را بعد از نماز صبح بمباران کردند که با توجه به حضور بین ۴۰۰۰ تا ۵۰۰۰ نفر در مدرسه واقع در خیابان النفق ممکن است تعداد تلفات افزایش یابد.


۱۳ ساعت پیش · ارتش اسرائیل تصاویر ۱۹ فرد را منتشر کرد و گفت آنان عضو حماس و جهاد اسلامی هستند که در حمله بامداد شنبه به نمازخانه مدرسه تابعین در غزه کشته


۲۲ مرداد ۱۴۰۳ و هنوز ملت ها منتظر 

۱۷ ساعت پیش · احتمال حمله ایران به اسرائیل تا 48 ساعت آینده · بیانیه انگلیس ، فرانسه و آلمان : ایران خویشتنداری کند · گمانه زنی الجزیره درباره نحوه پاسخ ایران و ...



سفر خارجی ممنوع!

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


پس از جنایت رژیم صهیونیستی در غزه در اتفاق ناگوار مدرسه التابعین نیروهای امدادی هر 70 کیلو گرم از بدن اجساد را بدلیل نامشخص بودن افراد یک شهید در نظر گرفتند.




مدیر عامل خبرگزاری میزان در واکنش به سانسورهای عجیب مسابقات المپیک در تلویزیون:

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



ناهید کیانی و کیمیا علیزاده در مراسم توزیع مدال وزن ۵۷ کیلوگرم المپیک پاریس یکدیگر را در آغوش گرفتند تا تاریخ‌سازی دختران ایرانی تکمیل شود. این اقدام ورزشکاران توسط صدا و سیما سانسور شد








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











صحبت های خنده دار آقای قرائتی: شب اول عروسی دوماد اومده پیش عروس میگه توحید و نبوت یعنی چی اونم گفته والا نمیدونم شب اول قبرمونه یا عروسیمون



۲۱ مرداد ۱۴۰۳


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




المپیک ۲۰۲۴ ، آقای یزدانی در  یک قدمی مدال طلا با مصدومیت دررفتگی شانه 

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




۲۲ مرداد ۱۴۰۳ 

قیمت پایه و مالیات و عوارض را ببینید



مرداد ۱۴۰۳ و اوج گرما ( حادثه شهربازی شخصی )


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

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






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




المپیک کشتی ۲۰۲۴


با این حال، اتحادیه جهانی کشتی درخواست تجدید نظر را رد کرد و کار داوران در فینال را درست تشخیص داد.

آماده رفتن به لوزان

داستان می توانست به همین جا ختم شود اما الکسانیان پس از ورود به وطن خود به خبرنگاران گفت که آماده است تا پایان این شکایت را پیگیری کند. او گفت  فرصت برای تجدید نظر در این تصمیم وجود دارد. قهرمان المپیک ریو ۲۰۱۶ توضیح داد که همه چیز به وضوح در ویدیو قابل مشاهده است. اتحادیه جهانی کشتی شکایت ما را نمی‌پذیرد چون چگونه می‌تواند گناه خود را بپذیرد؟ ما به IOC شکایت خواهیم کرد. ویدیو را ارائه خواهیم داد. بگذارید کارشناسان نگاه کنند و بگویند حق با کیست.



۲۳ مرداد ۱۴۰۳  اظهاز فضل وزیر پیشنهادی نیرو جهت بررسی در کمیسیون تخصصی 


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




المپیک ۲۰۲۴

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

وی ادامه داد: بر این اساس برای مدال آوران طلا در بازی های پارالمپیک ۴ میلیارد تومان‌ در نظر گرفته شده است، مدال آوران نقره یک و نیم میلیارد دریافت می کنند و به مدال آوران برنز هم یک میلیارد اهدا می شود. پاداش مدال آوران تیمی ۷۵ درصد پاداش تعیین شده برای رشته های انفرادی است.




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






غیر فعال کردن هشدار Hyperlink در Microsoft Office


پیش بینی : ( با توجه به لغو شدن پروازها از تهران و استانبول و حتی لبنان از ساعت ۱ ) بامداد یکشنبه ۱۳ مرداد ۱۴۰۳ حدود ساعت ۱ ببعد مراکز نظامی  اسرائیل از چند کشور مورد تهاجم موشکی قرار خواهند گرفت.


مدیرعامل شهر فرودگاهی امام خمینی(ره) افزود: «لغو پروازهای ترکیه به ایران صرفاً شایعه و جو رسانه‌ای است.»


 ۱۴ مرداد و مشخص شد حمله به مواضع صهیونیستی  در بامداد صورت نگرفت  .... و همچنان نتانیاهو به غزه حمله می کند !!!



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


امروز دوشنبه و  هم عملیات خونخواهی انجام نگرفت








VBAwarnings KeyWord

VbaWarnings - When set to 1, Microsoft Office will trust all macros and run any code without showing a security warning or requiring user permission.







Security\Trusted Documents.

DisableTrustedDocuments


Security Warning dialog box appears when you try to trust a file from a network location. You can click Don't show this message again in the dialog box, and then the dialog box does not appear again. In addition, you can turn off the feature by clicking No on the Security Warning dialog box.

Turn off Trusted Documents feature for network locations

You can turn off the Trusted Documents feature, for network locations, in the Trust Center.

  1. Click the File tab.
  2. Click Options.
  3. Select Trust Center, and then Trust Center Settings.
  4. Click Trusted Documents.
  5. Clear the Allow documents on a network to be trusted check box.


Security\Protected View.

ProtectedView

Leave Blank Type




Regedit 


Trusted Location 

location1 To Location20 Only


-By default, only Trusted Locations local to the user's device are allowed. Network locations can also be set as a Trusted Location, but not recommended.
--Allownetworklocation
-We don't recommend that users specify root folders as Trusted Locations. For example, the C: drive or the My Documents folder. Instead, create a subfolder within those folders and specify only that folder as a Trusted Location.



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 بدلیل عرضه بلیت/نمایش نرخ بلیت هواپیما در مسیرهای داخلی بالاتر از نرخ های تعیین شده به مدت  یک ماه تقویمی تعلیق شد.



۳۰ تیر ۱۴۰۳ · مهدی پورباقری، راوی پادکست جنایی آخرین شاهد همسرش را تکه تکه کرد! | مهدی پورباقی کیست؟ - به نقل از 55 انلاین






سعید آقاخانی و تیمش در تبلیغات قرعه کشی بانک سپه مرداد ۱۴۰۳







۱۴ مرداد ۱۴۰۳ نوبنیاد تهران  ، دور دور پولدارها و تصادف منجر به مرگ حالا مست بودن یا نبودن بماند ( سرعت زیاد لکسوس )


وی با اشاره به جزئیات این تصادف افزود: در این تصادف، خودروی سواری لکسوس با خودروی پراید برخورد کرد که درپی آن خودروی پراید در اثر شدت این برخورد، چرخیده و با عابرپیاده‌ای که در ایستگاه اتوبوس ایستاده بود؛ برخورد کرد. 

رئیس اداره تصادفات پلیس راهور تهران بزرگ ادامه داد: شدت این برخورد به نحوی بود که هم راننده پراید و هم عابرپیاده بر اثر شدت جراحات در صحنه تصادف کشته شدند. این موضوع به تایید عوامل اورژانس نیز رسید. همچنین راننده و سرنشینان خودروی لکسوس نیز جراحات سطحی دیدند.


۷ ساعت پیش · جوانبخت درباره علت این تصادف گفت: علت این برخورد، عدم کنترل وسیله نقلیه توسط راننده لکسوس، به علت سرعت بسیار بالای این خودرو بوده است که منجر به .




اصابت تیر ضدهوایی خودی سهواً به شاهرگ شهید  عباس بابایی


به گزارش خبرگزاری دانشجویان ایران(ایسنا)، سرتیپ خلبان عباس بابایی، معاون عملیات فرماندهی نیروی هوایی ارتش جمهوری اسلامی ایران روز ۱۵ مرداد ۱۳۶۶ پس از انجام ماموریت در عراق و در حین بازگشت به خاک ایران در منطقه عملیاتی سردشت مورد شلیک پدافند خودی قرار گرفت و به شهادت رسید.





مرداد ۱۴۰۳ و اوج گرما ( حادثه شهربازی شخصی )


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

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











اجرای فایل با استفاده از متد Run و Open




اشعار تشییع جنازه اسماعیل هنیه در دانشگاه تهران  مرداد ۱۴۰۳


مرگ بر سه ابلیس    آمریکا اسرائیل و انگلیس



در حال حاضر که حدود ۴ روز  از سکوت خبری جزئیات ترور اسماعیل هنیه و شوک بزرگ امنیتی در ایران می گذرد مشخص است که سربازان گمنام با جستجوی ترددهای محل اقامت و اطراف  و محل شلیک موشک از کوهستان روبروی محل اقامت ایشان به دنبال افرادی هستند که بتوان ثابت کرد عوامل نفوذی ایرانی مطمئناً در این ترور دخیل بوده اند ، و گرنه ایشان بسیار به ایران سفر کرده بود و دلیلی برای محافظت و مراقبت بیش از اندازه نبود. ولی بالاخره از یک غفلت اسرائیل البته با زمینه چینی بهره برد.



نوشتاری متد Run که دارای آرگومان هایی است


Syntax 
      objShell.Run (strCommand, 
[intWindowStyle], [bWaitOnReturn]) 

intWindowStyle از نوع عددی است اگر صفر باشد پنجره در حالت Hide قرار می گیرد و پنجره دیگری فعال می شود.


bWaitOnReturn  از نوع Boolean است یعنی False یا True می توانید قرار دهید یا عددی غیر 0 برای True : وقفه برای کامل شدن دستور  قبل از ادامه اجرای wsh script.


strFile = """"c:\foldername\filename.accdb""""
CreateObject("WScript.Shell").Run 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





خبرگزاری فارس و تسنیم از اعلام جرم دادستانی علیه اردشیر رستمی و علی ضیا (مجری صداوسیما) به دلیل اشاره آنها به موضوع همجنسگرایی خبر داد.

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



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





جوکر ۲ احسان علیخانی --- فکر کنید مجید مظفری که در فیلم‌ها و سریال‌های مهم نقش‌های جدی بازی می‌کرد، مجبورش می‌کنند با آهنگی از خواننده لس‌آنجلسی برقصد! اگر قرار بر ساخت رئالیتی‌شوست پس این همه سخیف‌بودن برای چیست؟ اینکه دیالوگ‌های جنسی گفته شود یا حرکات اروتیک برای خنداندن یکدیگر استفاده شود چه نکته مثبتی برای مخاطب کودک و نوجوان دارد؟ در جوکر آنقدر از الفاظ رکیک و فحش استفاده می‌شود که حتی دیدن آن با خانواده امکان ندارد. انگار شوخی‌های جنسی را از کف خیابان جمع کرده‌اند و حالا در این برنامه از آن‌ها استفاده می‌کنند.




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







تنظیم کوئری بر اساس عبارت Sql کاربر


خدا را شاکریم که در ایران امنیت وجود دارد و سربازان گمنام امام زمان هشیار و بیدار !


امنیت ما نقض شده است


اشعار تشییع جنازه اسماعیل هنیه در دانشگاه تهران  مرداد ۱۴۰۳


مرگ بر سه ابلیس    آمریکا اسرائیل و انگلیس





Public Sub SetQuery(query_name As String, query_string As String)
    Application.CurrentDb.QueryDefs(query_name).SQL = query_string
End Sub



می توان یک کوئری با نام دلخواه در دیتابیس ایجاد کرد و هر بار در کد Vba عبارت  Sql را به آن ارسال کرد مثل کد بالا البته اگر به زبان Sql و Join زدن مسلط هستید وگرنه کوئری بسازید.



می توان یک کوئری موقت ساخت که در دیتابیس ذخیره نشود در کد زیر یک کوئری با نام qdfNew ساخته و بعد حذف میشود.



With db

Set qdfNew = .CreateQueryDef("NewQueryDef", _ "SELECT * FROM Categories") 

' Open Recordset and print report. 

 ' Delete new QueryDef because this is a demonstration. .QueryDefs.Delete qdfNew.Name

End With


برای مراجعه به شئ QueryDef در یک مجموعه با استفاده از تنظیم شماره ترتیبی خودش یا با ویژگی نام آن ، یکی از روش های نوشتاری زیر را استفاده کنید :


QueryDefs(0)

QueryDefs("name")

QueryDefs![name]


می توانید با استفاده از متغیرهای شئ که به آنها اشاره کرده اید به اشیاء  QueryDef  موقت مراجعه کنید.






آخرین روز عمر شهید اسماعیل هنیه در تهران مراسم سوگند پزشکیان در مجلس شورای اسلامی  ... بهارستان ... ایشان حدود ۲ بامداد روز بعدش با موشک هدایت شونده در اقامتگاه ویژه جانبازان ( شمالغرب تهران ) دعوت حق را لبیک گفت و همچنان سپاه و دستگاه های ا منیتی شگفت زده از این حمله نابهنگام و غافلگیر کننده !!!




اولین جزئیات از ترور اسماعیل هنیه در تهران: ترور حدود ساعت ۲ نیمه شب اتفاق افتاد / هنیه در یکی از اقامتگاه‌های ویژه جانبازان در شمال تهران مستقر بودکه با اصابت پرتابه‌ای از هوا ترور شد 

دیدبان ایران

۵ ساعت پیش


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

وی افزود: این محدودیت‌های تنها برای پروازهای آموزشی، هلیکوپتر و باشگاه‌های هوانوردی وجود دارد.


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


https://www.rokna.net/video


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

به برخی روایت ها مقصر تیم حفاظتی اسماعیل هنیه است که ناخواسته منجر به ردیابی گوشی ها و پیدا کردن محل شده ، یاد هفت سر اژدها افتادم که نفر اصلی سریال که همش در حال کشیدن سیگار و مشروبات آبی بود چقدر برای ردیابی نشدن از نرم افزارهای پیشرفته خارجی استفاده کرده بود ولی بالاخره نفوذ کار دستش داد !!! ...  در آخر گفته شد بد افزار از طریق واتساپشان که در ایران فیلتر است گوشی ایشان را آلوده کرده  و نهایتاً ردیابی مکان و ارسال موقعیت برای شلیک پرتابه


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


۱۱ ساعت پیش · حدود ساعت یک ربع به دو نصفه شب دهم مرداد بود که اسماعیل هنیه رئیس دفتر سیاسی حماس در محل اقامتش در زعفرانیه تهران ترور شد.


۲ روز پیش · ... نفوذی و عامل انسانی و جاسوس استفاده کرده یا مستقیم این جنایت را انجام داده، در حال بررسی و پیگیری است. معاون قضایی قوه قضائیه با بیان اینکه 


۱۵ مرداد ۱۴۰۳

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


ساعت صفر (آلمانی: Stunde Null ، تلفظ [ˈʃtʊndə nʊl]) اصطلاحی است که به کاپیتولاسیون در نیمه‌شب ۸ مهٔ ۱۹۴۵ و هفته‌های بلافاصله پس از آن در آلمان اشاره دارد. برنامه‌های سیاسی آدولف هیتلر، رهبر آلمان نازی، یک جنگ جهانی به بار آورد و اروپای شرقی و مرکزی را ویران و فرسوده به جا گذاشت.


۴۵ دقیقه پیش · وزیر خارجه امریکا دیروز به کشور‌های G۷ گفت ایران احتمالا بین ۲۴ تا ۴۸ ساعت دیگر به اسرائیل حمله تلافی جویانه خواهد کرد / بلینکن اعلام کرد که با


به گزارش «انتخاب»؛ سازمان رادیو و تلویزیون اسرائیل نوشت: عربستان پیامی را به ایران رساند که "اجازه عبور هیچ جسم خارجی از طریق خاک خود را نمی دهد و از خود دفاع می کند، نه از اسرائیل".
 
گفتنی است که ساعاتی پیش نیز  منبع اسکای نیوز عربی نوشت: اردن به ایالات متحده، اسرائیل و ایران اطلاع داده که به هیچ وجه اجازه استفاده از حریم هوایی خود را نخواهد داد.


۷ ساعت پیش · این خاخام یهودی مدعی است بر اساس رمزخوانی کدهای داخل تورات، ایران به اسراییل حمله خواهد کرد و اگر اسرائیلی‌ها به روش فعلی خود ادامه دهند نابودی ...

خاخام «ماتیت‌یاهو گلازرسون» ۸۲ ساله که بیش از ۳۰ کتاب مذهبی نوشته و به پیشگویی از روی کدهای مخفی تورات شهره است، در مدعی شده بود بر اساس خوانش کدهای رمزی که در آیات تورات وجود دارد، ایران به اسراییل حمله و این کشور را نابود خواهد کرد.


۱۶ مرداد ۱۴۰۳ ( سه شنبه )

به گزارش رکنا، مدیرعامل شهر فرودگاهی امام خمینی(ره) گفت:  امروز (سه‌شنبه، ۱۶ مردادماه) خبر صدور نوتام هشدار امنیت پروازی برای غرب ایران توسط سازمان هواپیمایی کشور شایعه شده که چنین هشدار وجود ندارد.


طبق اطلاعات منتشر شده از منابع روسی، سیستم‌های هواپیمای جنگنده F-35 نیروی هوایی آمریکا به دلیل تداخل ایجاد شده توسط سیستم‌های جنگ الکترونیک مورمانسک BN از کار خواهد افتاد. با توجه به اینکه اسرائیل تنها کشور جهان به جز ایالات متحده آمریکا است که از این جنگنده فوق پیشرفته با حداکثر دسترسی نظامی بهره می‌برد، بنابراین کاملا مشخص است که یکی از اهداف درخواست احتمالی ایران برای به خدمت گرفتن مورمانسک، تقابل با سیستم جنگ الکترونیک جنگنده F-35 است.


رئیس مجلس نمایندگان آمریکا گفت: بایدن باید فوراً تمام تسلیحاتی که از ارسال آنها خودداری کرده یا به تأخیر انداخته است، در اختیار اسرائیل قرار دهد تا بتواند از مردم خود دفاع کند و ایران را بازدارد و روشن کند که اگر ایران در هر گونه حمله ای شرکت کند یا از آن حمایت کند، پیامدهای اقتصادی، نظامی و بین المللی مشخص و قاطعی خواهد داشت.


درخواست مکرون از پزشکیان درباره پاسخ به اسرائیل/پزشکیان  : هرگز در مقابل تعدی به منافع و امنیت خود سکوت نخواهیم کرد.


گزارش «انتخاب»؛ وزارت هوانوردی مصر اعلام کرد:  ایران برای همه شرکت‌های هواپیمایی غیرنظامی که از حریم هوایی این کشور عبور می‌کنند، در مورد انجام رزمایش‌های نظامی در روزهای ۷ و ۸ ( چهارشنبه و پنج شنبه ۱۸ مرد اد ۱۴۰۳ ) اوت هشدار داده است.


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


۱۹ مرداد ۱۴۰۳ : ترور عضو ارشد حماس در لبنان

حماس اعلام کرد که سامر الحاج در جریان حمله ددمنشانه رژیم صهیونیستی به شهر صیدا در جنوب لبنان که عصر امروز انجام شد، به شهادت رسیده است.


«سعدالله زارعی» کارشناس مسائل منطقه در پیش از خطبه‌های نماز جمعه این هفته تهران، اظهار داشت: اگر اسرائیل بتواند عملیات ترور را همانند تخریب بیمارستان‌های غزه عادی سازی کند، شاهد تکرار عملیات‌های ترور در سطح جهان اسلام علیه رهبران مقاومت خواهیم بود، لذا پاسخ به عملیات ترور رژیم اسرائیل یک الزام و اجبار برای سر جا نشاندن رژیم صهیونیستی است.


۲۰ مرداد ۱۴۰۳ 

همه تأسیسات حیاتی و استراتژیک اسرائیل توسط ایران و برای پاسخ شناسایی شده؛ زمان نهایی حمله با نظر مقامات سیاسی و نظامی تعیین خواهد شد ؛  اعتمادآنلاین ۴ ساعت پیش


هدف : کوچاندن اجباری 

در کشتار جدید رژیم صهیونیستی در مرکز شهر غزه در بامداد امروز شنبه بیش از ۱۰۰ نفر شهید و ده‌ها نفر زخمی شدند.

«انس الشریف»، خبرنگار الجزیره در غزه گزارش داد که اشغالگران مدرسه «التابعین» در محله الدرج را بعد از نماز صبح بمباران کردند که با توجه به حضور بین ۴۰۰۰ تا ۵۰۰۰ نفر در مدرسه واقع در خیابان النفق ممکن است تعداد تلفات افزایش یابد.


۲۷ فروردین ۱۴۰۳ · 3 - اگر بین ایران و اسرائیل جنگی تمام عیار در بگیرد، حتماً کشورمان همانند وضعیت عراق در جنگ با آمریکا، دچار آسیب های جدی خواهد شد و از این رو،


اسرائیل در هراس !!!

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


۱۳ ساعت پیش · ارتش اسرائیل تصاویر ۱۹ فرد را منتشر کرد و گفت آنان عضو حماس و جهاد اسلامی هستند که در حمله بامداد شنبه به نمازخانه مدرسه تابعین در غزه کشته


۲۱ مرداد ۱۴۰۳

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


نمایندگی ایران در سازمان ملل افزود: «امنیت و حاکمیت ملی ما در اقدام تروریستی اخیر رژیم اسرائیل نقض شده است. ما حق دفاع مشروع داریم و این ارتباطی با آتش‌بس غزه ندارد؛ اما امیدواریم پاسخ ما در زمان و به‌گونه‌ای صورت گیرد که لطمه‌ای به آتش‌بس احتمالی نزند.»


۲۲ مرداد ماه ۱۴۰۳ و همچنان منتظر زمان صفر حمله نه تنها ایران بلکه کل دنیا 


۱۷ ساعت پیش · احتمال حمله ایران به اسرائیل تا 48 ساعت آینده · بیانیه انگلیس ، فرانسه و آلمان : ایران خویشتنداری کند · گمانه زنی الجزیره درباره نحوه پاسخ ایران و ...


سفر خارجی ممنوع!

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


روزنامه عبری‌زبان «یدیعوت آحارونوت» اخیرا در گزارشی اعتراف کرده که صهیونیستها منتظر حملات ایران و حزب الله هستند، و «این دوره انتظار برای اسرائیل ویران‌کننده و ناامیدکننده است».

از سوی دیگر و در بحبوبه گزارش‌ها از بیم و هراس رژیم صهیونیستی از احتمال پاسخ تلافی‌جویانه ایران و حزب‌الله به دلیل ترور شهیدان اسماعیل هنیه و فواد شکر، «یوآو گالانت»، وزیر جنگ این رژیم در سخنانی مدعی شد: «اسرائیل توانایی‎های زیادی دارد

قیمت پایه و مالیات و عوارض همین مالیات و عوارض رو اگر جمهوری اسلامی از عبور پروازهای خارجی از آسمان ایران بگیره  ۹۰ درصد فقرای ایران ثروتمند خواهند شد


ارتش اسرائیل از ترس انتقام‌جویی ایران با صدور دستور جدیدی از ماندن تمامی سربازان عادی در گرجستان و آذربایجان که نزدیک به ایران هستند، جلوگیری کرد.

پایگاه خبری «العربیه» در این‌باره نوشت: فرمانده نیروی هوایی اسرائیل، با پیش‌بینی حمله ایران، سفر خلبانان نیروی هوایی به خارج از کشور را لغو کرد.


۲۳ ساعت پیش · رادیو ارتش اسرائیل: ایران در حال نزدیک شدن به تصمیم حمله مستقیم از خاک خود به اسرائیل است / برآورد‌ها نشان می‌دهد که پاسخ تهران محدود خواهد بود


پس از جنایت رژیم صهیونیستی در غزه در اتفاق ناگوار مدرسه التابعین نیروهای امدادی هر 70 کیلو گرم از بدن اجساد را بدلیل نامشخص بودن افراد یک شهید در نظر گرفتند.



۲۳ مرداد ۱۴۰۳


در حالی که رهبران اسرائیل بر سر شکاف های شدید با هم اختلافاتی بنیادین دارند و در اظهارات خود با هم درگیر می شوند؛ حمله انتقام جویانه ایران در حال نزدیک شدن است و جامعه اسرائیلی هم روزهای دوشنبه و سه شنبه (دیروز و امروز) برای شوم ترین روز تاریخ یهود روزه می گیرند. 


۴ ساعت پیش · رادیو ارتش اسرائیل روز سه‌شنبه ۲۳ مرداد گزارش داد اسرائیل در این پیام خود به آمریکا و چندین کشور اروپایی افزوده که مصمم است به ایران حمله کند


۹ ساعت پیش · اقدام تل‌آویو در ترور و شهادت اسماعیل هنیه، رئیس دفتر سیاسی حماس در تهران که برای حضور در مراسم تحلیف پزشکیان به ایران سفر کرده بود، بیم حمله


بزالل اسموتریچ» وزیر دارایی کابینه رژیم صهیونیستی خواستار رد مذاکرات برای برقراری آتش بس شده و گفته است: نباید در دام کشورهای میانجی بیفتیم که می‌خواهند توافقنامه تسلیم شدن را بر ما تحمیل کنند.

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


اسرائیل: به خاک ایران حمله می‌کنیم حتی اگر حمله جمهوری اسلامی تلفاتی نداشته باشد/ ایران اینترنشنال/ ۲۰ ساعت پیش



عباس: احتمال حمله تلافی‌جویانه ایران به اسرائیل در ساعات آینده وجود دارد/ایرنا/۱۴ ساعت پیش ......  این پیش بینی هم غلط بود.



۳ ساعت پیش · رئیس‌جمهور ایالات متحده در پاسخ به این سوال که آیا انتظار دارد ایران در صورت دستیابی به توافق آتش‌بس از حمله تلافی‌جویانه خود به اسرائیل خودداری



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



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


واقعاً ما ایرانیها هم منتظریم شب حمله چه زمانیست فقط دلهره نداریم  از شهادت هنیه چندین هفته می گذرد . لامصب بزن و خیال همه رو راحت کن مرگ یکبار شیون هم یکبار !!!



صهیونیسم آینده تاریک و اقتصاد وحشتناکی را تجربه خواهد کرد . صهیونیست در آستانه فروپاشی است.



میگن اسرائیل با سر نوشت و واقعیتی روبرو خواهند شد که هیچ روزی انتظارش را نداشته.


شهرک های موشکی چند شعبه در دل کوه های لبنان



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

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



۲۶ مرداد ماه ۱۴۰۳

اسرائیل: انتظار داریم غرب هم در دفاع هم در حمله به ایران به ما کمک کند / ایران اینترنشنال / ۵ ساعت پیش


فرمانده پیشین نیروهای آمریکایی در منطقه (سنتکام) می‌گوید حمله ایران برای مجازات اسرائیل قطعی است اما این بار بر خلاف عملیات ماه‌ آوریل احتمالاً متحدان ایران هم در عملیات انتقامی شرکت خواهند کرد.



۳۱ مرداد ۱۴۰۳ 


۲ ساعت پیش · ولادیمیر پوتین رئیس جمهور روسیه در سفری به چچن با نظامیان و داوطلبان جنگ در اوکراین دیدار کرد و خطاب به آنها گفت: ما با شما شکست‌ناپذیریم.



۲ شهریور ۱۴۰۳ 


۹ ساعت پیش · خبرگزاری آمریکایی آسوشیتدپرس می‌نویسد: اگر ایران همزمان با متحدانش به اسرائیل حمله کند، احتمال تلفات بالا می‌رود، چراکه پدافند هوایی اسرائیل


۸ روز پیش · در ازای این امتیازها قرار است عربستان سعودی معاملات خود با چین را محدود کند و روابط دیپلماتیک و غیر دیپلماتیک را با اسرائیل برقرار سازد



فرماندهی مشترک عملیات عراق با صدور بیانیه‌ای، ضمن تأیید خبر درگیری میان نیروهای ارتش و گروه مسلح «جند الامام»، از گروه‌های ائتلاف حشد الشعبی، تأکید کرد که این درگیری «مراسم زیارت اربعین را دچار مشکل نمی‌کند».

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



۲۱ ساعت پیش · من کاملا معتقدم که هر کسی که در غزه باشد و به ما اجازه اطلاع از گروگان‌ها را ندهد، طرفدار حماس و خود حماس است و از نظر من او یک مرده متحرک است!



۳۰ دقیقه پیش · ... وبسایت کنست هک و پیامی با مضمون انتقام نزدیک است شاید امشب یا فردا منتشر شد. با این اوصاف باید گفت جنگ دو طرف همین حالا هم در جریان است و



فرماندهی مرکزی آمریکا (سنتکام) اعلام کرد که ناو هواپیمابر یو‌اس‌اس آبراهام لینکلن در باب تنش بین ایران و اسرائیل وارد منطقه خاورمیانه شد



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



بالاخره فواد شکر هم در دام ترور افتاد. ( بعد از ترور نافرجام چندین رو ز قبل ) - از ترور اسماعیل هنیه و هک گوشی ایشان حزب الله درس نگرفتند !!!



گفتنی است که صبح امروز یکشنبه ۲۵ آگوست ۲۰۲۴ ( اربعین - ۴ شهریور ۱۴۰۳ ) حزب الله از واکنش اولیه به حمله ددمنشانه به ضاحیه بیروت که طی آن فواد شکر فرمانده بارز حزب الله به شهادت رسید، خبر داد.




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


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


۷ روز پیش · این تماس احتمالاً توسط شخصی صورت گرفته است که به سیستم ارتباطات داخلی حزب‌الله نفوذ و آن را هک کرده بود. به گفته وزارت بهداشت لبنان که تحت کنترل




نتانیاهو: آمادگی حزب الله برای حمله به اسرائیل را رصد کرده بودیم / ارتش هزاران موشک که به سمت شمال اسرائیل هدایت شده بود، منهدم کرد / بر بازگرداندن ساکنان شمال اسرائیل به منازلشان اصرار داریم / هر کس که به ما حمله کند، به او حمله خواهیم کرد



ساویت تاکید کرد: طبق دستورات بایدن، مقامات آمریکایی با همتایان اسرائیلی خود به طور مداوم رایزنی می‌کنند و از حق اسرائیل در دفاع از خود حمایت خواهیم کرد و در راستای ثبات منطقه حرکت خواهیم کرد.


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



خب مشخص شد که حمله به اسرائیل بخاطر مسائل امنیتی زائران مسیر کربلا بعد از اربعین اتفاق خواهد افتاد ( بخاطر حمایت آمریکا در مشارکت دفاع از اسراعیل که حتمیست) ولی  زودتر از ۲۸ صفر نخواهد بود.... باید از زمان شروع حمله تمهیدات لغو پروازهای داخلی بمدت ۲۴ ساعت و پرواز جنگنده های فانتوم بر فراز مرزها جهت بررسی هر گونه اقدام سوء از طرف اسرائیل و هم پیمانانش انجام گیرد تا درگیری به داخل ایران کشیده نشود. چیزی که از شواهد و قرائن و کری خوانی ها مشخص شده در صورت موشک باران اسرائیل حمله به ایران دور از انتظار نخواهد بود!!!


۳ روز پیش · طبق گزارش، خانم تمدن روز گذشته توسط مزدوران نهادهای اطلاعاتی جمهوری اسلامی در اورژانس بیمارستان بازداشت شده است. گفته می‌شود، بازداشت او به


۷ ساعت پیش · پس از حمله انتقامی گسترده حزب الله لبنان به مواضع رژیم اسرائیل، جنگنده‌های اسرائیلی جنوب لبنان را بمباران سنگینی کردند. ارتش رژیم صهیونیستی مدعی


۸ شهریور ۱۴۰۳





In Iran, the method of assassination was the subject of rumor and dispute. The Tasnim News Agency, the media outlet for the Guards, reported that witnesses said an object like a missile had hit the window of Mr. Haniyeh’s room and exploded.

But the two Iranian officials, the members of the Guards briefed on the attack, confirmed that the explosion had taken place inside Mr. Haniyeh’s room, and said that an initial investigation showed that the explosives had been placed there sometime in advance.

They described the attack’s precision and sophistication as similar in tactic to the remote controlled A.I. robot weapon that Israel used to assassinate Iran’s top nuclear scientist Mohsen Fakhrizadeh in 2020.


۱۵ مرداد ۱۴۰۳ 

 به گزارش تابناک؛ یک منبع ارشد در شورای عالی امنیت ملی ایران به الجریده فاش کرده که یک هیئت امنیتی آمریکایی با میانجیگری عمان به ایران سفر کرده تا پیام «آرامش و هشدار» را به تهران برساند تا از جنگ بزرگی که نخست وزیر اسرائیل برنامه‌ریزی کرده جلوگیری شود.


در عجیب‌ترین بخش این گزارش الجریده آمده است: این هیئت فهرستی حاوی «اسامی ۱۰ نفر از عوامل موساد» در داخل ایران را که آمریکایی‌ها معتقدند مستقیم یا غیرمستقیم در این ترور دست داشته‌اند، به عنوان حسن نیت به طرف ایرانی ارائه کرده است.


Spike



امام علی(ع) در خبطه سی و چهارم نهج البلاغه می فرماید: دشمن به شما حمله مى کند و شهرها را از دستتان خارج می ‏سازد و شما به خشم نمی ‏آئید! دیده دشمن براى حمله ‏به شما خواب ندارد، ولى شما در غفلت و بى خبرى به سر می برید، شکست از آن آنانى است‏ که دست از یارى یکدیگر برمی ‏دارند.



۱۰ مرداد ۱۴۰۳ ۰۹:۵۹

رئیس پیشین ستاد مشترک سپاه پاسداران انقلاب اسلامی به جماران گفت: قطعا آمریکا در برنامه ترور اسماعیل هنیه همکاری نزدیکی را با رژیم صهیونیستی هم در حوزه عملیاتی و هم اطلاعاتی انجام داده است.

رژیم صهیونیستی با انجام این ترور می خواهد به گروههای فلسطینی نشان دهد که در هیچ جای دنیا مکان امنی برای حضور و زندگی ندارند و همانطور که نوار غزه برای مردم آن ناامن است، سایر کشورها هم برای کسانی که مخالف اشغال هستند، نا امن است.






































زبان Sql در فیلتر کردن رکوردها ( کوئری )


اشعار تشییع جنازه اسماعیل هنیه در دانشگاه تهران  مرداد ۱۴۰۳


مرگ بر سه ابلیس    آمریکا اسرائیل و انگلیس



مروری بر نوشته های قدیمی !!!


برای درک نوشتاری کد SQL باید کارکرد عملگرهای منطقی را بدانید . با جستجوی ساده می توانید این کار را انجام دهید .



با رفتن به وب سایت W3School می توانید Sql نویسی انجام دهید 



در تصویر زیر جدول Orders فیلد OrderID آن از شماره 10248 تا 10443 پر شده

از Val به این علت استفاده شده چون دیتا تایپ فیلد OrderID عددی است ( int )


Dim MyValue
MyValue = Val("2457") ' Returns 2457.
MyValue = Val(" 2 45 7") ' Returns 2457.
MyValue = Val("24 and 57") ' Returns 24.











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



عبارت Sql زیر  رکوردهایی از جدول Orders را با تعیین شرطی نمایش می دهد.


w3schools


عبارت زیر را در لینک بالا باکس 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 ذکر می شود : 


آدرس دهی کرده که تکست باکس ها با نام RptStart و RptEnd در فرم frmRepirt_DateRange وجود دارد. عبارت زیر در قسمت Criteria فیلد OrderDate قرار داده شده است.

Between [Forms]![frmReport_DateRange].[RptStart] And [Forms]![frmReport_DateRange].[RptEnd]


کوئری همچنین خالی بودن باکس ها را بررسی میکند ( IsNull ) ، حتی با خالی بودن یک باکس کوئری تمام رکوردها را نمایش می دهد. یا از فیلتر تاریخ در می آید.

همانطور که در تصویر می بینید  آدرس دهی تکست باکس در فرم مربوطه ( فرم باز ) در سر ستون قرار داده شده و در قسمت Or ( پائین Criteria ) و زیر همان ستون تابع IsNull نوشته شده است.




در همین قسمت Query Design می توانید به Sql آن هم دسترسی داشته باشید که متوجه شوید ساختار نوشتاری را اکسس چه داده که یاد بگیرید. ولی عملگرهای منطقی را حتما یاد بگیرید هم And هم Or و هم Null



اگر شرطی را زیر هم بنویسید ( در یک Row نباشد )  به معنای  Or است  و اگر در یک ردیف بنویسید در زبان Sql به معنای And در نظر گرفته می شود و اگر حتی یک کدام True یا موجود باشد کوئری خالی نمایش داده می شود.چون نتیجه False خواهد بود در عملگر And 



Form.Requery Method

The Requery method updates the data underlying a specified form by requerying the source of data for the form.












Update در زبان Sql مخصوص اکسس



Update با مقادیری از فیلدهای داخل جدول دیگر


در مثال زیر ، سوابق address با مقادیر فیلدهای City و State از   از جدول جستجوی zip code به روز رسانی می شوند . اگر رکورد دارای zip code باشد که با جدول جستجو match شده یا مطابقت داشته باشد ، فیلدهای City و State آن جایگزین خواهند شد.



UPDATE tblAddress INNER JOIN tblZipCodes ON [tblAddress].[ZipCode] = [tblZipCodes].[ZipCode] SET [tblAddress].[City] = [tblZipCodes].[City], [tblAddress].[State] = [tblZipCodes].[State] WHERE ([Country] = 'US')



ترجمه زبان sql بالا  : 

فیلدهای city و state جدول tblAddress را بروز رسانی کن در جوین یا اتصال  با جدول tblZipCodes بصورتیکه داده فیلدهای ZipCode دو جدول tblAddress و tblZipCodes با هم یکی باشند . در صورت match شدن فیلد ZipCode دو جدول مقادیر فیلدهای city و state از جدول tblZipCodes در فیلدهای city و state جدول tblAddress قرار خواهند گرفت . بنابراین شرط اینه که ZipCode هر دو جدول با هم تطابق داشته  و همینطور مقدار  فیلد Country شامل us باشد.







۷ مرداد ۱۴۰۳  ( تجاوز به لبنان )


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

براساس این گزارش، وزیر خارجه لبنان امروز (یکشنبه) گفت ما از واشنگتن خواسته‌ایم که با توجه به تنش‌های اخیر، اسرائیل را به خویشتنداری ترغیب کند.  

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


رئیس کل دادگستری استان البرز با اشاره به آمار غیررسمی که از حضور بیش از ۳۰۰ هزار اتباع و مهاجرین مجاز و غیرمجاز در استان ‌حکایت دارد، گفت: جمعیت اتباع در استان البرز به اندازه یک‌ شهرستان‌ شد.












فرم Login و استفاده از تابع DLookup در اکسس





Private Sub Form_Load()     

InsideHeight = 4000     

InsideWidth = 6000     

Me.tb_ID = Null     

Me.tb_pwd = Null     

Me.tb_ID.SetFocus 

End Sub


Private Sub frm1Btn_Click()    

If IsNull(Me.tb_ID) Or IsNull(Me.tb_pwd) Then       

MsgBox "You must enter password and login ID.", vbOKOnly + vbInformation, "Required Data"    

Me.tb_ID.SetFocus         

Exit Sub     

End If     

If Me.tb_pwd.Value = DLookup("[Login_Pwd]", "login_tbl", "[Empl ID]='" & Me.tb_ID.Value & "'") Then         

If DLookup("[User_Type]", "login_tbl", "[Empl ID]='" & Me.tb_ID.Value & "'") = "Admin" Then             

DoCmd.openForm "admin_menu"             

DoCmd.Close acForm, "login", acSaveNo         

Else             

DoCmd.openForm "user_menu"             

DoCmd.Close acForm, "login", acSaveNo         

End If     

Else       

MsgBox "Password or login ID incorrect. Please Try Again", vbOKOnly + vbExclamation, "Invalid Entry!"       Me.tb_pwd.SetFocus     

End If 

End Sub


مثال های زیر را ببینید : 


DLookUp ( "شرط","نام جدول","نام فیلد مورد جستجو")





تابع زیر یک را بر میگرداند چون دیتا تایپ از نوع متنی است لذا 001 در داخل تک کوتیشن می بایست قرارداده شود

DLookUp("Login_Pwd","login_tbl","[Empl ID]='001'")

تابع زیر عدد ۲ را برمی گرداند ( از فیلد Empl ID ) ، اگر بیش از یک نتیجه باشد فقط اولین آن برگردانده میشود

Dlookup("[Empl ID]","login_tbl","User_Type='User'")

تابع چند شرطه زیر عدد ۲ را برمیگرداند ، شروط : دیتا در فیلد User_Type همان User و فیلد Login_Pwd برابر ۲ باشد

Dlookup("[Empl ID]","login_tbl","User_Type='User' AND Login_Pwd='2'")

شرط از فرم دیگری

Dlookup(“[Empl ID]”,”login_tbl”,”User_Type='”&Forms![Form1]!tb1&”‘”)






مرداد ۱۴۰۳ 



در پاستیل‌های باز و فله از ژلاتین‌های خوکی و حیوانات غیرحلال دیگر چون ماهی غیرحلال، گربه و سگ استفاده شده است.

به گزارش تجارت نیوز، 

حسین رستگار، رییس مرکز تحقیقات حلال سازمان غذا و داروی وزارت بهداشت گفت: «در پاستیل‌های باز و فله از ژلاتین‌های خوکی و حیوانات غیرحلال دیگر چون ماهی غیرحلال، گربه و سگ استفاده شده است.»

او افزود تنها در پاستیل‌هایی که از این سازمان مجوز دارد، از «ژلاتین حلال» استفاده شده است.









رویداد Resize در فرم اکسس


دِ گِرِیت مَن سَکرِفایسد هیز لایف


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 نیز به معنای عاشق شخصی بودن است. 





دهه اول مرداد ۱۴۰۳


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

  بازیگری که برای حفظ تناسب اندام در پیری هم دست از ورزش و بدن‌سازی بر‌نداشت و اهل دود و دَم هم نبود.حتی ورود او به سینما هم از درِ ورزش بود کما این‌که پای او را به سینما و به واسطه ورزش بولینگ در سال‌های جوانی، امیر نادری و علیرضا زرین‌دست باز کردند با فیلم «خداحافظ رفیق» - سال 1350- آن هم برای ایفای نقش اصلی.













سکوت خبری شهادت جهان‌آرا تا چهلمین روز


روزنامه اطلاعات دو روز بعد فهرستی از شهدای احتمالی حادثه سقوط سی- ۱۳۰ منتشر کرد که تعداد زیادی از اسامی آن با فهرست روزنامه جمهوری اسلامی مشترک بود اما نکته قابل توجه در هر دوی این فهرست‌ها این بود که نامی از شهید محمد جهان‌آرا در میان نبود. رادیو و تلویزیون نیز همچون مطبوعات که آن زمان بیشتر اخبارشان متاثر از برگزاری انتخابات ریاست جمهودی بود، اشاره‌ای به نام فرمانده شهید سپاه خرمشهر نکرد.



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




مرداد ۱۴۰۳ 


به گزارش همشهری آنلاین، اسکای‌نیوز نوشت: «ژنرال سِر رولی واکر» هشدار داده است که ارتش بریتانیا باید ظرف سه سال برای جنگ علیه «محور شورش» یعنی روسیه، چین، ایران و کره شمالی آماده باشد.

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



۱۷ ساعت پیش · در پی اقدام پلیس آلمان در بستن تعدادی از مراکز اسلامی،‌ هانس اودو موتسل سفیر آلمان روز چهارشنبه از سوی مدیرکل غرب اروپا به وزارت امور خارجه



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



۱ روز پیش · «نانسی فایزر» وزیر کشور آلمان مدعی شد: امروز، ما مرکز اسلامی هامبورگ را تعطیل کردیم که ایدئولوژی اسلام‌گرا و دیکتاتوری را تبلیغ می‌کرد...


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







به گزارش آکادمی مریم حمزه ای، نخستین دوره از مسابقات ملی آرایش دائم ایران توسط آکادمی مریم حمزه ای برنامه ریزی و با حضور ۳۰۰ هنرجوی این حوزه در هتل پارسیان اوین برگزار شد.

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






تولید شماره تصادفی و چک کردن عدم تکرار در جدول ثبت این اعداد


پرواز 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

عید مبارک!

یادتان هست یارانه ۴۵هزارتومانی بی‌ارزش شد؟!

یارانه انرژی برپایه طلا حق شماست؛

با یارانه طلایی هر ایرانی مصون از تورم معادل ۶گرم طلا یارانه انرژی خواهد داشت.

خادم شما






۷ تیر ۱۴۰۳ یکروز قبل از برگزاری انتخابات و روز سکوت انتخاباتی


او ( حضرت قالیباف ) در این توییت نوشت: از برادران عزیز آقایان زاکانی و قاضی‌زاده هاشمی که مطالبات نیروهای انقلاب در راستای ایجاد ائتلاف و وحدت را لبیک گفتند، تشکر می‌کنم.


روشنگری در خصوص پروژهٔ بازگشت به دههٔ نود و دفاع از میراث شهید رئیسی جز با مجاهدت آنها ممکن نمی‌شد. ‏تا آخر ایستاده‌ایم تا دولتی کارآمد و انقلابی تشکیل شود.



جمعه ۸ تیر ۱۴۰۳ روز انتخابات


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



به گزارش ایسنا،‌ با مرور اخبار انتخاباتی شنبه - نهم تیر ۱۴۰۳ می‌خوانیم:

سخنگوی ستاد انتخابات کشور نتایج نهمین مرحله از شمارش آرای انتخابات چهاردهمین دوره‌ ریاست‌جمهوری را اعلام کرد و افزود: ۲۴ میلیون و ۵۳۵ هزار و ۱۸۵رای شمارش شده است که ترتیب آرا به شرح زیر است:

* مسعود پزشکیان: ۱۰ میلیون و ۴۱۵ هزار و۹۹۱ رای

* سعید جلیلی: ۹ میلیون و ۴۷۳ هزار و ۲۹۸رای

* محمدباقر قالیباف: ۳ میلیون و ۳۸۳ هزار و ۳۴۰رای

* مصطفی پورمحمدی: ۲۰۶ هزار و ۳۹۷رای

از جمع آراء تایید شده؛ پزشکیان ۴۲.۶ درصد، جلیلی ۳۸.۸ درصد، قالییاف ۱۳.۸ درصد پورمحمدی ۰.۸ درصد آرا را کسب کردند و میزان مشارکت در این دوره از انتخابات ۴۰ درصد بوده است.


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


و آقایان جلیلی و پزشکیان به دور دوم راه یافتند ( زمان ۱۵ تیر ۱۴۰۳ )



تحلیلگر حوزه اقتصادی درباره فرار سرمایه با قدرت‌گرفتن این جریان نیز متذکر می‌شود: «فرار سرمایه یکی از نخستین اتفاقات اقتصادی است که می‌تواند با دولت جلیلی رخ دهد‌»؛ چون به زعم او «همین الان تنش حزب‌‌الله و اسرائیل، نگرانی‌ها را افزایش داده است و اگر تنش تشدید شود، اتفاق خوبی برای سرمایه رخ نمی‌دهد‌». به‌خصوص که افقه باور دارد «سیاست خارجی دولت سیزدهم نیز شکست خورده و هیچ‌کدام از مشکلات را حل نکرده است». این در حالی است که افقه می‌گوید: «جلیلی از دولت فعلی هم تند‌تر سیاست خارجی را ادامه می‌دهد. بنابراین دور از ذهن نیست که فرار سرمایه در دولت جلیلی شدت یابد و با توجه به نگاه فرهنگی جلیلی، فرار مغز‌ها نیز به اوج برسد‌».


تجارت نیوز نوشت: رویترز در گزارشی اعلام کرد که ایران طی ۹ ماه اخیر معادل ۴.۲ میلیارد دلار تخفیف نفتی به چین ارائه داده است.
 
در حالی که دولت سیزدهم از ابتدای روی کار آمدن خود مدام در حال تأکید بر رکوردشکنی فروش نفت ایران است، حال رویترز در گزارشی از تخفیف ویژه ایران به چین خبر داد. چنانکه طی ۹ ماه اخیر میزان تخفیف ایران به چین، بزرگ‌ترین خریدار نفتی خود، به ۴.۲ میلیارد دلار رسید.


در مناظره اول دور دوم دوشنبه ۱۱ تیر ۱۴۰۳ ساعت ۹:۳۰ تا ۱۱:۳۰

پزشکیان گفته بود: نمی‌توان کشور را در قفس کرد و با دنیا رابطه نداشت، زندگی در قفس زندگی بخور و نمیر است، نمی‌توانیم مدام ارزان بفروشیم و گران بخریم. ما چاره ای غیر از ایجاد رابطه با خارج نداریم


مصاحبه با خانم خجسته باقرزاده سالیان خیلی پیش 

لطفا نظراتتان را در مورد حجاب اسلامی برای خوانندگان ما بفرمایید.

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


۱۲ تیر ۱۴۰۳


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




۹ ساعت پیش · همسر شهید مهدی باکری: اگر آقامهدی امروز زنده بود، امکان نداشت به امثال پزشکیان رأی دهد


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

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

او ادامه داد: فرهنگ در موضوع خانواده و روابط زن و مرد بیچاره شده است و ۲۰ میلیون نفر در غرب پدر خود را نمی‌شناسند! در صورتی که ۴ سال پزشکیان در مسند قدرت قرار گیرد وضعیت خانواده و روابط نامشروع مانند غرب می‌شود.


به گزارش خبرگزاری خبرآنلاین، این توئیت امیر حسین ثابتی ، نماینده مجلس و مشاور سعید جلیلی است که زنان بدون روسری را بدتر از "فاحشه" ها می داند و نگاه واقعی جریان پایداری را درباره پوشش زنان بیان می کند. او همچنین آنها را متهم کرده که پول می گیرند تا روسری بردارند و جامعه را به لجن بکشند!


مریم اشرفی گودرزی چه گفت از tejaratnews.com
۵ روز پیش · مریم اشرفی گودرزی، نماینده ستاد جلیلی گفته اگر بی حجاب باشی و پسری به تو تعرض کرد تقصیر خود زن است


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


۲۹ مهر ۱۳۹۷ · عباس آخوندی وزیر راه و شهرسازی که مسکن مهر را مزخرف خواند و در عین حال یک آجر هم روی پروژه مسکن اجتماعی نگذاشت، از سمت خود استعفا کرد.


سرویس اقتصاد مشرق -  ماجرای FATF و ایران به اوایل سال ۱۳۹۴ بازمی‌گردد که علی طیب‌نیا وزیر اقتصاد دولت یازدهم، پای برگه برنامه اقدام FATF را امضا کرد؛ برنامه‌ای که حاوی ۴۱ بند بود. بدین ترتیب طیب‌نیا تعهدنامه‌ای را امضا کرد که طبق آن ایران مکلف به اجرای ۴۱ خواسته یک نهاد غربی می‌شد. اکنون دو سال و نیم است که طیب‌نیا دیگر وزیر اقتصاد نیست، اما امضای وی همچنان گریبانگیر ایران است.


۶۰ سال پیش افزایش عرصه دام در عید قربان، گوشت کشتارگاه شهرداری را مجانی کرد.


مناظره دوم دور دوم سه شنبه ۱۲ تیر ۱۴۰۳

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

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


تیر ۱۴۰۳ 

ایران سال گذشته حدود ۳۶ میلیارد دلار صادرات نفت و میعانات گازی داشته است، پس از کسر تخفیف‌ها، حق دلالان، هزینه جابجایی دریایی، هزینه چند بار تبدیل ارزهای مختلف، هزینه صرافی درنهایت حدود ۲۸ میلیارد دلار به دست بانک مرکزی و برنامه بودجه رسیده است. این یعنی نفت ایران بعد از همه هزینه با حدود ۶۱ دلار بفروش رسیده است.


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


پزشکیان: مشکل فقرا ما هستیم نه آمریکا  /  رفته بودم زیارت، برخی که بهشان می‌گویند حزب اللهی،‌ به من می‌گفتند منافق. آیا من منافق هستم؟ 


«محسن هاشمی رفسنجانی» رئیس کارگزارانی شورای شهر تهران در دوره پنجم، پیش از انتخابات به سایت «انتخاب» گفته بود: اگر مشارکت زیر ۴۰ درصد باشد، افرادی مثل جلیلی رأی می‌آورد، اگر به ۵۰ درصد برسد، شاید قالیباف در دور اول پیروز شود، اما اگر مشارکت به سوی ۶۰ درصد برود، شانس پزشکیان بیشتر است.


۱۳ تیر ۱۴۰۳ خاتمی : 

امیدوارم که نظام حکمرانی کشور که قطعاً پیام‌های معنادار مردم را در کنش انتخاباتی آنان دریافته است فرصت را مغتنم بشمارد و به مقتضای آن میدان را برای تفکر و رویکردی که خیر و پیشرفت و امنیت کشور را می‌خواهد و تأمین می‌کند بازتر کند و موانع را از سر راه تحول و اصلاح امور بردارد.

من باز هم به دکتر پزشکیان که صداقتش را در گفتار و صراحتش را در رفتار بیش از پیش در این انتخابات نشان داد رأی می‌دهم، و برایش آرزوی توفیق هرچه بیشتر دارم.

خدای بزرگ ایران عزیز و ملت بزرگوار را از این وضعیت خطیر و دشوار به سلامت بگذراند.


۱۳ تیر ۱۴۰۳ 

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

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

در متن این پیامک که از سوی مجمع رهروان امر به معروف و نهی از منکر ارسال شده  است آمده: 

«سلام طلاب عزیز چنانچه فجایع سیاسی اقتصادی و فرهنگی دولت روحانی را برای انتخابات تبلیغ میکنید عدد ۱ را به همین سامانه تا ۱۵ تیر پیامک کنید تا به قید قرعه ۲۰ میلیون ریال هدیه بگیرید.

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

مجمع رهروان امر به معروف و نهی از منکر» 


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


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


davat.drjalily.com

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

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



پیامک کنگره ملی در ساعت ۲۲:۱۲ شب ۱۴ تیر ۱۴۰۳

همشهری عزیز بیش از ۲۴۰۰۰ شهید در شهر تهران برای حفظ کشور خون داده‌اند.

با شرکت در انتخابات حافظ کشور و خون شهیدانش باشیم.

لغو 11l.eu/k


پیامک کنگره ملی در ساعت ۱۵:۱۴ روز ۱۵ تیر ۱۴۰۳

هموطن عزیز شهدا پای صندوق‌های رای منتظر حضور موثر شما هستند، درنگ جایز نیست.

لغو 11l.eu/k


حجت الاسلام و المسلمین سید محمد خاتمی در گفت و گو اختصاصی تصویری با جماران در روز رای گیری مرحله دوم انتخابات ۱۴۰۳ گفت:: امروز جوری نباشد که بعدا افسوس بخوریم از اینکه فرصت را از دست دادیم؛ همه بیایند و با شوق و به امید بهبود و به امید سربلندی ایران و انشاءالله که موفق باشند.


«صغری احمدی» اهل روستای درپرچین اسفراین با ۱۰۰ سال با شرکت در دور دوم انتخابات چهاردهمین دوره ریاست جمهوری رای خود را به صندوق انداخت.



پیامک ارسالی از طرف وزارت کشور ۱۵ تیر ۱۴۰۳ ساعت ۱۸:۵۳ : 

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

وزارت کشور


رویداد 24 هم به نقل از مصطفی فقیهی، روزنامه نگار خبر داده است: انتخابات به دور دوم رفت. پزشکیان نه با آراء خاکستری که با سبد رأی رئیسی و آراء تکلیفی اول شد. جلیلی دوم شد و قالیباف سوم. در دور دوم از آن‌جا ۶۰ درصد حامیان قالیباف آرای خود را شاید سفید بدهند اما به جلیلی نه پس از هم‌اینک می‌توان پزشکیان را رئیس‌جمهور ایران دانست.


دولت چهاردهم دولت مسعود خواهد بود یا دولت سعید؟


«بغی» یکی از اتهاماتی است که قانون مجازات اسلامی به آن پرداخته است. بنا بر ماده ۲۸۷ قانون مجازات اسلامی، «باغی» کسی است که علیه «اساس نظام جمهوری اسلامی» دست به مبارزه و اقدام «مسلحانه» بزند.



بالاخره جراح قلب ، دکتر پزشکیان با حدود ۱۶ میلیون و اندی رای و اختلاف دو میلیون و هفتصد نسبت به دکتر جلیلی به مسند ریاست جمهوری ۱۴۰۳ رسید 


«مردم عزیز ایران انتخابات تمام شد و این تازه آغاز همراهی ماست. مسیر دشوار پیش رو جز با همراهی، همدلی و اعتماد شما هموار نخواهد شد؛ دستم را به سوی شما دراز می‌کنم و به شرافتم سوگند می‌خورم که در این راه تنهای‌تان نخواهم گذاشت؛ تنهایم نگذارید.»


۱۶ تیر ۱۴۰۳ در پیام تبریک دکتر زاکانی به منتخب ملت 

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


یکی از خطاهای جبهه انقلاب 

نامزدهای پوششی؛ خطای بزرگ دیگر فرستادن زاکانی و قاضی‌زاده هاشمی بود در حالی که بارها گفتند کنار نمی‌روند ولی رفتند و نماد دروغ و دست‌کم حرف مفت شناخته شدند. طبیعی است که مردم صداقت را بر دروغ ترجیح می‌دهند. قاضی زاده هاشمی یک بار به ابراهیم متقی و نوبت بعد به حسین انتظامی گفت تا آخر می‌ماند اما نماند. زاکانی هم در واکنش به آن طعنه مشهور پزشکیان (تا‌آخر می مونی دیگه؟!) گفت: بله و نمی‌گذارد او رییس جمهوری شود. 


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


آمار کل رأی ایرانیان در خارج از کشور در مرحله دوم انتخابات چهاردهمین دوره ریاست جمهوری ۸۸ هزار و ۳۲۵ برگه رأی بود. از مجموع این آراء ۳۶ هزار و ۱۶۹ نفر به مسعود پزشکیان و ۵۰ هزار و ۲۰۶ نفر به سعید جلیلی رای داده بودند.


ببینید: یک جهان انتصاب، چهار سال جهش / نگاهی به انتصابات دقیقه ...


۲۲ تیر ۱۴۰۳ ( می خواهند آخر کاری  هر کاری که به ضررشان بود را تصویب کنند 

سرویس صنعت برق: علی اکبر محرابیان بعد از آنکه تقریبا مسجل شد از وزارت نیرو رفتنی است در اقدامی عجیب، آیین نامه تبدیل وضعیت نیرو‌های غیررسمی که ۳ سال بود در کشوی میزش خاک می‌خورد را ابلاغ کرد. این ابلاغیه تبدیل وضعیت که برای شرکت‌های وابسته وزارت نیرو ابلاغ شد قرار بود نیروه‌های غیررسمی که ۱۵ سال سابقه بیمه داشته و ۱۰ سال آن در صنعت آب و برق بوده باشد در صورت وجود چارت تبدیل وضعیت شوند.


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





سایت drjalily.com در ۱۵ تیر ۱۴۰۳ ساعت ۱۵:۵۶


گزارش مالی شماره 1
تا تاریخ ۱۴۰۳/۰۳/۲۷، جهت انتشار عمومی
ردیفشرح هزینهمبلغ نهایی (ریال)
1هزینه ابنیه و تأسیسات
568,459,000
2هزینه حمل‌ونقل
565,500,000
3هزینه ارتباطات و رسانه
780,500,000
4هزینه تجهیزات و ملزومات
5,245,900,000
5هزینه‌های جاری
19,954,813,910
6هزینه اجاره محل
2,400,000,000
7هزینه تبلیغات
10,090,400,000
مجموع
39,605,572,910
گزارش مالی شماره 2
تا تاریخ ۱۴۰۳/۰۳/۲۹، جهت انتشار عمومی
ردیفعنوانمقدار
1کل واریزی‌ها و اهدایی به حساب
30,883,371,259ریال
2کل مبلغ برگشت به حساب
527,500,000ریال
3تعداد تراکنش‌های واریزی
7,050
4میانگین مبلغ بر اساس تراکنش‌ها
6,879,470
5تعداد تراکنش‌های زیر ۱۰۰ هزار تومان
4,254
6تعداد تراکنش‌های ۱۰۰ تا ۲۰۰ هزار تومان
1,136
7تعداد تراکنش‌های ۲۰۰ تا یک میلیون تومان
1,389
8تعداد تراکنش‌های یک تا پنج میلیون تومان
222
9تعداد تراکنش‌های پنج میلیون تومان به بالا



تیر ۱۴۰۳

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





صیحه آسمانی قبل از قتل نفس زکیه 


ندایی است آسمانی که نام حضرت مهدی علیه السلام را به گوش همه مردم جهان می‌رساند. این ندای بلند از جبرئیل علیه السلام است و در شب ۲۳ رمضان ( به احتمالی )  به گوش می‌رسد و همه مردم زمین آن را به زبان خود می‌شنوند..... صیحه نه گوش خراش است ( بواسطه نزدیک بودن ) نه آهسته ( بواسطه دور بودن ) همه آنرا به یک نحو و مساوی درک می کنند بسیاز زیبا ، دلنشین و برّا 


خداوند می فرماید : اگر بخواهیم از آسمان نشانه‌اى بر آن‌ها فرو مى‌فرستیم تا گردن‌هاى آن‌ها در برابر آن (به اجبار ) خاضع گردد.


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


مکانِ مقدس در شهری محترم : بخشى از مسجد الحرام و مقدّس ترین مکان آن، حَطیم است که حدود آن، عبارت اند از : رُکن حجر الأسود، درِ کنونى کعبه و مقام ابراهیم


۱۸ تیر ۱۴۰۳

مثلا به رقم تقریبی دستمزد آقای رضا عطاران نگاه کنید؛ دستمزد ایشان در سال ۱۴۰۰ یک میلیارد تومان بوده، عطاران در این سه سال، روندهای نزولی در سینما را طی می‌کند، اما الان در سال ۱۴۰۳ شنیده‌ام که قراردادی بسته ۳۵ برابر بیشتر از ۱۴۰۰!
۲ ساعت قبل



سریال فراری درباره کدام.مدافع حرم است از farsnews.ir
۲ روز پیش · موضوع سریال فراری درباره شهید مدافع حرم نیست و هر خبری که مبنی بر این موضوع منتشر شود غلط است. به گزارش خبرگزاری فارس – گروه رادیو و ..



زیاده روی در هر غذایی معمولاً سالم نیست. در مورد گیلاس، مصرف بیش از حد آن سالم نخواهد بود زیرا به معنای مصرف زیاد قند و مصرف بیش از حد فیبر اضافی است که ممکن است باعث نفخ، اسهال و افزایش وزن شود.


مصرف زیاد قند به مرور زمان موجبات پوکی استخوان را فراهم می سازد بیشتر از ۳۰ گرم معادل حدود ۷ حبه قند در روز مضر خواهد بود


  • Adults should have no more than 30g of free sugars a day, (roughly equivalent to 7 sugar cubes).


تیر ۱۴۰۳

تب دِنگی در ایران نیز مشاهده گردید . داروی خاصی برای درمان عارضه تب دِنگی وجود ندارد .

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:

  • rest;
  • drink plenty of liquids;
  • use acetaminophen (paracetamol) for pain;
  • avoid non-steroidal anti-inflammatory drugs, like ibuprofen and aspirin; and
  • watch for severe symptoms and contact your doctor as soon as possible if you notice any.




۲۴ تیرماه ۱۴۰۳



ایرنا : تعداد نهایی شهروندان گلوگاهی که در روزهای ۲۴ و ۲۵ تیر ۱۴۰۳ به دلیل نوشیدن آب یا شربت از چند موکب عزاداری دچار مسمومیت شده بودند بنا به اعلام مدیر شبکه بهداشت و درمان گلوگاه ۹۲۵ نفر است که همگی با دریافت دارو و تزریق سرم ترخیص شدند و موردی از شرایط وخیم حال این شهروندان نیز ثبت نشد.


به گفته ابراهیم خادملو نخستین مراجعه به بیمارستان ثامن‌الائمه (ع) این شهرستان، از ساعت ۳۰ دقیقه بامداد روز سه‌شنبه ۲۶ تیر آغاز شد و از ساعت چهار بامداد تا ساعت ۲۳ به مدت حدود ۱۹ ساعت اوج مراجعات شهروندان گلوگاهی با نشانه‌های مسمومیت غذایی به این بیمارستان ثبت شد.