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

Dim stDocName As String

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

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

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