ellrisa
Newbie
Joined: 12 Apr 2006
Posts: 3
|
 Posted: Apr 12th, 2006 01:54 AM Post subject: edit button |
 |
|
- Add button -
Private Sub cmdAdd_Click()
adoStudentInfo.Recordset.AddNew
End Sub
- Delete button -
confirm = MsgBox("Are you sure want to delete this record?", vbYesNo + vbQuestion, "Attention")
If confirm = vbYes Then
MsgBox ("Record are delete!"), vbOKCancel + vbInformation, "Attention"
adoStudentInfo.Recordset.Delete
Else
If confirm = vbNo Then
MsgBox ("Record are not delete!"), vbOKOnly + vbExclamation, "Attention"
adoStudentInfo.Recordset.MoveFirst
End If
End If
- Save button -
confirm = MsgBox("Are you sure want to save this record?", vbYesNo + vbQuestion, "Attention")
If confirm = vbYes Then
MsgBox ("Record are saved!"), vbOKOnly + vbExclamation, "Attention"
Else
If confirm = vbNo Then
MsgBox ("Record are not save!"), vbOKOnly + vbExclamation, "Attention"
adoStudentInfo.Recordset.CancelUpdate
End If
End If
currently i develop a system which can add, delete and save record, and this button was working properly. Now im trying to insert edit button which will able the existing record to be edited or update. Can anyone plz help me with this "edit button"? Thank you |
|
