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

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

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

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

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

اجرای فایل با استفاده از متد 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





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

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



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





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




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







Whatsapp Message




برای ارسال فایل حتما باید به یک درگاه باصطلاح خودشون امن وارد بشوید که خب پولیه و مجانی نیست !!!


whatsapp/send-file


gateway-endpoints برای ارسال فایل البته پرداخت ماهیانه 


ارسال پیام  از طریق web ،  فقط از روی کامپیوتر و اسکن کیو آر کد توسط گوشی 




How to send Whatsapp messages without saving the 

number


  1. How to send Whatsapp messages without saving the number
  2. Open the web browser and then paste ‘https://api.WhatsApp.com/send?phone=number’ in the Address bar of your phone’s browser. 
  3.  
  4. In the place of “number”, enter the phone number of the person to whom you want to send a WhatsApp message with the country code.
  5.  
  6. Omit any zeroes, brackets or dashes when adding the phone number in international format.
  7.  
  8. The number that you provided should have a WhatsApp account.
  9.  
  10. Click on “Message” button.
  11.  
  12. You will be taken to the WhatsApp app with a chat being open for the said contact.



  Application.FollowHyperlink method:



Application.FollowHypwrlink "http://web.whatsapp.com/"

برای باز کردن فایلها مثل اکسس ، ورد هم استفاده میشود.

Application.FollowHyperlink "D:\text.accdb"


Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal Milliseconds As LongPtr)
 
CreateObject("WScript.Shell")
wShell.Sleep 1000


"https://web.whatsapp.com/send?phone='"+phone_no+'" & "&text='"+message & "'"



Send Message To WhatsApp If Number Available
پس باید شماره در لیست شماره های تلفن شما باشد و همچنین اپلیکیشن بازشده باشد. ( تلفن با کد کشور بدون صفر و پرانتز یا براکت اضافه !!!
Application.FollowHyperlink  "https://wa.me/975777723456?text=Hi"
خیلی ساده و کاربردی توسط WhatsApp توصیه شده و برای استفاده از کاربرانی است که میخواهند پیامی را به مخاطب یا مخاطبان لیست خودشون در whatsapp بفرستند فرضا فایل اکسلی دارید در ستونی شماره تماس مخاطباتون که هم در واتساپ هست و هم آنها واتساپ دارند اضافه می کنید سپس طبق لینک بالا در Address می گذارید و ارسال می شود.

در زیر اگر تلفن در CONTACT LIST شما باشد پیام روی واتساپ نمایش داده می شود ولی احتیاج به فشردن کلید SEND است که برای اینکار میشوداز  SENDKEYS استفاده نمود.

https://wa.me/whatsappphonenumber/?text=urlencodedtext. For example, if you have to send a message that says “How are you?” to an unsaved number 9988776655, this will be the final URL that you will need to enter – https://wa.me/919988776655?text=How%20are%20you%20?


بخاطر اینکه در بستر وب انجام میشود و برای هر ارسال یک تب جدید باز میشود می توان CTRL+W را با SENDKEYS فرستاد تا برنامه را در همان ویندو ببندد 
Ctrl+W is a shortcut key most often used to close a program, window, tab, or document. Alternatively referred to as Control W and C-w, Ctrl+W is a shortcut key most often used to close a program, window, tab, or document.
Sleep Api use 
SendKeys "{Enter}"

لطفا نظر سنجی فراموش نشود !!!

ارسال فایل 




Whatsapp uses TCP 443 (HTTPS) to pass the majority of the connection traffic but it also uses TCP 80 (HTTP). If voice is used, then ports 4244, 5222, 5223, 5228,50318, 59234 & 5242 are used.

UDP Ports: 34784, 45395, 50318, 59234.


Are you limiting outgoing port via the Egress firewall? If yes you need to give access to ports 5222,5223 and 5228. This is for Whatsapp calling.

Text messages should work by default as far as I am aware (as port 80 and 443 are used which are usually open)