Postingan

Menampilkan postingan dari Januari, 2010

Membuat Error Trapping Dengan Timer

Kasus-nya..., kita ingin program memanggil Data dari database laporan harian Karyawan dengan prameter ID.Karyawan yang didapat/dipilih dari ComboBox, akan tetapi kita tidak ingin sistem memunculkan MessageBox "Data Tidak Ada" pada saat pertama Form diaktifkan yang disebabkan data belum ada karena event ComboBox-nya adl Click. Kita Ingin MessageBox "Data Tidak Ada" muncul ketika ComboBox telah kita klik. Logikanya dibuatkan pewaktu untuk memberikan "Opt_Value" bernilai 1. Dim Opt_Value As String Private Sub Timer1_Timer() Dim i As Integer For i = 0 To 3 i = i If i = 3 Then Timer1.Enabled = False Opt_Value = 1 End If Next i End Sub Private Sub Form_Load() Opt_Value = 0 End Sub Ket : (3) : Jumlah loop-ing Interval : 1000 Opt_Value : Parameter kunci

Do'a Qunut

Gambar
Bagi yang tidak hafal, biar hafal. Bagi yang Hafal, biar lebih hafal. Bagi yang lebih hafal, biar lancar

SYSTEM ERROR &H80070583. CLASS DOES NOT EXIST

Pesan error diatas menjunjukkan componen yang digunakan pada pemrograman visual basic tidak teregister atau tidak ada, langkah yang harus dilakuakan adalah gunakan componen yang lain dan sudah teregister pada PC anda. Pada kasus ini sya pernah menggunakan componen dan object " Microsoft Windows Common Controls(Sp6)", dan ketika saya menjalankan file compile-nya saya mendapatkan pesan System Error &H80070583. Class Does Not Exist Saya coba gunakan componen dan object "Microsoft Windows Common Controls(Sp5)" dan saya berhasil dijalankan file compile-nya"