Adding a VBA line

[nordman66]

I have the following function:

'Retuns Plant for a given Sales Org and Order Type combination
Public Function getPlant(strSOrg As String, strOrderType As String, strGivenPlant As String) As String
Dim strCorrectPlant As String

If strOrderType = "ZJTD" Or strOrderType = "ZJTE" Or strOrderType = "ZJTF" Or strOrderType = "ZJTS" Or strOrderType = "ZJTW" Then


If strSOrg = "USSO" Then
strCorrectPlant = "0045"
Else
strCorrectPlant = "0005"
End If
Else
strCorrectPlant = strGivenPlant
End If


getPlant = strCorrectPlant


End Function

and below the first if line I want to add the following

IF (Material = Cascade Material) And (Dldate – Created On) < 90 Then “0042”

where "Material" and "Cascade Material' are headers in a 2 separate tables that will link and "Dldate" and "Created On" are date ranges in the same table.

I know that this is probably straight forward but I am not that familiar with writing VBA and I inherited this database.

Thanks

 

[ranman256]

Now you can keep altering this function , but you'll have to keep adding Function arguments.
Another way is to make a single macro that runs each of these 'fixes' as update queries. NO CODING NEEDED.

The macro would run these queries:
docmd.openquery "quFixZJ" (to update all ZJTD,etc)
docmd.openquery "quFixNonZJ" (to update the else not ZJ*)
docmd.openquery "quFixUSSO"
docmd.openquery "quFixNonUSSO"
docmd.openquery "quFixMaterialDateRng"


Would that work easier?

 

[nordman66]

What you are suggesting is unfortunately beyond my knowledge skills and I appreciate the offer but as this function has not been updated in 5 years and I don't foresee any additional changes in the future I would like to just add the line to the function which I can then visually understand.

Thanks!!

 

[nordman66]

This is a bit urgent as we are going live with the new data soon. Is someone able to assist me with correctly inserting this new line?
Thanks!!