posted by aryo tejo w on May 24, 2019

Pada bagian 2, tentang format no nota yang dapa reset kembali ke awal urutan semula. Untuk yang bagian 3 ini, lebih dalam lagi dibahas mengenai penerapan di coding layout dan tampak hasil.

Pada Form penjualan, bisa dengan membuat Sub yang berisi prosedure untuk query SQL yang ditampung dalam variabel string. Oleh variebel recordset, ditampung untuk mewakili query tabel yang dimaksud

Sub NomorNota

    strSql = “SELECT max(Val(Right(no_nota, Len(Trim(no_nota))-8))) as nota FROM jual where year(tanggal)=" & Val(vTahun_db) & ”

‘coding SQL di atas menerangkan bahwa kolom alias nota diperoleh dari query dengan mencari angka urutan paling maks (terbesar) dari format nota yang dihitung dari mulai kanan.

Set RS2 = cN.Execute(strSql)

‘variabel RS2, sebagai penampung hasil query dengan tipe data recordset atau data tabel

    With RS2

    If IsNull(!nota) Then

‘apabila kolom alias nota null ( bisa dikatakan belum ada data)

txtNoNota.Text = Trim("RK." + vMMYY + ".001")

‘maka isilah txtnonota.texy menjadi RK.0519.001   (sesuai bulan tahun datepicker nya)

    Exit Sub

    End If

    If Not .EOF Then ‘apabila ada data

 

If Val(VBA.Right(!nota, 4)) > 99 Then

‘apabila hasil kolom alias lebih dari  99

txtNoNota.Text = Trim("RK." + vMMYY + ".") + Trim(Str(!nota + 1))

‘isilah Txtnonota.text = RK.0519.1000 dan seterusnya

ElseIf Val(VBA.Right(!nota, 4)) <= 99 Then

‘apabila hasil kolom alias kurang dariatau sama dengan 99

txtNoNota.Text = Trim("RK." + vMMYY + ".0") + Trim(Str(!nota + 1))

‘isilah Txtnonota.text = RK.0519.099 dan ke bawah

ElseIf Val(VBA.Right(!nota, 4)) <= 9 Then

‘apabila hasil kolom alias kurang dari atau sama dengan 9

 txtNoNota.Text = Trim("RK." + vMMYY + ".00") + Trim(Str(!nota + 1))

‘isilah Txtnonota.text = RK.0519. 001 dan seterusnya

End If

     End If

End Sub

Leave a Comment

Fields with * are required.

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