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..