Prikazi cijelu temu 14.11.2014 14:06
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Blinkanje Label teksta
Vjerovatno hoces ovako nesto:
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3. Dim BrojBlinka  As Integer
  4. Dim Tekst As String
  5.  
  6. Private Sub Form_Open(Cancel As Integer)
  7. Tekst = Me.Caption
  8. End Sub
  9.  
  10. Private Sub Form_Timer()
  11.  
  12. If Format$(Me.Caption) = "" Then
  13. Me.Caption = Tekst
  14. Else
  15. Me.Caption = ""
  16. End If
  17. Me.Refresh
  18. BrojBlinka = BrojBlinka + 1
  19. If BrojBlinka = 10 Then
  20. DoCmd.Close
  21. End If
  22. End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.