Function

[Alex Motilal]

Dear Experts,

I am using the following function to get the Budgeted Seed Rate on a given market date:

Public Function GetSdBudgetRate(MktCenter As Integer, MktVty As Integer, MktDt As Date, factoryType As String) As Double
If [factoryType] = "TMC" Then
GetSdBudgetRate = Nz(DLookup("budgetedSeedRate", "BudgetAndMktQry", "dateOfMarket=#" & MktDt & "# And[marketInCenter]=" & [MktCenter] & "And[varietyArrived]=" & [MktVty]), 0)
Else
GetSdBudgetRate = Nz(DLookup("budgetedSeedRate-Con", "BudgetAndMktQry", "dateOfMarket=#" & MktDt & "# And[marketInCenter]=" & [MktCenter] & "And[varietyArrived]=" & [MktVty]), 0)
End If
End Function

For some dates it returns the Rate, but for some dates, even though data is available, it returns 0. My system's OS is Windows 7 Professional and I am using MS Access 2007. When I tried this in a system having Windows XP, it worked fine.
Is there anything wrong in the code?

Regards,
Alex

[June7]

Can you test on another Windows 7 system?

I can't see anything wrong with the code. I would have thought the lack of spaces before and after the And operator would cause issue but I tested that and it worked. Probably included [] around field names is reason.

[Alex Motilal]

Dear June7,
As you suggested I tried in another Windows7 Professional System and the problem persists. Do you think it may due to Windows7 Professional OS?
Alex

[June7]

Certainly makes one suspicious. If you want to provide db I will test with my Windows 7 Home Premium. Follow instructions at bottom of my post.

[Alex Motilal]

Deaar June7,

I tested with a Windows7 Home Premium system. It works fine. I think the problem is that the function does not work properly with Windows7 Professional. It doesn't work with certain dates only. For example November 3 of any given year. Is it possible to contact Microsoft? If so how to contact and put up the problem?

Regards,
Alex

[Dunro]

Deaar June7,

I tested with a Windows7 Home Premium system. It works fine. I think the problem is that the function does not work properly with Windows7 Professional. It doesn't work with certain dates only. For example November 3 of any given year. Is it possible to contact Microsoft? If so how to contact and put up the problem?

Are all your dates in the same format? I find Access to be temperamental with dates (my computer's region settings are set to Canada, but Access still requires American date format, etc). I have started adding functions to various queries to ensure that all dates are formatted correctly.

[June7]

Seems to me if the date is cause then it should be same for all computers. Review http://allenbrowne.com/ser-36.html

Support from Microsoft? You could try http://support.microsoft.com/ph/915/en-us

Good luck!