ACCESS FEED: Re: [belajar-access] Scrolling text pada status bar

Minggu, 30 Desember 2012

Re: [belajar-access] Scrolling text pada status bar

Yang bisa dipasangi timer cuma form.

Form jangan ditutup, tapi di-hide saja.

HAER
"Diam bisa jadi EMAS, tapi kalau ditanya orang jadi TIDAK SOPAN"

On Fri, Dec 28, 2012 at 4:57 PM, him mah <himmah.mlg@gmail.com> wrote:

assalamu'alaikum Wr. Wb.

maaf, mau tanya tentang scroling text

setelah googling akhirnya nemu code (seperti dibawah) untuk scroling
text, nah yang jadi pertanyaan. ketika formnya ditutup, pinginnya
untuk scrol text yang ada di status bar tetap berjalan, kira-kira
modifikasinya seperti apa (agar tidak mneggunakan form timer)

ini VBA nya

Option Compare Database
Option Explicit

Public txtScrollStatus As String ' Needed for Status Bar

Private Sub Form_Load()
' Text for Caption of Form
Me.Caption = DLookup("[ket]", "qryFormCaption")

' Text for Label on Form
Me.lblScrollingLabel.Caption = "Scrolling Text ......................... "

' Text for Status Bar
txtScrollStatus = "Scrolling Text ......................... "

End Sub

' Special Note ...........
' Set Form's Timer Interval to 100
Private Sub Form_Timer()

' Produce the Scrolling Text in Caption on the Form
Me.Caption = Mid(Me.Caption, 2, _
(Len(Me.Caption) - 1)) & Left(Me.Caption, 1)

' Produce the Scrolling Text in Label on the Form
Me.lblScrollingLabel.Caption = Mid(Me.lblScrollingLabel.Caption, 2, _
(Len(Me.lblScrollingLabel.Caption) - 1)) &
Left(Me.lblScrollingLabel.Caption, 1)

' Produce the Scrolling Text in Status Bar of Access
SysCmd acSysCmdSetStatus, txtScrollStatus
txtScrollStatus = Mid(txtScrollStatus, 2, (Len(txtScrollStatus) - 1))
& Left(txtScrollStatus, 1)

End Sub

------------------------------------

SPAM IS PROHIBITEDYahoo! Groups Links

<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)

<*> To change settings via email:
belajar-access-digest@yahoogroups.com
belajar-access-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
belajar-access-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/