Replies

Hmmm…I ALMOST have it, but I’m not quite there.

The query I’ve created works as the Record Source for the subForm, but it is not updatable. The form reflects the query correctly, including the Option Group, but I can’t click on another option.

I must be missing something…

Also, my main form is not bound. What differences will that make?

Thanks Hans!

I had tried code in the Change event, but t was the .text that made the difference.

I was under the impression that .text was the default and it would work. Thanks for showing me the way!

Hans, thanks for the code.

It worked for me, but only AFTER I removed this piece:
‘If rst.Fields(i).Attributes And dbAutoIncrField = 0 Then

With that check, it always skipped the
rst.Fields(i).Value = arrValues(i)
so I ended up with an empty record.

Thank you!

I had to change the Total Due to =[txtsubtotal]+[txttax]-[txttotaldiscount]

It was not excluding the tax otherwise.

Thanks so much for the help!

Ok, I made the text box for the tax for each record use this:
=IIf([Taxable]=True,[txtTaxRate]*[Quantity]*([Price]-([Price]*[Discount]/100)),0)

and I made the footer tax box this:
=Sum(IIf([Taxable]=True,[txtTaxRate]*[Quantity]*([Price]-([Price]*[Discount]/100)),0))

I still get #ERROR

I’m attaching the database so you can see what I am doing. If you test it out, you can use 1 as the ISBN and it will pull the price for you.

Those formulas worked great, thanks.

One thing that I need to include, however, is that each line may or may not be taxable. If I uncheck the Taxable checkbox, tax should not be calculated for that item.

I added a text box for each record that calculates the tax for the item =IIf([chkTaxable]=True,[txtTaxRate]*[Quantity]*([Price]-([Price]*[Discount]/100)),0) and I hoped to have G be the sum of that text box, but all I get is #ERROR in all the Order Total boxes.

Is there a way to make each item toggle the tax-ability?

Hmmm…

When I do this I get:

“You already have a Microsoft Exchange Server account set up. Outlook only supports on Exchange Server at a time.”

I actually found the problem.

The source for txtExtended should have been:
=[Quantity]*([Price]-([Price]*[Discount]/100))

I needed to reference the fields, not the text box names.

SteveH’s suggestion did not work for me.

I ended up writing some code to fill in the fields on the bottom of the form.

Also, it is not a sub form, just a regular form.

The formula for txtExtended is:
=[txtQuantity]*([txtPrice]-([txtPrice]*[txtDiscount]/100))

When I put a text box in the footer, I made the formula:
=Sum([txtQuantity]*([txtPrice]-([txtPrice]*[txtDiscount]/100)))

Unfortunately, it shows me #Error

Option 1 worked perfectly, thanks!

Worked perfectly, thank you!!

Worked well, thank you!

Hmmm…it was moved from the Access forum.

I will be selecting the tab FROM Access, not from Excel.

Not sure if it makes much difference…

No, but it works great if this line

curToReturn = curToReturn + .Activecall.Value

reads

curToReturn = curToReturn + .ActiveCell.Value

like is was supposed to.

Activecall != ActiveCell.

Crazy typos!