Lompat ke konten Lompat ke sidebar Lompat ke footer

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

www.niguru.com 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:

www.niguru.com

 
Setelah semua data foto terisi maka form akan menampilkan foto KTP.
Berikut ini tampilannya:


www.niguru.com

Setiap kali pindah record foto KTP berganti akan mengikuti record:

www.niguru.com

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

www.niguru.com

 
Untuk mengatasinya, edit VBA:
Private Sub Form_Current()
Forms![f_KTP]![GbrKTP].Picture = "S:\NGRDocs\NiguruApps\KTP\" & Me.FotoKTP
End Sub


www.niguru.com

 
Menjadi:

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


www.niguru.com

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

www.niguru.com
 

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)

Posting Komentar untuk "Melengkapi Aplikasi Database KTP Dengan Fasilitas Untuk Menampilkan Foto KTP – Part 5"