Kandungan

• Arahan

Tambah sebuah tenda yang menggunakan kawalan kotak teks untuk menarik perhatian pengguna apabila menggunakan Akses Microsoft. Adalah mungkin untuk menggunakan Visual Basic for Applications (VBA) untuk mengautomasikan proses teks menatal dalam pengawal. VBA adalah bahasa pengaturcaraan yang digunakan untuk memperluaskan aplikasi Microsoft Office. Gunakan acara "Form.Timer" (masa borang) untuk melaksanakan subprocedure yang akan terus mengemas kini kandungan kotak teks.

Arahan

Gunakan VBA dalam Akses untuk mengemas kini kawalan (Comstock / Comstock / Getty Images)

1. Klik tab "Buat" dan kemudian "Borang Projek" untuk membuat borang baru. Tekan "Kotak Teks" dalam panel Kawalan, dan kemudian dalam bentuk untuk menambah kawalan kotak teks yang baru. Klik kanan pada tab "Format" dan tetapkan "Teks Alignment" kepada "Hak". Tekan tab "Lain-lain" dan ketik "txtMarquee" di bawah "Nama".

2. Klik kanan borang, kemudian "Bina Acara" dan klik dua kali "Kod Builder" untuk menjalankan tetingkap editor VBA. Tekan "Ctrl" dan "A" untuk memilih semua kod lalai, kemudian tekan "Padam" untuk mengeluarkan kod.

3. Salin dan tampal kod berikut untuk menambah pembolehubah global yang akan anda gunakan dalam kod anda:

   
   

   Tekan DimStr As String Dimstrstr As Dim Strings Dim txtScroll As String Dim txtLength As Integer Dim iLength As Integer Dim As Integer Dim iView As Integer Dim As Integer

4. Tambah kod berikut untuk menentukan teks yang akan melintasi kawalan kotak teks:

   "Subtext", txtScroll = textStr & padstr txtLength = Len (txtScroll) iLength = Len (padstr) Me.TimerInterval = 500 iPos = 1 iView = 1 End Sub

5. Buat subprocess yang akan memanggil "moveText":

   Peribadi Sub Form_Timer () moveText End Sub

6. Buat subprocedure "moveText" yang sebenarnya akan menatal teks yang ditunjukkan dalam kawalan kotak teks:

   Swasta Sub moveText ()

   txtMarqee.SetFocus txtMarqee.Text = Mid (txtScroll, iPos, iView) iRem = txtLength - (iPos + iView - 1)

   Jika iView <20 Dan iView <iRem Kemudian iView = iView + 1 Akhir Jika

   Jika iPos <txtLength Dan iView> = 20 Kemudian iPos = iPos + 1 Tamat Jika Lain txtMarqee.Text = "" iPos = 1 iView = 1 Akhir Jika Akhir Sub

   
   

7. Kembali ke Microsoft Access dan klik ikon "Lihat" untuk menjalankan program. Teks yang ditakrifkan dalam Langkah 4 akan tatal melalui kotak teks.