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