I'm not sure if I type the correct title for my problem.
The program i'm creating is a Inventory Type. It has a Main Form for viewing the Listview Database where Delete Data
and Search Data happened while on the other Form like Add is for Adding a New Data and last is Edit Form for Editing Data.
On the Edit Form it has a Timer. This Timer represent the Time of Vehicle when exiting the Parking Area.
That Timer works perfectly fine and it is a automatic inputted to the Database even though the Vehicle is not yet leaving the Parking Area.
What I want is to Stop the Timer in Edit Form to input itself on automatically.
And just to use the Timer if I check the Checkbox in that Edit Form
Did you guys gets what I'm trying to say or explain? Sorry i'm not good at English =)
Private Sub cmdUpdate_Click()
On Error GoTo errupdate
executeQuery "UPDATE Finder SET Owner = '" & txtOwner & "', IDNumber = '" & txtIDNumber & "',Status = '" & cboStatus & "' , Department = '" & cboDepartment & "', Parkout = '" & txtParkout & "', Released = '" & txtReleased & "' WHERE School = '" & cboSchool & "';"
Unload Me
Call RefreshListview
MsgBox "Record successfully Updated", vbInformation, "BSP System"
Call RefreshListview
Exit Sub:
errupdate:
MsgBox Err.Description, vbExclamation, "Error"
Set FindCon = Nothing
Set FindRs = Nothing
End
End Sub
Parkout(Field Name) is the responsible for the Timer. Also thats what I wanted put a Checkbox.
Also Parkout Field Type is "Text".
The program i'm creating is a Inventory Type. It has a Main Form for viewing the Listview Database where Delete Data
and Search Data happened while on the other Form like Add is for Adding a New Data and last is Edit Form for Editing Data.
On the Edit Form it has a Timer. This Timer represent the Time of Vehicle when exiting the Parking Area.
That Timer works perfectly fine and it is a automatic inputted to the Database even though the Vehicle is not yet leaving the Parking Area.
What I want is to Stop the Timer in Edit Form to input itself on automatically.
And just to use the Timer if I check the Checkbox in that Edit Form
Did you guys gets what I'm trying to say or explain? Sorry i'm not good at English =)
Quote:
Private Sub cmdUpdate_Click()
On Error GoTo errupdate
executeQuery "UPDATE Finder SET Owner = '" & txtOwner & "', IDNumber = '" & txtIDNumber & "',Status = '" & cboStatus & "' , Department = '" & cboDepartment & "', Parkout = '" & txtParkout & "', Released = '" & txtReleased & "' WHERE School = '" & cboSchool & "';"
Unload Me
Call RefreshListview
MsgBox "Record successfully Updated", vbInformation, "BSP System"
Call RefreshListview
Exit Sub:
errupdate:
MsgBox Err.Description, vbExclamation, "Error"
Set FindCon = Nothing
Set FindRs = Nothing
End
End Sub
Also Parkout Field Type is "Text".