kk devi hilsa, soalnya dd pake adodc1, gmn lagi yach caranya ? program udah 30% jadi, klo mau ulang dari awal lagi kan gak mungkin yach ... mohon petunjuknya kk devi atau kk2 vb master yang lain.. thx
----- Original Message ----- From: devi hilsa To: [email protected] Sent: Saturday, January 26, 2008 9:14 AM Subject: Re: [indoprog-vb] Nomor Otomatis > kk / guru2 vb, tolong donk, gmn yach buat supaya > bisa nomor automatis ? > contoh : No.JobSheet > text1.text = textbox > nomor di mulai dari 3000 > setiap form di panggil atau aktif, akan terus > bertambah, dan tidak boleh duplikasi .... > > thx ya kk, saya masih newbie nich di VB 6.0 Menurut saya tinggal kita buat prosedur_otomatis yang akan dipanggil begitu form kita aktif misalnya di Form On Active. sub prosedur_otomatis Dim Koneksi As New ADODB.Connection Dim rsrec As ADODB.Recordset Set rsrec = New ADODB.Recordset 'buka koneksi database koneksi.open .......sesuaikand dengan program anda rsrec.open "select No.jobsheet from namatabel",koneksi 'jika record kosong if rsrec.recordcount <> 0 then 'lakukan penambahan isi_jobsheet = rsrec.movelast textboxt = val(isi_jobsheet + 1) else 'mulai isi tabel dengan angka 3000 textboxt = 3000 end if rsrec.close set rsrec=nothing End sub Algoritmanya seperti ini: - prosedur harus diload begitu form aktive Call prosedur_Otomatis - isi prosedur : - cek apakah jumlah record ada ? -jika ada berarti kita tinggal ambil no.jobsheet terakhir (bisa diambil dengan Record.movelast) ditambahkan dengan satu dan set nilainya ke textboxt textboxt.text = val(rec.terakhir) + 1 - jika tidak (artinya jumlah recordset kosong) maka kita set No.Jobsheet dengan angka 3000. maka set textbox.text = 3000 'ini akan dipanggil satu kali saja jadi begitu form kita dipanggil/aktiv maka prosedur itu akan dipanggil dan menset nilai textboxt dengan angka yg diinginkan. semoga dapat membantu. __________________________________________________________ Never miss a thing. Make Yahoo your home page. http://www.yahoo.com/r/hs [Non-text portions of this message have been removed]
