Kalo gitu sebelum code
ImgFoto.Picture = LoadPicture("C:\......\" &
TxtStambuk.Text + ".jpg")
trap dulu dg pengecekan eksitensi file jpgnya...
jika tidak eksis tampilkan pesan error..
untuk sample code pengecekan eksistensi file bisa dilihat di :
http://www.programmershelp.co.uk/showcode.php?e=503
atau
http://www.vbforums.com/showthread.php?t=349990
...
If Dir("path+namafile") Then
...
On 8/30/06, arif ipul <[EMAIL PROTECTED]> wrote:
>
> Dear miliser
>
> Saya punya masalah ni...
> saya lagi bikin program di kampus aku. untuk
> memudahkan, berikut petikan kode program yang ada :
>
> Private Sub TxtStambuk_KeyPress(KeyAscii As Integer)
> If KeyAscii = vbKeyReturn Then
> DtMahasiswa.Recordset.FindFirst "stambuk = '" +
> TxtStambuk.Text + "'"
> LblStambuk.Caption =
> DtMahasiswa.Recordset!STAMBUK
> LblAlamat.Caption = DtMahasiswa.Recordset!alamat
> LblTtl.Caption = DtMahasiswa.Recordset!ttl
> ImgFoto.Picture = LoadPicture("C:\......\" &
> TxtStambuk.Text + ".jpg")
> dst..
> If DtMahasiswa.Recordset.NoMatch Then
> MsgBox "Data yang Anda cari tidak ditemukan,
> Periksa kembali Nomor Stambuk yang Anda masukan",
> vbOKOnly + vbInformation, "Konfirmasi"
> dst...
> end if
> end if
>
> perintah diatas adalah perintah untuk menampilkan
> data
> mahasiswa beserta foto masing2, masalahnya adalah
> ketika nomor stambuk yang diimput salah atau belum
> ada, programnya g mau jalan dengan informasi nomor
> yang saya masukan (file jpg)tidak ditemukan,dalam hal
> ini masalahnya terletak pada listing load picture.
>
> pertanyaan saya ada bagaimana listing yang akan saya
> dibuat agar penolakan setara dengan listing :
>
> If DtMahasiswa.Recordset.NoMatch Then
> MsgBox "Data yang Anda cari tidak ditemukan,
> Periksa kembali Nomor Stambuk yang Anda masukan",
> vbOKOnly + vbInformation, "Konfirmasi"
> dst...
> end if
>
>
> Saya mohon bantuannya......
>
> Wasallam
>
> __________________________________________________
> Do You Yahoo!?
> Tired of spam? Yahoo! Mail has the best spam protection around
> http://mail.yahoo.com
>
>
>
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Bagi terjangkit virus lokal, zip virus tersebut
dan kirim ke [EMAIL PROTECTED], kami
akan membuat removalnya untuk anda.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
