[belajar-access] Re: VBA listview Lagi

 

Ok Kang Dani, bila berkenan, filenya yg sudah OK disend balik ke milis, insya Allah bermanfaat buat kita2 yg sedang belajar.

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
http://imopi.wordpress.com/

--- In belajar-access@yahoogroups.com, dani wardana <dani1011w@...> wrote:
>
> Ass.Wr.Wb
>
> Maaf kang.. saya sudah coba2 cara Kang Opi ternyata
> saya yang salah di Public Sub VIEW()
>
> bagian For ... Next..
>
> jadi listview di Form Edit
>
> tampilnya selalu Checked semuanya...
>
>
>
> Wass
>
> DSW
>
>
> ________________________________
> From: Sofyan Efendi <sofyanefendi@...>
> To: belajar-access@yahoogroups.com
> Sent: Wednesday, May 30, 2012 2:10 PM
> Subject: Re: [belajar-access] VBA listview Lagi
>
>
>  
> 
> Halo Kang Dani, giliran saya nih yg belum
> paham:
> 1. Bukannya di listview sudah ada VBA nya
> Kang? Menggunakan procedure IsiListView?
> 2. Untuk edit table, bisa dicoba dengan
> DAO.
> Mangga Kang dicoba dulu, bila sudah mentok, bisa
> share kembali di milis.
> Atau mungkin teman2 ada yg bisa share,
> dipersilahkan.
>  
> Wassalaamu'alaikum Warahmatullahi
> Wabarakatuh,
> Sofyan Efendi
> http://imopi.wordpress.com/
> ----- Original Message -----
> >From: dani wardana
> >To: belajar-access@yahoogroups.com
> >Sent: Wednesday, May 30, 2012 12:37 PM
> >Subject: Re: [belajar-access] VBA listview Lagi
> >
> >
> >Ass. Wr. Wb
> >
> >
> >
> >Wah asyik penjelasannya.. Kang
> >Tapi ada yang kurang jelas..!
> >1. Untuk VBA di listview nya kumaha ...
> >
> >2. Makdud di edit adalah ketika kita menambah atau mengurangi item di listview..
> >
> >    akan merubah data tabel transdet..
> >3. Jazakumullah Khairan Katsiran..
> >
> >
> >Nuhun Pisan.. tong kapok..
> >
> >
> >
> >Wass
> >
> >
> >DSW
> >
> >
> >________________________________
> > From: Sofyan Efendi <sofyanefendi@...>
> >To: belajar-access@yahoogroups.com
> >Sent: Wednesday, May 30, 2012 10:05 AM
> >Subject: Re: [belajar-access] VBA listview Lagi [1 Attachment]
> >
> >
> > 
> >Dear Kang Dani, kita bisa manfaatkan ADO dan DAO untuk penggunaan data unbound.
> > 
> >Deklarasikan dahulu di paling atas class modulenya, variable recordset dan databasenya. Karena Kang Dani menggunakan DAO, kita bisa menggunakan (misal):
> > 
> >Option Compare Database
> >Private
> dbtmp As DAO.Database
> >Private rstmp As DAO.Recordset
> > 
> >Pada event On Load, isi variable diatas, misal:
> > 
> >Private Sub Form_Load()
> >'    DoCmd.Maximize
> >   
> Call IsiListView
> >    Call VIEW
> > 
> >' Tambahan dari Opi, isi memori variable dengan recordset yg kita inginkan:
> >Set
> dbtmp = CurrentDb()
> >Set rstmp = dbtmp.OpenRecordset("SELECT DISTINCTROW
> Trans.*, TransDet.* FROM Trans INNER JOIN TransDet ON Trans.IDTrans =
> TransDet.IDTrans;", dbOpenDynaset)
> >Set Me.Recordset = rstmp
> >End
> Sub
> >
> >Kemudian untuk tombol Next Record:
> > 
> >Private Sub Command106_Click()
> >On Error GoTo nol
> >   
> Me.Recordset.MoveNext
> >    Me.Noreg =
> rstmp!Noreg
> >    Me.Nama = rstmp!Nama
> >   
> Me.Alamat = rstmp!Alamat
> >nol:
> >End Sub
> > 
> >Untuk previous:
> > 
> >Private Sub Command105_Click()
> >On Error GoTo nol
> >   
> Me.Recordset.MovePrevious
> >    Me.Noreg =
> rstmp!Noreg
> >    Me.Nama = rstmp!Nama
> >   
> Me.Alamat = rstmp!Alamat
> >nol:
> >End Sub
> > 
> >Adapun yg dimaksud membuka ulang (edit) record yg sudah di simpan bagaimana ya Kang? Mengapa tidak menggunakan satu perintah "Simpan" saja ya? Kan datanya sudah tampil, tidak perlu menggunakan tombol Edit, karena sudah bisa langsung di Edit. Jadi tinggal klik Simpan saja menurut saya.
> >
> >Private Sub Simpan_Click()
> >'===========================
> >'Tambahan dari
> Opi:
> >    rstmp.Edit
> >    rstmp!Noreg
> = Me.Noreg
> >    rstmp!Nama = Me.Nama
> >   
> rstmp!Alamat = Me.Alamat
> >    rstmp.Update
> >'===========================
> > 
> >Dim db As Database
> >Dim rs As
> Recordset
> >Dim ra As Recordset
> >Set db = CurrentDb()
> >Set ra =
> db.OpenRecordset("Trans", dbOpenDynaset)
> >Set rs =
> db.OpenRecordset("Transdet", dbOpenDynaset)
> >Dim i As Long
> > 
> >        ra.AddNew
> >           
> If DCount("idtrans", "trans", "[idtrans] Like '*'") = 0
> Then
> >              
> nourut =
> 1
> >           
> Else
> >              
> NoUrutTertinggi = CInt(DMax("idtrans", "trans", "[idtrans] Like
> '*'"))
> >              
> nourut = NoUrutTertinggi +
> 1
> >            End
> If
> > 
> >            ra!idtrans = nourut
> >           
> ra!Noreg =
> Me.Noreg
> >           
> ra!Nama =
> Me.Nama
> >           
> ra!Alamat = Me.Alamat
> >       
> ra.Update
> >           
> >For i = 1 To ListViewLAB.ListItems.Count
> >    If
> ListViewLAB.ListItems(i).Checked = True
> Then
> >       
> rs.AddNew
> >           
> rs!idtrans =
> intnourut
> >           
> rs!kode =
> ListViewLAB.ListItems(i).Text
> >           
> rs!barang =
> ListViewLAB.ListItems(i).SubItems(1)
> >           
> rs!harga =
> ListViewLAB.ListItems(i).SubItems(2)
> >           
> rs!model =
> ListViewLAB.ListItems(i).SubItems(3)
> >       
> rs.Update
> >       End
> If
> >       
> >Next i
> >Me!SumHarga =
> Format(Me!SumHarga, "#,###")
> > 
> >rs.Close
> >Set rs =
> Nothing
> >ra.Close
> >Set ra = Nothing
> >db.Close
> >Set db =
> Nothing
> > 
> >End Sub
> > 
> >Kemudian jangan lupa untuk membersihkan memori saat form di close:
> > 
> >Private Sub Form_Close()
> >    rstmp.Close
> >   
> dbtmp.Close
> >    Set rstmp = Nothing
> >   
> Set dbtmp = Nothing
> >End Sub
> > 
> >Saya kirim balik ya attach file nya. Silahkan buka form "EDIT". Trim's.
> > 
> >Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> >Sofyan
> Efendi
> >http://imopi.wordpress.com/
> >----- Original Message -----
> >>From: dani wardana
> >>To: belajar-access@yahoogroups.com
> >>Sent: Tuesday, May 29, 2012 9:13 AM
> >>Subject: [belajar-access] VBA listview Lagi [1 Attachment]
> >>
> >>
> >>Ass.Wr.Wb
> >>
> >>
> >>
> >>Master Access sekalian..
> >>
> >>minta pencerahan VBA nya untuk
> >>1.
> membuka ulang (edit) record yg sudah di simpan
> >>2. membuat VBA untuk maju
> / mundur record..
> >>
> >>terima kasih
> sebelumnya
> >>
> >>wass
> >>
> >>DSW
> >
> >
>

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (5)

Recent Activity:

• New Members 4

Visit Your Group

SPAM IS PROHIBITED

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___