اخفاء صورة بعد مضي 20 ثانية

[jafar089]

في الملف المرفق برنامج لتسجيل حضور الموظفين

فبعد ادخال الرقم في الحقل المخصص وليكن ( 1000 )تظهر صورة الموظف

     واسمه ورقمه .

إذا أردنا اخفاء هذه البيانات ( الصورة و الاسم و الرقم ) بعد مضي 20 ثانية فكيف يكون ذلك ؟

 

 

abc.rar

تم تعديل مارس 3, 2016 بواسطه jafar089

[jjafferr]

وعليكم السلام أخوي جعفر 

 

وين هالغيبة 

 

تفضل:

Private Sub Form_Current()
MyTime = Now()

        Me.pic.Visible = True
        Me.نص7.Visible = True
        Me.نص11.Visible = True
End Sub

Private Sub t_Change()
Dim i As String
i = Len(Me.t.Text)
If i >= 4 Then

DoCmd.Requery
 
       Dim db As DAO.Database, rs As DAO.Recordset
       Set db = CurrentDb
       Set rs = db.OpenRecordset("t2")
       rs.AddNew
       rs("an") = Me.an
       rs("adate") = Date
       rs("intime") = Me.LabelDate
       rs.Update
       rs.Close
t = ""
t.SetFocus

    PauseTime = 20    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.

    Loop
    
    Me.pic.Visible = False
    Me.نص7.Visible = False
    Me.نص11.Visible = False

End If
End Sub

 

تقدر تلعب بسطر التأخير ،بالثوان:

PauseTime = 20

 

 

جعفر

304.abc.mdb.zip