15 August 2019

Function Untuk Mengisi Field Dengan Angka Berurutan Dalam Hitungan Maju

www.niguru.com
Niguru.com | Kamis, 15 Ags 2019 | Dalam menyusun program kadangkala Niguru.com memerlukan sebuah tabel dengan jumlah record yang sudah Niguru.com batasi dan didalamnya sudah terdapat sebuah field yang berisi angka yang berurutan.

Kadangkala Niguru.com membutuhkan angka berurutan maju/naik (up counting) yang biasanya diberlakukan untuk form khusus yang hanya bisa diedit dan tidak pula bisa dihapus atau ditambah.



Tabel record terbatas semacam ini biasanya digunakan untuk mencatat daftar penumpang pada kendaraan umum atau pesawat, daftar pengunjung bioskop yang jumlah kursinya memang terbatas, daftar undangan terbatas, dan lain sebagainya yang record-nya memang terbatas.

Untuk keperluan ini Niguru.com menggunakan function khusus, yang pada artikel kali ini Niguru.com bagikan kepada para pembaca sekalian.
Berikut ini adalah instruksi untuk function tersebut:

'Function Up Counter:
'-----------------------------
Public Function UpCounter(tableKu As String, fieldKu As String, counterNum As Integer) As Boolean
Dim sqlKu As String
Dim upCnt As Integer
UpCounter = False
upCnt = 0

If counterNum <> 0 Then
Do While counterNum > 0
upCnt = upCnt + 1
sqlKu = "INSERT INTO " & tableKu & " ( " & fieldKu & " ) SELECT " & upCnt & " AS dataKu;"
DoCmd.SetWarnings False
DoCmd.RunSQL sqlKu
DoCmd.SetWarnings True
counterNum = counterNum - 1
Loop
UpCounter = 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 maju/naik. Contohnya sebagai berikut:

Dim dataKu As Boolean
dataKu = UpCounter("tabel_penumpang", "IDpenumpang", 120)

Setelah selesai maka dataKu akan menjadi TRUE. Namun apabila parameter ketiga = 0, maka dataKu akan menjadi FALSE
'-----------------------------
Selamat mencoba .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)

No comments:

Post a Comment