posted by aryo tejo w on February 25, 2019

Sebelum membahas script query dalam implementasi di antar muka aplikasi, lebih baik mengetahui dulu struktur tabel di modul penjualan.

Kolom No nota adalah kolom kunci, yang digunakan sebagai pembeda tiap transaksi penjualan. Secara sederhana tabel penjualan meliputi 2 tabel yang salaing berhubungan. Tabel tersebut adalah tabel jual dan detailjual.

Untuk menjelaskan artikel yang berjudul “Visual Basic 6 , format no nota yang reset per tahun”, maka cukup kita uraikan struktur tabel untuk tabel jual saja.

Yaitu meliputi; no_nota (varchar, 20), tanggal (date), id_customer (varchar, 20),Total (Numeric,single).

Format no nota yang idnginkan misal; RK.0519.001

RK adalah inisial usaha (tergantung pemesan, bisa 2 atu 3 dst, asal konstan)

0519 adalah format bulan tahun yang diambil 2 angka, yaitu 05 untuk Mei dan 19 untuk tahun 2019.

001 adalah urutan pertama kali saat mengisi data.(data masih kosong)

 

Pada antar muka, dibuat letak Text box TXTno_nota lebih di bawah dari pada objek datepicker , yang diberi nama DTTanggal.Maksud tata letak ini, adalah agar user mengatur/memilih dulu tanggal dari datepicker yang secara ototmatis akan memberi format no nota di objek TXTno_nota, format no nota nya.

Dim vTahun_db As String, vMMYY As String

vMMYY = Format(DtTanggal.value, "MMYY")

vTahun_db = VBA.Mid(Format(DtTanggal. value, "DD/MM/YYYY"), 7, 4)

strSql = "SELECT max(Val(Right(no_nota, Len(Trim(no_nota))-8))) as nota FROM jual where " _

+ " year(tanggal)=" & Val(vTahun_db) & " "

Leave a Comment

Fields with * are required.

Please enter the letters as they are shown in the image above.
Letters are not case-sensitive.