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/
