maksud saya adalah bagaimana menempatkan listing load
picturenya ? dengan perbandingan bahwa :

1. Program bisa jalan dengan baik
   Listing load picture ada, file jpg ada (nama file 
   sesuai dengan no. stambuk )
2. Program tidak jalan
   Listing load picture ada, file jpg tidak ada (nama 
   file sesuai dengan no. stambuk )

tolong ...ya mas Budi

trims sebelumnya 

--- Santo Budhisatrio <[EMAIL PROTECTED]> wrote:

> DtMahasiswa.Recordset.FindFirst "stambuk = '" +
> TxtStambuk.Text + "'"
> If DtMahasiswa.Recordset.NoMatch Then
> 
> pengecekan nomatch dilakukan satu langkah setelah
> findfirst....
> 
> --- In [email protected], 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 bahwa
> > database tidak ditemukan.
> > 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
> >
> 
> 
> 
> 
> 
> 


__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 


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/
 


Kirim email ke