pusing2

tiap pagi cuma nongkrong mau kerja ga ada yang sesuai profesi
pusing2 ingin bebassssssssssssssssssssssssssssssssssssssssssssssssssssgila
gila pokoknya gila kerja berangkat pagi pulang pagi
kapan w bisa tidur sehari apakah cukup tidur 5 jam makan kurang juga
kapan w bisa bebas
pusing 2 pengen lepas

source vb delete no entry

Private Sub btFind_Click(Index As Integer)
Select Case Index
Case 0 '--- From Entry No. ----
F_EntryNo = 1
FindEntryNo.Show 1
Me.Text1.Text = E_Map_01
E_Map_01 = ""

Case 1 '--- To Entry No. ----
F_EntryNo = 1
FindEntryNo.Show 1
Me.Text2.Text = E_Map_01
E_Map_01 = ""

End Select
End Sub

Private Sub btFinish_Click()
Unload Me
End Sub

Private Sub btProses_Click()
On Error GoTo ErrorMSG
Select Case MsgBox("Do you want to delete the record's?", vbQuestion + vbYesNo, "Confirmation")
Case vbYes
Call SqlCONN
Me.MousePointer = 11
Me.pBAR.Value = 0
Me.pBAR.Visible = True
Me.btProses.Enabled = False
Call Me.Delete
Call SqlDisCONN
MsgBox "Records Delete...!!", vbInformation, "Accounting System"
Me.MousePointer = 0
Me.pBAR.Visible = False
Me.btFinish.Enabled = True
Call SqlDisCONN
Call CloseRS
Set rs1 = Nothing
Set Cmd = Nothing
Case vbNo

End Select
Exit Sub
ErrorMSG:

End Sub

Private Sub Timer1_Timer()
If Me.Label3.Visible = True Then
Me.Label3.Visible = False
Else
Me.Label3.Visible = True
End If
End Sub

Sub Delete()
strSQL = "SELECT NO_ENTRI FROM Table " & _
"WHERE NO_ENTRI >= '" & Me.Text1 & "' and NO_ENTRI <='" & Me.Text2 & "' "
Set rs = Conn.Execute(strSQL)
If rs.EOF = False Then
rs.MoveFirst
Do While rs.EOF = False
strSQL = "DELETE Table WHERE NO_ENTRI = '" & rs.Fields(0) & "' "
Conn.Execute (strSQL)
Me.pBAR.Value = rs.AbsolutePosition / rs.RecordCount * 100
rs.MoveNext
Loop
End If
End Sub

game