W
Wasim Yasin via AccessMonster.com
I'm getting an error #Name? when I wrote a code in four text boxes for
repeat the values. the code for thses boxes are:
Private Sub BatchNo_BeforeUpdate(Cancel As Integer)
Me.BatchNo.DefaultValue = Me.BatchNo.Value
DoCmd.Save acForm, Me.Name
End Sub
Private Sub Emp_num_BeforeUpdate(Cancel As Integer)
Me.Emp_num.DefaultValue = Me.Emp_num.Value
DoCmd.Save acForm, Me.Name
End Sub
Private Sub KPOName_BeforeUpdate(Cancel As Integer)
Me.KPOName.DefaultValue = Me.KPOName.Value
DoCmd.Save acForm, Me.Name
End Sub
Private Sub MR_Date_BeforeUpdate(Cancel As Integer)
Me.MR_Date.DefaultValue = Me.MR_Date.Value
DoCmd.Save acForm, Me.Name
End Sub
It works for Emp_Num bot on KPOName And batch_No Get #Name? error and on
MR_Date the date convert into 1899.
Any help please.
Thanx.
repeat the values. the code for thses boxes are:
Private Sub BatchNo_BeforeUpdate(Cancel As Integer)
Me.BatchNo.DefaultValue = Me.BatchNo.Value
DoCmd.Save acForm, Me.Name
End Sub
Private Sub Emp_num_BeforeUpdate(Cancel As Integer)
Me.Emp_num.DefaultValue = Me.Emp_num.Value
DoCmd.Save acForm, Me.Name
End Sub
Private Sub KPOName_BeforeUpdate(Cancel As Integer)
Me.KPOName.DefaultValue = Me.KPOName.Value
DoCmd.Save acForm, Me.Name
End Sub
Private Sub MR_Date_BeforeUpdate(Cancel As Integer)
Me.MR_Date.DefaultValue = Me.MR_Date.Value
DoCmd.Save acForm, Me.Name
End Sub
It works for Emp_Num bot on KPOName And batch_No Get #Name? error and on
MR_Date the date convert into 1899.
Any help please.
Thanx.