How to fill in the blanks

[billyqgoat]

Good morning everyone -

I have created a database full of information about folks that need to be interviewed (we are conducting an evaluation of trainings that they have attended). Every person from a particular state has replicated information... they all attended the same training, on the same date, conducted by the same organization. In an effort to cut down on the time that it takes to enter that information over and over and over again, I created some code for the back-end of the data entry form. However, when I try it, I get the following error message: "The expression After Update you entered as the event property setting produced the following error: invalid outside procedure". I've included the code below. Would someone mind taking a look at it and see what glaring errors pop out?? Thanks so much!

Private Sub Admin_Site_ID_AfterUpdate()

If Me![Admin_Site_ID] = Wisconsin Then Me![Respondent_information_Site_ID] = Wisconsin

If Me![Admin_Site_ID] = Wisconsin Then Me![Name_of_training] = [core_competencies]

If Me![Admin_Site_ID] = Wisconsin Then Me![Name_of_Faciliator/Organization] = [mental_health_association_of_milwaukee]

If Me![Admin_Site_ID] = Wisconsin Then Me![Date_of_Training] = [June_5]

If Me![Admin_Site_ID] = Wisconsin Then Me![Data_Collection_window] = [August_6 - 17]

[missinglinq]

Right off the bat it's obvious that Wisconsin is not a number but rather text, which means that it's a string, so
= Wisconsin

should always be

= "Wisconsin"

Also, your references, such as Me![Date_of_Training] = [June_5] tellsAccess that June_5 is a field name, which I suspect it isn't. If [Date_of_Training] is defined as a date field, then the value you assign to it needs to be a date. If it's a text field, then the value assigned needs to be a string such as "June 5."

Linq ;0)>

[billyqgoat]

Many thanks!!!!

Kathleen

Right off the bat it's obvious that Wisconsin is not a number but rather text, which means that it's a string, so
= Wisconsin

should always be

= "Wisconsin"

Also, your references, such as Me![Date_of_Training] = [June_5] tellsAccess that June_5 is a field name, which I suspect it isn't. If [Date_of_Training] is defined as a date field, then the value you assign to it needs to be a date. If it's a text field, then the value assigned needs to be a string such as "June 5."

Linq ;0)>

[billyqgoat]

I made the above changes, and it still wasn't working. I've broken the different components into smaller ones so that I could troubleshoot, but it still isn't working for me. I no longer am getting an error message, it's just not doing what I want it to. The only thing that I can think of is that in one place (in the field property box) the field is called Admin.Site ID, and in the VBX box it is called Admin_Site_ID. Here is a little chunk of code:

 Private Sub Admin_Site_ID_AfterUpdate()
If Me![Admin_Site_ID] = "Wisconsin" Then Me![Name_of_training] = "core competencies"
If Me![Admin_Site_ID] = "Wisconsin" Then Me![Respondent_information_Site_ID] = "Wisconsin"
End Sub 

Any ideas?? Thanks!

Many thanks!!!!

Kathleen

[missinglinq]

The other changes were needed, for the stated reasons. I think the problem is that you've got it in the Sub Admin_Site_ID_AfterUpdate() event! Sorry, I just noticed that! By this time the data has already been written to the table, so assigning values is useless. Try moving the same code to the Admin_Site_ID_BeforeUpdate() sub

Linq ;0)>

[billyqgoat]

Thank you so much! I really appreciate your help!! Unfortunately, now its telling me that it can't find the field. The error message is: "Access can't find the field 'Admin_Site_ID' referred to in your expression. The code is below:

 Private Sub Admin_Site_ID_BeforeUpdate(Cancel As Integer)
If Me![Admin_Site_ID] = "Wisconsin" Then Me![Name_of_training] = "core competencies"
 
End Sub
 

Any ideas are much appreciated!! Thanks again.