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 > 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/
