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

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

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

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

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

فیلد از نوع تاریخ




اگر فیلد را روی date/time تنظیم کنید فقط در آن بازه میشود وارد کرد نه ساعت 37:52 دقیقه برای اینکار دیتا تایپ فیلد را روی text قراردهید و برای ورود فقط عدد اجباری یا انتخابی از ویژگی input mask فیلد استفاده نمایید 





More Fields در اکسس 2013

Time24hour



اگر قالب ۲۴ ساعته در اکسس نمایان نشد به Setting خود سیستم مراجعه کنید مثل شکل زیر که اگر در زمان h کوچک بود  H بزرگ را جای آن تایپ می کنید.











اردیبهشت سال ۱۴۰۳ 



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

به گفته سرهنگ کرمی راد، متهم به کلاهبرداری، در هر فقره مبلغ ۸۰۰ تا یک میلیون تومان از یک کارت عابربانک برداشت کرده که حدوداً مبلغ ۱۲۰ میلیون تومان شده است.

رییس پلیس مترو تهران اضافه کرد: متهم سابقه‌دار بود و پس از تکمیل پرونده جهت شناسایی سایر شاکیان به دادسرای ناحیه ۱۲ ارجاع داده شد.

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












اجرای زوم در پیش نمایش گزارش در اکسس




Dim stDocName As String
stDocName = "rptEmployees"
DoCmd.OpenReport stDocName, acPreview
DoCmd.Maximize
DoCmd.RunCommand acCmdZoom25







اسفندماه ۱۴۰۲ 




بازنشسته محترم

سلام

احتراماً؛ کانون عالی کارگران بازنشسته و مستمری بگیران تامین اجتماعی کشور با هدف تقویت توان مالی بازنشستگان گرامی، فرآیند ایجاد شرکت تعاونی بازنشستگان و سرمایه گذاری در سهام شرکتهای ارزشمند را در دست اقدام دارد. فرآیند مزبور از طریق شرکت در مزایده سهام با اعطای حداکثر 15 میلیون تومان تسهیلات بانکی در دو نوبت و خرید قسطی به ترتیب 2 و 5 ساله با نرخ مصوب شورا پول و اعتبار به اعضاء و یک میلیون تومان آورده نقدی قابل کسر ازمستمری اسفند ماه محقق خواهد شد.در صورت عدم موافقت با عضویت در شرکت تعاونی در حال تشکیل و سرمایه گذاری عنوان شده عدد 11را به شماره 9207772026 پیامک نمائید.

کانون عالی کارگران بازنشسته و مستمری بگیران تامین اجتماعی کشور
















اجرای جعبه زوم در اکسس





RunCommand acCmdZoomBox




اگر طول کاراکتر وارد شده در تکست باکس بیشتر از ۱۰ شد این باکس اجرا شود ( رویداد GotFocus )



خطر دیابت را کم می‌کند

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

دندان‌ها را قوی‌تر می‌کند

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

قلبتان از شما تشکر می‌کند

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









چک کردن کنترل های یک فرم و تغییر رنگ تکست باکس موجود




Use the ForeColor property to specify the color for text in a control. Read/write Long.





For intI = 0 To Forms("Employes").Controls.Count - 1

 Set ctl = Forms("Employes").Controls(intI)

 If TypeOf ctl Is TextBox Then

 ctl.ForeColor = vbRed

 ctl.FontItalic = True

 ctl.FontBold = True

 End If

Next intI