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/
