Script untuk Membuat no Penjualan otomatis dalam visual basic 6

Untuk sebuah program penjualan tentulah sangat dibutuhkan sebuah no Penjualan otomatis untuk meminimalisir kelupaan menulis no Penjualan secara manual. jadi saya akan memberikan sebuah script sederhana untuk membuat no Penjualan otomatis .

Check This Out!!

Dim jml As String
jml = dataPenjualan.Recordset.RecordCount
If jml = 0 Then

TxtNoPenjualan.Text = "A0001"
ElseIf jml >= 1000 Then

TxtNoPenjualan.Text = "A" & jml + 1

ElseIf jml >= 100 Then

TxtNoPenjualan.Text = "A0" & jml + 1

ElseIf jml >= 10 Then

TxtNoPenjualan.Text = "A00" & jml + 1


ElseIf jml <= 9 Then

TxtNoPenjualan.Text = "A000" & jml + 1
End If


azz-corp94.com
semoga bermanfaat yya gan!