1.11M Members

how to change

 
0
 

heres what i ve done

Private Sub cmdtimein_Click()
If txtempno.Text = "" Then
     MsgBox "Please Input employee number!", vbExclamation + vbOKOnly, "Employee Record"
          Exit Sub
   Adotime.Recordset.MoveNext
Else
Adotime.Recordset.AddNew
Adotime.Recordset.Fields("employeeno").Value = txtempno.Text
Adotime.Recordset.Fields("timein").Value = Time
Adotime.Recordset.Fields("timeout").Value = Time
Adotime.Recordset.Fields("date").Value = Date
Adotime.Recordset.Update
MsgBox "You are time in!", vbInformation + vbOKOnly, "Employee Attendance"
End If
End Sub

Private Sub cmdtimeout_Click()
Adotime.Recordset.EOF
If txtempno.Text = Adotime.Recordset.Fields("employeeno") Then
Adotime.Recordset.AddNew ---- i wanna change this to .Edit but it wont come out
Adotime.Recordset.Fields("employeeno").Value = txtempno.Text
Adotime.Recordset.Fields("timeout").Value = Time
Adotime.Recordset.Fields("date").Value = Date
Adotime.Recordset.Fields("noofhoursworked").Value = DateDiff("h", Adotime.Recordset.Fields("timein"), Adotime.Recordset.Fields("timeout"))
Adotime.Recordset.Update
MsgBox "You are time out!", vbInformation + vbOKOnly, "Employee Attendance"
lblhour.Caption = DateDiff("h", Adotime.Recordset.Fields("timein"), Adotime.Recordset.Fields("timeout"))
End If
End Sub

how do u change it

 
0
 

change what?
Provide more information. explain more.

 
0
 

i would to change the adotime.recordset.addnew to adotime.recordset.edit
but i cant cuz the dropdown box would come out

 
0
 

i think its not edit you mean its update. adotime.recordset.update

 
0
 

or adotime.edit you don't have to include the word recordset

 
0
 

Inline Code Example Here

Adotime.edit ---- changing to "edit"
Adotime.Recordset.Fields("employeeno").Value = txtempno.Text
Adotime.Recordset.Fields("timeout").Value = Time
Adotime.Recordset.Fields("date").Value = Date
Adotime.Recordset.Fields("noofhoursworked").Value = DateDiff("h", Adotime.Recordset.Fields("timein"), Adotime.Recordset.Fields("timeout"))
Adotime.Recordset.Update

 
0
 

Hi,

Like ADO recordset, you dont have to write ".Edit" explicitly...
just change and save...
something like this :

ADOTime("MyField") = Text1.text
ADOTime.Recordset.Update

Just make sure, Recordset is Dynamically opened....

Regards
Veena

You
This article has been dead for over six months: Start a new discussion instead
Post:
Start New Discussion
Tags Related to this Article