Hai..Friends..
I have a save button problem, but I didn't get solution till now, I have tried again and again.
I have a from with a 'save' button which have given some code like mentioned below. I want to do 3 things by clicking "Save" button which are...
1) Save/write record in given table path
2) Refresh all fields of the form
3) If already saved the same record , want to show msgbox with 'Yes','No' and 'Cancel'
(masbox is not showing and not refreshing all fields)
Please help me......
Private Sub Command87_Click()
On Error GoTo cmdSave_Click_Err
On Error Resume Next
If IsNull(cboEmpName) Then
MsgBox "Please Select Employee Name"
Me.cboEmpName.SetFocus
End If
If Me.txtNoofDaysWorked.Value = "0" Then
MsgBox "Please Enter No of Worked Days"
End If
Dim db As DAO.Database
Dim rst1 As DAO.Recordset
Dim rst2 As DAO.Recordset
Set db = CurrentDb
Set rst1 = db.OpenRecordset("Payroll")
rst1.AddNew
rst1!payrollid = Me!txtPayrollID
rst1!EmpID = Me!txtEmpID
rst1!EmpName = Me!cboEmpName.Column(1)
rst1!EPFNo = Me!txtEPFNo
rst1!ESINo = Me!txtESINo
rst1!PayPeriod = Me.cbomonth & "-" & Me.cboYear
rst1!WageRate = Me!txtwagerate
rst1!otherrate = Me!txtOtherRate
rst1!WorkingDays = Me!txtWorkingDays
rst1!NoofDaysWorked = Me!txtNoofDaysWorked
rst1!PH = Me.txtNoofPaidHolidays
rst1!totalothrs = Me!txtOTHrs
rst1!calcothrs = Me.txtcalcOTHrs
rst1!Basic = Me.txtBasic - (Me.txtNoofPaidHolidays * Me.txtwagerate)
rst1!phpay = Me.txtNoofPaidHolidays * Me.txtwagerate
rst1.Update
rst1.Close
If Me.txtAdvance > 0 Then
Set rst2 = db.OpenRecordset("LoanTransactions")
rst2.AddNew
rst2!EmpName = Me!cboEmpName.Column(1)
rst2!TransnDate = Date
rst2!TransnType = "Deduction"
rst2!Sanctions = "0"
rst2!Deductions = Me.txtAdvance
rst2!LoanName = "Salary Deduction"
rst2.Update
rst2.Close
Set rst2 = Nothing
End If
End Sub