KODE MACRO TEXTBOX HARUS DIISI

Kode Macro TextBox Harus Diisi biasanya digunakan untuk login sebelum masuk ke sheet tertentu, Nah dalam hal ini kami selaku penulis artikel di www.mtsbmtumbrasanom.id akan memberikan contoh kode macro sederhana tentang textbox harus diisi dan akan memberi peringatan dan pesan atas form login tersebut.

Kode Macro ini sangat sederhana sekali karena kita hanya membutuhkan beberapa baris kode saja sebagai contoh silahkan perhatikan kode macronya dibawah ini serta cara membacanya.

1. Untuk TextBox Nama

'jika textbox1 itu kosong

If TextBox1.Text = "" Then

'maka muncul pesan dibawah ini
    MsgBox "Nama Masih Kosong", vbCritical, "sistem aplikasi"

'setelah muncul pesan diatas lalu klik ok maka akan mengosongkan data ditextbox1
    TextBox1.Text = ""

'setelah itu fokus ke textbox1
    Me.TextBox1.SetFocus
    Exit Sub
    End If

2. Untuk tempat lahir

'jika textbox2 itu kosong
If TextBox2.Text = "" Then

'maka muncul pesan dibawah ini
    MsgBox "Tempat Lahir Masih Kosong", vbCritical, "sistem aplikasi"

'setelah muncul pesan diatas lalu klik ok maka akan mengosongkan data ditextbox2
    TextBox2.Text = ""

'setelah itu fokus ke textbox2
    Me.TextBox2.SetFocus
    Exit Sub
    End If

3. Untuk tanggal lahir

'jika textbox3 itu kosong
If TextBox3.Text = "" Then

'maka muncul pesan dibawah ini
    MsgBox "Tanggal Lahir Masih Kosong", vbCritical, "sistem aplikasi"

'setelah muncul pesan diatas lalu klik ok maka akan mengosongkan data ditextbox3

    TextBox3.Text = ""

'setelah itu fokus ke textbox2
    Me.TextBox3.SetFocus
    Exit Sub
    End If

Dari tiga contoh diatas setidaknya Anda sudah dapat memahami bahwa untuk membuat kode macro textbox harus diisi itu sangat mudah dan apabila Anda ingin memberi fariasi maka Anda dapat merubahnya seperti kode macro dibawah ini.

Baca Juga : 3 Jenis Kode Macro Membuat Nomor Urut Otomatis

1. Jika kolom nama kosong maka akan muncul 2 pilihan ok dan cancel (jika ok maka kembali ke form dan jika no maka akan dialihkan ke userform lain atau ke situs blog dan lain-lain).

If textbox1=""then

Pesan = MsgBox("maaf, nama harus diisi terimakasih",vbokcancel,"www.mtsbmtumbrasanom.id")

Select Case Pesan

Case vbOk

Unload Me

Userform1.show

Case Cancel

Unload Me userForm2.show

End Select

Exit Sub

End If

End Sub

Untuk kode macro yang terakhir ini apabila Anda tidak mengisi kolom nama pada userform1 maka akan muncul pesan dengan 2 tombol yaitu ok dan cancel, nah selanjutnya apabila Anda mengklik ok maka akan kembali ke userform1 dan apabila Anda klik tombol cancel maka akan userform1 disembunyikan lalu userform2 dipanggil (show).

Demikian artikel singkat dari kami tetang Kode Macro TextBox Harus Diisi dan selanjutnya cari artikel terkait tentang kode macro besarta cara membacanya hanya di www.mtsbmtumbrasanom.id dan akhir kata jabat erat.

Share :