Error in Append Query

[Sharad]

I am having trouble with this QA Tracking Program I am try to get it going. When data entry form is filled correctly - all fields entered - by the user and Add Record button is clicked I am getting the error message as follows:

Microsoft Access can't Append all the records in the Append Query. Microsoft Access set 1 field(s) to Null due to a type conversion failure, and it didn't add 0 records due to key violations, etc...

Data entered in certain fields is displayed False and Record Date and Due Date show as 12/31/99 - irrespective of what is entered in the fields. False is added into the table.

Also Completion Date field cannot be left empty as user may want to enter completion at a later date by using Update Form.

I am using Access 97.

Any help would be appreciated. Thank

 

[WayneRyan]

Sharad,

Your form and your table are not in "synch"

You apparently have a field, indexed, with no duplicates
allowed.

You are apparently trying to put the string contents of a text box
into a numeric field.

Completion date should have Required set to no.

Peruse your table in design view, taking note of the above
and you should make some headway.

Good luck and let us know.

hth,
Wayne

 

[Sharad]

Thanks for your input Wayne. I will look into it and see if I am in "Synch".

In the meantime here is the code. It is a long drawn out affair. So, I am sending just partial code. It did work for a while untill I added the code to check if the fields were all entered. Only part where I was having trouble is when the Completion Date was left empty. So, it may not be that I am trying to insert text in numeric field.

Private Sub cmdAddRecord_Click()

If IsNull(Me![txtProblem]) Then
ValtxtProblem = True
strMsg = strMsg & Chr(13) & "txtProblem"
Else
txtProblem = False
End If

I see it.... I am missing Val as below before txtProblem=False

If IsNull(Me![txtProblem]) Then
ValtxtProblem = True
strMsg = strMsg & Chr(13) & "txtProblem"
Else
ValtxtProblem = False
End If


Now when all the fields on the form are filled Add Record button populates the table properly.

However, when Completion Date is not entered by the user, which is proper, as the job is not complete when the Form is filled causes a problem. It shows the Status as Work In Progress, which is correct as I have set it that way. Now the Table shows
Work In Progress.

I have another Update Form, which allows user to change the Completion Date, when the job is complete. My question is How do I get it to change the status ? I hope I am clear as to what I am trying to achieve. I want to check the Status of all the jobs. I am sure there is a way. Any ideas ? If need be I can explain further. I would appreciate any suggestions.

Thanks