Cara Membuat Tombol Edit Pada Userform Excel

Jika kalian akan membuat sebuah aplikasi berbasis VBA Excel tentunya tidak jauh-jauh amat dengan userform sebagai interface untuk user nya. Nah biasanya kalo kalian membuat userform dengan entry data akan dilengkapi dengan tombol-tombol sebagai objek untuk control pada prosedure yang akan diterapkan oleh Anda.

Kenapa kita butuh tombol edit database pada sebuah userform aplikasi excel? Ya jelas karena terkadang user ketika entri data ada beberapa kesalahan dan inilah antisipasi kenapa kesalahan yang dientrikan oleh user harus bisa diperbaiki. Untuk itu kita akan belajar bagaimana cara membuat tombol edit data pada userform di Ms. Excel.

Sebenarnya untuk membuat tombol edit database tidaklah sulit jika kalian pernah membuat aplikasi berbasis VBA Excel, namun jika kalian baru mengenalnya mungkin saja ini adalah sesuatu yang cukup membingungkan. Akan tetapi tenang saja pada posting kali ini saya akan pandu Anda untuk belajar bagaimana tahapan membuat tombol edit database yang nanti bisa di kontrol melalui userform

Oke langsung saja pertama Anda buat terlebih dahulu worksheet untuk dijadikan sebagai tempat penyimpanan databasenya yang dientrikan melalui userform, setelah itu biasanya Anda akan membuat tombol tambah data atau add untuk memasukan setiap item record ke worksheet database melalui userform. Anda juga akan membuat tombol edit serta close userform untuk keluar dari form entri. Bahasan kali ini akan lebih spesifik kepada edit data melalui userform.

Setelah dibuatkan desain atau struktur tabel database pada worksheet maka silakan masuk ke menu depelover kemudian pilih view source dan disana Anda diminta untuk mendesain userform sekaligus objek serta prosedure (coding) untuk menjalankan perintah-perintah yang disesuaikan dengan kebutuhan.

Oke langsung saja seperti biasa silakan lihat tutorial video nya di bawah ini




Dari tutorial video diatas kita belajar bagaimana validasi atau membuat pencarian di textbox kode barang dan nantinya jika data kode barang sesuai dengan database maka akan muncul secara otomatis nama barang serta harganya. Oke semoga bermanfaat dan jika ada kesulitan silakan tuliskan saja di kolom komentar semoga saya bisa membantu.

Untuk coding nya silakan lihat di bawah ini

Private Sub TblClose_Click()
Unload Me
End Sub

Private Sub TblEdit_Click()
kodebarang = Me.TextBox1.Value
With Worksheets("sheet1").Range("B4:D10000")
    Set X = .Find(kodebarang, LookIn:=xlValues)
    If Not X Is Nothing Then
        Baris = X.Row
        Worksheets("sheet1").Cells(Baris, 3).Value = Me.TextBox2.Value
        Worksheets("sheet1").Cells(Baris, 4).Value = CDbl(Me.TextBox3.Text)
        Call Bersihkan
        TextBox1.SetFocus
    End If
End With
Application.ThisWorkbook.Save
End Sub

Private Sub TextBox1_AfterUpdate()
kodebarang = Me.TextBox1.Value
With Worksheets("sheet1").Range("B4:D10000")
    Set X = .Find(kodebarang, LookIn:=xlValues)
    If Not X Is Nothing Then
        Baris = X.Row
        Me.TextBox2.Value = Worksheets("sheet1").Cells(Baris, 3).Value
        Me.TextBox3.Value = Worksheets("sheet1").Cells(Baris, 4).Value
        Else
            MsgBox "Maaf, nama barang tidak ditemukan.."
    End If
    End With
End Sub

Private Sub TextBox3_Change()
Call FormatAngka
End Sub

Private Sub TmblSimpan_Click()
Dim Baris As Long
Baris = Worksheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).Offset(1, 1).Row
Worksheets("Sheet1").Cells(Baris, 2).Value = TextBox1.Value
Worksheets("Sheet1").Cells(Baris, 3).Value = TextBox2.Value
Worksheets("Sheet1").Cells(Baris, 4).Value = CDbl(TextBox3.Text)
Call Bersihkan
TextBox1.SetFocus
Application.ThisWorkbook.Save
End Sub

Sub FormatAngka()
If IsNumeric(TextBox3) Then
    TextBox3 = Format(TextBox3, "#,##0")
End If
End Sub

Sub Bersihkan()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
End Sub

Semoga bermanfaat

Tweet