آموزش اکسس

آموزش مایکروسافت اکسس - Access Training

آموزش اکسس

آموزش مایکروسافت اکسس - Access Training

آموزش اکسس

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

آخرین نظرات

بسم الله الرحمن الرحیم
سلام

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

با استفاده از ماژول زیر می‌توانید این تاخیر و وقفه زمانی را در کدهاتون اعمال کنید.

پس در محیط VBA یک ماژول خام ایجاد کنید و کدهای زیر را درونش قرار دهید.

Public Function Pause(NumberOfSeconds As Variant)

'||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||'
'|                               Access-Training.Blog.ir منتشر شده توسط |'
'|----------------------------------------------------------------------|'
'| با استفاده از این ماژول می‌توانید کدها را با فاصله زمانی بر حسب ثانیه |'
'|                                                   با تاخیر اجرا کنید |'
'|                                                       :به عنوان مثال |'
'| Pause(ثانیه مورد نظر)                                                |'
'||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||'

    On Error GoTo Error_GoTo
    Dim PauseTime As Variant
    Dim Start As Variant
    Dim Elapsed As Variant
    PauseTime = NumberOfSeconds
    Start = Timer
    Elapsed = 0
    Do While Timer < Start + PauseTime
        Elapsed = Elapsed + 1
        If Timer = 0 Then
            ' Crossing midnight
            PauseTime = PauseTime - Elapsed
            Start = 0
            Elapsed = 0
        End If
        DoEvents
    Loop
Exit_GoTo:
    On Error GoTo 0
    Exit Function
Error_GoTo:
    Debug.Print Err.Number, Err.Description, Erl
    GoTo Exit_GoTo
End Function

سپس از طریق تابع Pause() مدت زمان لازم را که به ثانیه است، وارد کرده و تاخیر لازم را ایجاد کنید.

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

wink نظرات شما باعث دلگرمی ماست!

enlightenedمشخصات

 

  • میـMiRـزا
  • http://access-training.blog.ir/post/62

ماژول تاخیر

نظرات  (۰)

هیچ نظری هنوز ثبت نشده است

ارسال نظر

ارسال نظر آزاد است، اما اگر قبلا در بیان ثبت نام کرده اید می توانید ابتدا وارد شوید.
شما میتوانید از این تگهای html استفاده کنید:
<b> یا <strong>، <em> یا <i>، <u>، <strike> یا <s>، <sup>، <sub>، <blockquote>، <code>، <pre>، <hr>، <br>، <p>، <a href="" title="">، <span style="">، <div align="">