Function Untuk Mengisi Field Dengan Angka Hitungan Mundur (Down Counter)

Niguru.com | Jumat, 16 Ags 2019 | Pada posting kemarin Niguru.com sudah menjelaskan mengenai langkah-langkah untuk mengisi field dengan angka berurutan yang merupakan hitungan maju, maka pada posting kali ini Niguru.com akan menjelaskan mengenai teknik yang sebaliknya.

Kali ini Niguru.com akan menjelaskan cara membuat function (berupa instruksi /script VBA) yang dapat mengisi field dengan hitungan mundur. Kegunaannya juga sama seperti pada field yang diisi dengan hitungan maju, yaitu untuk mencatat data dengan record yang terbatas.



Berikuti ini penjelasan selengkapnya:

'-----------------------------
'Function Down Counter:
'-----------------------------
Public Function DownCounter(tableKu As String, fieldKu As String, counterNum As Integer) As Boolean
Dim sqlKu As String
DownCounter = False

If counterNum <> 0 Then
Do While counterNum > 0
sqlKu = "INSERT INTO " & tableKu & " ( " & fieldKu & " ) SELECT " & counterNum & " AS dataKu;"
DoCmd.SetWarnings False
DoCmd.RunSQL sqlKu
DoCmd.SetWarnings True
counterNum = counterNum - 1
Loop
DownCounter = True
End If

End Function'-----------------------------

Untuk menggunakannya user harus membuat sebuah variabel bertipe data boolean, dan isi dengan nama tabel, nama field, dan jumlah record yang ingin diisi dengan angka hitungan mundur/turun. Contohnya sebagai berikut:

Dim dataKu As Boolean
dataKu = DownCounter("tabel_penumpang", "IDpenumpang", 280)

Setelah selesai maka dataKu akan menjadi TRUE. Namun apabila parameter ketiga = 0, maka dataKu akan mejadi FALSE
'-----------------------------

Selamat mencoba :-)

www.Niguru.com (Nino Guevara Ruwano)