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
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
Komentar
Posting Komentar