Need help setting a value in a form as an event proceedure. 1

[Johnnycat1]

This is the code that I am using to try to change the value of a cell back to 0 if two other cell values meet specific criteria.

If Forms!FrmFixtureDetailing!FrmFixtureDetailingReleases!OpenInfo < 3 And Forms!FrmFixtureDetailing!FrmFixtureDetailingReleases!RequiredInfo = 1 Then Forms!FrmFixtureDetailing!FrmFixtureDetailingReleases![Release Qty] = 0 Else Exit Sub

This code is not doing anything... no error, no change in data, nothing.

The strange thing is that I have used this same format in another form and it works fine.

Any Suggestions?

Also, I would like to be able to include a message when the value is set back to 0 to tell the user why their data has been set back to 0. can you use the same code with a "then Goto Error Message" in lieu of changing the value to 0.

As always, your help is very appreciated.

 

[MajP]

How about some error checking

debug.print Forms!FrmFixtureDetailing!FrmFixtureDetailingReleases!OpenInfo
debug.print Forms!FrmFixtureDetailing!FrmFixtureDetailingReleases!RequiredInfo 
debug.print Forms!FrmFixtureDetailing!FrmFixtureDetailingReleases!OpenInfo < 3
debug.print Forms!FrmFixtureDetailing!FrmFixtureDetailingReleases!RequiredInfo = 1
debug.print Forms!FrmFixtureDetailing!FrmFixtureDetailingReleases!OpenInfo < 3 And Forms!FrmFixtureDetailing!FrmFixtureDetailingReleases!RequiredInfo = 1

If Forms!FrmFixtureDetailing!FrmFixtureDetailingReleases!OpenInfo < 3 And Forms!FrmFixtureDetailing!FrmFixtureDetailingReleases!RequiredInfo = 1 Then 
  Forms!FrmFixtureDetailing!FrmFixtureDetailingReleases!
  msgbox "setting value to 0"
else
  exit sub
end if
[Release Qty] = 0 Else Exit Sub

 

[MajP]

Put in some error checking to see what is the problem.

debug.print Forms!FrmFixtureDetailing!FrmFixtureDetailingReleases!OpenInfo
debug.print Forms!FrmFixtureDetailing!FrmFixtureDetailingReleases!RequiredInfo 
debug.print Forms!FrmFixtureDetailing!FrmFixtureDetailingReleases!OpenInfo < 3
debug.print Forms!FrmFixtureDetailing!FrmFixtureDetailingReleases!RequiredInfo = 1
debug.print Forms!FrmFixtureDetailing!FrmFixtureDetailingReleases!OpenInfo < 3 And Forms!FrmFixtureDetailing!FrmFixtureDetailingReleases!RequiredInfo = 1

If Forms!FrmFixtureDetailing!FrmFixtureDetailingReleases!OpenInfo < 3 And Forms!FrmFixtureDetailing!FrmFixtureDetailingReleases!RequiredInfo = 1 Then 
  Forms!FrmFixtureDetailing!FrmFixtureDetailingReleases!
  msgbox "setting value to 0"
else
  exit sub
end if

This way you can see if the event is firing and you are getting the expected values.