Help with Data Entery

[mobaligh]

Ok I tried that I am getting an error. I am getting an error if I put salary or txtsalary ot Text43.

Private Sub Form_Current()
If Me.NewRecord Then
Me.salary = [tblEmployees].[Annualsalary]
End If

End Sub

 

[RuralGuy]

Is Text43 the name of the control with Salary and the ControlSource? If so then change the code to:

Private Sub Form_Current()

   If Me.NewRecord Then
      MsgBox "Current salary should be [" & [Annualsalary] & "]"
      Me.Text43 = [Annualsalary]
   End If

End Sub

What error are you getting?

 

[mobaligh]

now I am getting a run error 2465 on the this line

MsgBox "Current salary should be [" & [Annualsalary] & "]"

 

[RuralGuy]

Change both of them to [tblEmployees].[Annualsalary] and try it again.

 

[mobaligh]

I am attaching my database for your review. please look at tblEmloyee_read_data_etnery form

 

[mobaligh]

I am going to email you my database. I hope you don't mind

 

[mobaligh]

thank you very much for emailing me the db. A few issues number one when I refresh tblemployees with new data by importing data from excel into this table the changes doesn't work. Second I am sorry that I didn't tell you I don't want to ues query payment for this form I wanted to use quryentery to create the sub form to update the tblemployeepayment_sched. can you advice.

 

[RuralGuy]

I'm uploading your db so others can look at it and possibly offer additional suggestions.