HOME
Hubungi kami
Komentar
Punya Account Blogger?
Masuk
Java & Netbeans
Write once run everywhere
HOME
Profil
Facebook
Twitter
Asisten Lab malem 2009
Keluarga Besar BSI BOGOR
Persahabatan :: bagai kepompong
My Fren
Mengenai Saya
Sofyan SOX
Inilah Saya
Lihat profil lengkapku
Networked Blog
Follow this blog
Statistik
Diberdayakan oleh
Blogger
.
Java & Netbeans
Memuat...
Follow Us Via:
E-Mail Subscription
Twitter Updates
No otomatis berdasarkan kategori
Posted by Sofyan SOX on Senin, 28 Juni 2010 in
VBdatabase
download source Code
makasi buat kang higi...
jawabannyadi upload disini aja yach ...
mudah2an berguna jga bwt yg laen ...
<br /> <br /> Private Sub Form_Load()<br /> <br /> <br /> Me.dbuku.DatabaseName = App.Path + "\buku.mdb"<br /> <br /> Me.dkat.DatabaseName = App.Path + "\buku.mdb"<br /> <br /> <br /> End Sub<br /> <br /> <br /> Private Sub cbkat_Click(Area As Integer)<br /> <br /> <br /> Dim kode, ket As String<br /> <br /> Dim no As Integer<br /> <br /> <br /> With Me.dkat.Recordset<br /> <br /> .FindFirst "keterangan='" + Me.cbkat.Text + "'"<br /> <br /> kode = !kategori<br /> <br /> ket = !keterangan<br /> <br /> End With<br /> <br /> <br /> Me.dbuku.RecordSource = "select * from buku where kategori = '" + ket + "'"<br /> <br /> Me.dbuku.Refresh<br /> <br /> <br /> With Me.dbuku.Recordset<br /> <br /> If .RecordCount > 0 Then<br /> <br /> .MoveLast<br /> <br /> no = Val(Right(!kode_buku, 3)) + 1<br /> <br /> Else<br /> <br /> no = 1<br /> <br /> End If<br /> <br /> End With<br /> <br /> <br /> If no < 10 Then<br /> <br /> Me.tkode.Text = kode & "00" & no<br /> <br /> ElseIf no < 100 Then<br /> <br /> Me.tkode.Text = kode & "0" & no<br /> <br /> ElseIf no < 1000 Then<br /> <br /> Me.tkode.Text = kode & no<br /> <br /> End If<br /> <br /> <br /> End Sub<br /> <br /> <br /> <br /> Private Sub csimpan_Click()<br /> <br /> <br /> With Me.dbuku.Recordset<br /> <br /> .AddNew<br /> <br /> !kode_buku = Me.tkode.Text<br /> <br /> !nama_buku = Me.tnama.Text<br /> <br /> !kategori = Me.cbkat.Text<br /> <br /> .Update<br /> <br /> End With<br /> <br /> <br /> MsgBox "data Tersimpan"<br /> <br /> <br /> Me.tkode = ""<br /> <br /> Me.tnama = ""<br /> <br /> Me.cbkat = ""<br /> <br /> <br /> End Sub<br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br />
0 Responses to “No otomatis berdasarkan kategori”:
Posting Komentar
Posting Lebih Baru
Posting Lama
Beranda
HOME
Contact Us
About
Testimonials
Copyright 2009 -
Java & Netbeans
. All Rights Reserved.
Theme by
www.wpsmash.com
|
Blogger Templates
by
Blogger Template Place
This template is brought to you by :
allblogtools.com
|
Blogger Templates
Posting Komentar