Membuat Kode Bahan secara otomatis menggunakan Visual Basic 6.0

Koneksi menggunakan Data Environment…

Private Function autokodebhn()
Dim fcode As String
Dim scode As String

With DE
fcode = “BHN-”

If .rskodebahan.RecordCount <= 0 Then
scode = “0001”
Else

.rskodebahan.MoveLast
scode = Right(“000” + Trim(Str(Val(Right(.rskodebahan!Kode_Bahan, 4)) + 1)), 4)
End If

autokodebhn = fcode + scode
txtdatabahan(0).Text = autokodebhn

End With

End Function
Panggil Function di atas pada saat tombol tambah / add di klik, emm….pa lagi ya !!!!!!!
Oya..gk cuma bisa buat Kode Bahan aja, pake Kode Karyawan ato yang lainnya jg bisa !!!!!

nie aq di ajarin ama dosen aq..katanya dia yg nemuin coding ini..bgono..

One thought on “Membuat Kode Bahan secara otomatis menggunakan Visual Basic 6.0

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s