FORM EDIT SEDERHANA
Pembahasan Kali adalah cara membuat form edit sederhana menggunakan combobox sebagai control pencariannya
Buatlah Form seperti gambar diatas
ComboBox1 , TextBox2 dan TextBox3 dan CommandButton1
Sebuah sheet denga Nama “ Petani “
Cara cukup Mudah Pastekan kode berikut pada CommandButton1
Kode lengkapnya :
Private Sub CommandButton1_Click()
Dim pesan As Integer
pesan = MsgBox("Yakin ingin menyimpan Data PETANI baris ini?", vbYesNo + vbQuestion, "Peringatan")
If pesan = vbYes Then
Data = ComboBox1.Value
With Worksheets("PETANI").Range("A6:A58")
Set c = .Find(Data, LookIn:=xlValues)
If Not c Is Nothing Then
baris = c.Row
Worksheets("PETANI").Cells(baris, 1).Value = ComboBox1.Value
Worksheets("PETANI").Cells(baris, 2).Value = TextBox2.Value
Worksheets("PETANI").Cells(baris, 3).Value = TextBox3.Value
End If
End With
ComboBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
ComboBox1.SetFocus
End If
End Sub
Pastekan Kode untuk menampilkan list pada combox1 pada userform1 kode lengkap dibawah ini :
Private Sub UserForm_Initialize()
ComboBox1.List = Sheets("PETANI").Range("a6:a200").Value
End Sub
Seperti biasanya buat modul untuk memanggil userform
Dengan kode sebagai berikut
Sub panggil_userform1 ()
Userform1. Show
End sub
Selesai
Semoga bermanfaat
Silahkan klik halaman Download dibawah ini
Form Edit
No comments:
Post a Comment