----- Original Message -----
Sent: Wednesday, June 28, 2006 8:30
AM
Subject: Re: [Programmer-VB] Mohon
Percernaan untuk penambahan nomor secara otomatis..
Dear Mr Robby.....
Gini bos....ditabel yang mau dimasukin nomor
otomatis tersebut, buat field Nomor dengan type datanya
numeric.(misalnya nama tablenya
Invoice)
nah terus di tombol tambah listing programnya
:(misalnya nama tablenya Invoice)
Set rs1 = Conn.Execute("Select
* from Invoice order by Nomor desc")
If Not rs1.EOF
Then
Nomor = rs1("Nomor") +
1
NoInvoice = "N-" &
Format(Nomor, "0000000")
Else
Nomor =
1
NoInvoice = "N-0000001
"
End If
Set rs1 =
Nothing
Ket : N ---> format penomoran
aja.....
semoga membantu....
thanks
Agung
----- Original Message -----
Sent: Friday, June 23, 2006 5:23
PM
Subject: Re: [Programmer-VB] Mohon
Percernaan untuk penambahan nomor secara otomatis..
Oh iya sebelumnya pada deklarasi kode
seharusnya string
dim Kode as String
----- Original Message -----
Sent: Friday, June 23, 2006 5:04
PM
Subject: Re: [Programmer-VB] Mohon
Percernaan untuk penambahan nomor secara otomatis..
pada kode ini:
kode = Val(angka) +
1
ubah menjadi
kode=format(Val(angka) +
1,"0000")
----- Original Message -----
Sent: Friday, June 23, 2006 4:48
PM
Subject: [Programmer-VB] Mohon
Percernaan untuk penambahan nomor secara otomatis..
Dear All Suhu VB
Maaf Baru kenal Vb nih saya punya masalah
ketika saya klik tombol tambah saya ingin txtnobukti secara
otomatis bertambah ( 0001 s/d seterusnya) dengan mengecek di database
terlebih dahulu...
tetapi malah yang betambah hanya di
depannya saja seperti ini 2 bukan
0002 berikut listing yang saya gunakan
Private Sub cmdtambah_Click()
Dim angka,
kode As Currency
angka = Right(rsbayar!no_bukti, 4)
kode =
Val(angka) + 1
txtnobuk.Text = (rsbayar!no_bukti) + kode
If cmdtambah.Caption = "&TAMBAH"
Then
cmdtambah.Caption =
"&SIMPAN"
B.Reg's
Agus Muhardi
Yahoo! Groups gets better. Check
out the new email design. Plus theres much more to come.
