Melengkapi Aplikasi Database KTP Dengan Fasilitas Untuk Menampilkan Foto KTP – Part 5

Niguru.com | Minggu, 27 Feb 2022 | Pada posting sehari sebelumnya Niguru.com sudah menjelaskan bagian keempat dari langkah-langkah untuk menambahkan tampilan foto pada aplikasi database KTP.

Pada posting kali ini Niguru.com akan melanjutkan dengan proses finishing dari aplikasi database KTP ini. Dimana pada artikel sebelumnya sudah dijelaskan langkah-langkah untuk menampilkan foto pada halaman form sesuai dengan record yang dipilih pada subform.

Isikan nama file dari foto KTP pada field FotoKTP, pada contoh ini Niguru.com memberi nama file sama dengan nomor KTP, namun user boleh menggunakan nama lain:

 

Setelah semua data foto terisi maka form akan menampilkan foto KTP.

Berikut ini tampilannya:

Setiap kali pindah record foto KTP berganti akan mengikuti record:

Saat cursor berada di tempat dimana record masih kosong (belum ada data), maka akan tampil run-time error:

 

Untuk mengatasinya, edit VBA:

Private Sub Form_Current()

Forms![f_KTP]![GbrKTP].Picture = "S:\NGRDocs\NiguruApps\KTP\" & Me.FotoKTP

End Sub

 

Menjadi:

Private Sub Form_Current()

If Not IsNull(IDKTP) Then Forms![f_KTP]![GbrKTP].Picture = "S:\NGRDocs\NiguruApps\KTP\" & Me.FotoKTP

End Sub

Maka run-time error tidak akan tampil saat kursor berada pada record yang belum terisi (kosong):

 

Demikianlah penjelasan mengenai cara untuk melengkapi aplikasi database KTP dengan fasilitas untuk menampilkan foto KTP.

Selamat mencoba .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)

Lokasi:

Berbagi :