Isi

• Instruksi

Tambahkan tenda menggunakan kontrol kotak teks untuk dengan mudah menarik perhatian pengguna saat menggunakan Microsoft Access. Dimungkinkan untuk menggunakan Visual Basic for Applications (VBA) untuk mengotomatiskan proses pengguliran teks dalam pengontrol. VBA adalah bahasa pemrograman yang digunakan untuk memperluas aplikasi Microsoft Office. Gunakan acara "Form.Timer" (waktu formulir) untuk mengeksekusi sub-prosedur yang akan terus memperbarui konten kotak teks.

Instruksi

Gunakan VBA di Access untuk memperbarui kontrol (Comstock / Comstock / Getty Images)

1. Klik tab "Buat" dan kemudian "Bentuk Proyek" untuk membuat formulir baru. Tekan "Kotak Teks" di panel Kontrol, lalu dalam formulir untuk menambahkan kontrol kotak teks baru. Klik kanan tab "Format" dan atur properti "Text Alignment" menjadi "Right". Tekan tab "Lainnya" dan ketik "txtMarquee" di bawah "Nama".

2. Klik kanan formulir, lalu "Bangun Acara" dan klik dua kali "Pembuat Kode" untuk menjalankan jendela editor VBA. Tekan "Ctrl" dan "A" untuk memilih semua kode default, lalu tekan "Delete" untuk menghapus kode.

3. Salin dan tempel kode berikut untuk menambahkan variabel global yang akan Anda gunakan dalam kode Anda:

   
   

   Dim textStr Sebagai string Dim padstr Sebagai string Dim txtScroll sebagai string Dim txtPanjang sebagai integer Dim iLength sebagai integer Dim sebagai integer Dim iView sebagai integer Dim sebagai integer

4. Tambahkan kode berikut untuk menentukan teks yang akan melintasi kontrol kotak teks:

   Private Sub Form_Load () txtMarqee.SetFocus txtMarqee.Text = "" textStr = "Cara menambahkan tipe kotak teks ke Microsoft Access" padstr = "" txtScroll = textStr & padstr txtLength = Len (txtScroll) iLength = Len (tombol) Me.TimerInterval = 500 iPos = 1 iView = 1 End Sub

5. Buat subproses yang akan memanggil "moveText":

   Sub Pribadi Form_Timer () moveText End Sub

6. Buat subprocedure "moveText" yang sebenarnya akan menggulirkan teks yang ditampilkan di kontrol kotak teks:

   Subtitle Private Private ()

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

   
   

   If iView <20 Dan iView <iRem Kemudian iView = iView + 1 End If

   Jika iPos <txtLength And iView> = 20 Kemudian iPos = iPos + 1 End If Else txtMarqee.Text = "" iPos = 1 iView = 1 End Jika End Sub

7. Kembali ke Microsoft Access dan klik ikon "Lihat" untuk menjalankan program. Teks yang ditentukan pada Langkah 4 akan menggulir kotak teks.