Fw: [Programmer-VB] kenapa masih error

[Endy]

bagaimana kalo ditambahin kondisi jika record tidak kosong, sub tampil dipanggil sedang jika record kosong buat lagi sub untuk menampilkan record kosong   met nyoba...         saya sudah tambahkan,tetapi masih error.Tapi errornya bukan di cmd_hapus, melainkan di sub_tampil: Private Sub cmdhapus_Click() Dim respon As Integer respon = MsgBox("Anda Yakin untuk menghapus record ini?", vbYesNo, "PESAN") If respon = vbNo Then Exit Sub With rskursus If .EOF Then             MsgBox "Tidak ada data !", 48             Exit Sub       End If       .Delete .MoveFirst If .EOF = True Then .MoveLast If .BOF Then .MoveFirst End With tampil End Sub Private Sub tampil() With rskursus txtid.Text = rskursus!id_kursus txtnama.Text = rskursus!nama_kursus txtjam.Text = Val(rskursus!jam) txtharga.Text = Val(rskursus!harga) End With End Sub __________________________________________________ Do You Yahoo!? Tired of spam?  Yahoo! Mail has the best spam protection around http://mail.yahoo.com __._,_.___ Wahana Programmer Groups Links <*> Untuk mengunjungi sponsor milis ini, klik link berikut:     http://wahanaprogrammer.net <*> Untuk menghubungi owner milis ini, kirim email ke:     [EMAIL PROTECTED] <*> Konsultasi pemrogramman bisa chat disini:     Yahoo! Messenger: wahanaprogrammer SPONSORED LINKS Programmer Indonesia Basic programming language Computer programming languages Programming languages Java programming language YAHOO! GROUPS LINKS  Visit your group "Programmer-VB" on the web.    To unsubscribe from this group, send an email to:  [EMAIL PROTECTED]    Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service. __,_._,___