> 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
