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

برای آشنایی با نحوه تنظیم این قابلیت در ادامه مطلب همراه من باشید . 
۱.  برای شروع کار ابتدا فرم خود را طراحی   و ایجاد نمایید . 


۲. بر روی فرم خود یک برچسب (Label) قرار داده و یک نام دلخواه به آن نسب دهید (  در این مثال من نام lblgreeting را برای این برچسب انتخاب کرده ام . )
greeting

۳. حال از طریق تب Desine و انتخاب گزینه View code وارد محیط VBA شوید .

sreeting message
۴.  در محیط VBA با انتخاب شی Form   و تعیین رویداد  open  کد های زیر را  در این روال وارد  نمایید . ‍‍‍‍‍‍



Private Sub Form_Open(Cancel As Integer)

    If Time() > TimeSerial(0, 0, 1) And Time() < TimeSerial(12, 0, 0) Then
  me.lblgreeting.caption=" سلام صبح بخیر"
    ElseIf Time() >= TimeSerial(12, 0, 0) And Time() < TimeSerial(18, 0, 0) Then
    Me.lblgreeting.Caption = "سلام عصر شما بخیر"
    ElseIf Time() >= TimeSerial(18, 0, 0) And Time() < TimeSerial(23, 59, 59) Then
    Me.lblgreeting.Caption = "شب شما بخیر"
    
    End If
End Sub



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



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

برچسب ها:فرم اکسس، ساعات شبانه روز،
تاریخ : پنجشنبه 19 مرداد 1396 | 10:27 ق.ظ | نویسنده : امید شهری | نظرات()
.: Weblog Themes By Bia2skin :.