bagaimana formulanya untuk button edit diuserform

  1. 10 bulan yang lalu
    Di sunting 10 bulan yang lalu oleh rudy tirawan

    master2.. mhon bantuan bbimbingannya..biar bisa data yg sdh diinput kedatabase ketika diklik button edit diuserform ..keembali lagi datax keuserform gmn ya scrib x..

    Yang dimaksud Database itu adalah formulir pada sheet Rudy itu ya? Bukan berupa tabel?! Jika memang demikian, maka skrip yang diinginkan untuk tombol Edit itu sebenarnya sudah ada pada skrip VBA yang mas @Rudy Tirawan susun tersebut... :) Tinggal dibalik saja. Coba lihat baris kode pada prosedur cmdsimpan_Click:

    Private Sub cmdsimpan_Click()
    Worksheets("rudy").Activate
    Range("I7").Value = txtno.Value
    Range("K12").Value = txtnama.Value
    Range("K13").Value = cmbjenis.Value
    Range("K14").Value = txtttl.Value
    Range("K15").Value = cmbkw.Value
    Range("K16").Value = cmbstatus.Value
    Range("K17").Value = cmbagama.Value
    Range("K18").Value = cmbpekerjaan.Value
    Range("K19").Value = txtalamat.Value
    Range("E23").Value = txtrt.Value
    Range("G23").Value = txtrw.Value
    Range("Q29").Value = cmbdi.Value
    Range("Q30").Value = txttgl.Value
    Range("M32").Value = cmbkepdes.Value
    Range("M33").Value = cmbsekdes.Value
    Range("M37").Value = cmbnama.Value
    ...

    Maka untuk prosedur cmbedit_Click prosesnya dibalik menjadi:

    Private Sub cmbedit_Click()
       Worksheets("rudy").Activate
       txtno.Value = Range("I7").Value
       txtnama.Value = Range("K12").Value
       cmbjenis.Value = Range("K13").Value
       txtttl.Value = Range("K14").Value
       cmbkw.Value = Range("K15").Value
       cmbstatus.Value = Range("K16").Value
       cmbagama.Value = Range("K17").Value
       cmbpekerjaan.Value = Range("K18").Value
       txtalamat.Value = Range("K19").Value
       txtrt.Value = Range("E23").Value
       txtrw.Value = Range("G23").Value
       cmbdi.Value = Range("Q29").Value
       txttgl.Value = Range("Q30").Value
       cmbkepdes.Value = Range("M32").Value
       cmbsekdes.Value = Range("M33").Value
       cmbnama.Value = Range("M37").Value
    End Sub

    Menurut saya sih demikian... ;)

  2. Caton

    14 Nov 2017 Terverifikasi Jawaban Terpilih Indonesia + 11.512 Poin

    Yang dimaksud Database itu adalah formulir pada sheet Rudy itu ya? Bukan berupa tabel?! Jika memang demikian, maka skrip yang diinginkan untuk tombol Edit itu sebenarnya sudah ada pada skrip VBA yang mas @Rudy Tirawan susun tersebut... :) Tinggal dibalik saja. Coba lihat baris kode pada prosedur cmdsimpan_Click:

    Private Sub cmdsimpan_Click()
    Worksheets("rudy").Activate
    Range("I7").Value = txtno.Value
    Range("K12").Value = txtnama.Value
    Range("K13").Value = cmbjenis.Value
    Range("K14").Value = txtttl.Value
    Range("K15").Value = cmbkw.Value
    Range("K16").Value = cmbstatus.Value
    Range("K17").Value = cmbagama.Value
    Range("K18").Value = cmbpekerjaan.Value
    Range("K19").Value = txtalamat.Value
    Range("E23").Value = txtrt.Value
    Range("G23").Value = txtrw.Value
    Range("Q29").Value = cmbdi.Value
    Range("Q30").Value = txttgl.Value
    Range("M32").Value = cmbkepdes.Value
    Range("M33").Value = cmbsekdes.Value
    Range("M37").Value = cmbnama.Value
    ...

    Maka untuk prosedur cmbedit_Click prosesnya dibalik menjadi:

    Private Sub cmbedit_Click()
       Worksheets("rudy").Activate
       txtno.Value = Range("I7").Value
       txtnama.Value = Range("K12").Value
       cmbjenis.Value = Range("K13").Value
       txtttl.Value = Range("K14").Value
       cmbkw.Value = Range("K15").Value
       cmbstatus.Value = Range("K16").Value
       cmbagama.Value = Range("K17").Value
       cmbpekerjaan.Value = Range("K18").Value
       txtalamat.Value = Range("K19").Value
       txtrt.Value = Range("E23").Value
       txtrw.Value = Range("G23").Value
       cmbdi.Value = Range("Q29").Value
       txttgl.Value = Range("Q30").Value
       cmbkepdes.Value = Range("M32").Value
       cmbsekdes.Value = Range("M33").Value
       cmbnama.Value = Range("M37").Value
    End Sub

    Menurut saya sih demikian... ;)

  3. iya om..yg dimaksud demikian

  4. Di sunting 10 bulan yang lalu oleh rudy tirawan

    klo ini gmn jga pak permaslhn x..???

  5. Caton

    14 Nov 2017 Terverifikasi Indonesia + 11.512 Poin

    Pesan kesalahannya apa? Biasanya yang sering saya alami klo proses eksekusi berhenti pada baris kode seperti gambar di atas antara lain karena UserForm masih terlihat (tidak ter-hide), atau objek UserForm tidak ada (namanya diubah atau objeknya telah dihapus). Coba tekan tombol Run (F5) untuk melihat apakah ada pesan kesalahan yang ditampilkan...

  6. untuk mslah nie sdh terselaikan..maksih pak atas bimbingan x

 

atau Mendaftar untuk ikut berdiskusi!