Calculate Total (1 Viewer)

[Minty]

I would have thought adding some Me. would help, and that can be simplified to

Me.Mass.Enabled = Me.MassRequired

 

[Gismo]

I would have thought adding some Me. would help, and that can be simplified to

Me.Mass.Enabled = Me.MassRequired

Yeh agee

Still not working though

Private Sub Form_Current()
If MassRequired = True Then
Me.Mass.Enabled = True
Else
Me.Mass.Enabled = False
End If
End Sub

And the code you advise wont work, when massrequired = true, control should be active
If my part required a mass = massrequired true, then die control will me made inactive by true

Correct?

 

[Minty]

No - wrong way round, look at your IF statement.
Enabled = True means it's working
Enabled = False means it's not working, ergo

If Me.MassRequired = True THEN Me.Mass Enabled = True
If Me.MassRequired = False THEN Me.Mass Enabled = False

If that's not working then have you got option explicit at the top of your code, because something isn't right with the names?

 

[MajP]

Can you post a sample of your db?

 

[MajP]

I would have thought adding some Me. would help, and that can be simplified to
Me.Mass.Enabled = Me.MassRequired

Although using Me is often very helpful in clarifying your code and bringing up intellisense, in truth it is rarely required in a form/report module.
Any property of a form is accessible without the Me keyword so you can simply write the control name or field name or other property.
Mass.enabled is the same as Me.Mass.enabled
Same principle as Application
I never seen anyone write
Application.Docmd
But that is the full qualifier

@Gismo,
Also I am guessing you also need to put the code in the after update of the MassRequired

Private Sub Form_Current()
 EnableDisableMass
End Sub

Private Sub EnableDisableMass()
  Me.Mass.Enabled = Me.MassRequired
  Me.Mass.TabStop = Me.MassRequired
End Sub

Private Sub MassRequired_AfterUpdate()
 EnableDisableMass
End Sub

Works perfectly fine for me.

 

[June7]

And what effect are you getting? Can use Conditional Formatting to enable/disable textbox or combobox.

 

[MajP]

Can use Conditional Formatting to enable/disable textbox or combobox.

Oh yeah, I forgot that enabling can be done using conditional formatting too. However, the demo also demonstrates disabling/enabling the tab stop.

 

[Gismo]

Although using Me is often very helpful in clarifying your code and bringing up intellisense, in truth it is rarely required in a form/report module.
Any property of a form is accessible without the Me keyword so you can simply write the control name or field name or other property.
Mass.enabled is the same as Me.Mass.enabled
Same principle as Application
I never seen anyone write
Application.Docmd
But that is the full qualifier

@Gismo,
Also I am guessing you also need to put the code in the after update of the MassRequired

Private Sub Form_Current()
EnableDisableMass
End Sub

Private Sub EnableDisableMass()
  Me.Mass.Enabled = Me.MassRequired
  Me.Mass.TabStop = Me.MassRequired
End Sub

Private Sub MassRequired_AfterUpdate()
EnableDisableMass
End Sub

Works perfectly fine for me.

Hi,

Please see my DB

 

[MajP]

Hi,

Please see my DB

I think you forgot to post it.

 

[Gismo]

I think you forgot to post it.

Now attached

 

[Pat Hartman]

Unless there is some reason you want to track the weight for something prepackaged, you would just need quantity and UOM. If you want to round up, that becomes a much bigger problem to convert g to kg for example. So if the UOM is g, the qty could be 2000. If the UOM is each, the qty would be 1. The price would be by the UOM. So if each is $9.99 (for 10 oz) but if you buy it by the oz, then it would be .999 per oz.

 

[June7]

When a control is disabled, it cannot receive focus so setting TabStop No is redundant.

 

[Gismo]

Untested

iif([currencyField] = "UGX", nz([mass],1) * nz([quantity],1) *[UnitPrice], nz([mass],1) * nz([quantity],1) *[UnitPrice] * [Exchange])

Nz([Mass],1) returns 1 if null else the value for mass

Hi,

I need to add below to the formula but this once is quite a puzzle for me
Could you please assist with the contention

If Currency = UGX and mass required = false then Qty * Unit price
If Currency = UGX and mass required = true then Mass * Unit price

If Currency <> UGX and mass required = false then Qty * Unit price * Exchange rate
If Currency <> UGX and mass required = true then Mass * Unit Price * Exchange rate

 

[June7]

Adjust expression from post 17 to use [mass required]:

[unit price] * IIf([currency] <> "UGX", [exchange], 1) * IIf([mass required], [mass], [qty])

 

[Gismo]

Although using Me is often very helpful in clarifying your code and bringing up intellisense, in truth it is rarely required in a form/report module.
Any property of a form is accessible without the Me keyword so you can simply write the control name or field name or other property.
Mass.enabled is the same as Me.Mass.enabled
Same principle as Application
I never seen anyone write
Application.Docmd
But that is the full qualifier

@Gismo,
Also I am guessing you also need to put the code in the after update of the MassRequired

Private Sub Form_Current()
EnableDisableMass
End Sub

Private Sub EnableDisableMass()
  Me.Mass.Enabled = Me.MassRequired
  Me.Mass.TabStop = Me.MassRequired
End Sub

Private Sub MassRequired_AfterUpdate()
EnableDisableMass
End Sub

Works perfectly fine for me.

Hi,

I used you sample as is, for some reason when mass is required the mass control is not active
When I switch to design view and back to form view, the mass control becomes active

Please could you advise?

 

[Gismo]

Now attached

Hi,

When I make a new form as per your sample, it works fine
When I amend my old form, the mass control is tabbed irrespective of the mass required or not
Only when I go to design view and back to form view that the code worked

After I have selected the product, below is the code

Private Sub Product_AfterUpdate()
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenQuery "Update Transaction - Procurement - Temp - Currency"
DoCmd.OpenQuery "Update Transaction - Procurement - Temp - UOM"
DoCmd.GoToControl "Qty"
Qty.Requery
DoCmd.SetWarnings True


Dim value As Currency
If Not IsDate(Me.[Transaction Date]) Then
MsgBox "Please enter a valid date!"
Exit Sub
End If

Call fncUpdateFields

End Sub

Please could you advise

 

[Gismo]

I managed to get this going

I added the code to the after update when I select the product

Private Sub EnableDisableMass()
Me.Mass.Enabled = Me.MassRequired
Me.Mass.TabStop = Me.MassRequired
End Sub
Private Sub Product_AfterUpdate()
DoCmd.SetWarnings False
EnableDisableMass
DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenQuery "Update Transaction - Procurement - Temp - Currency"
DoCmd.OpenQuery "Update Transaction - Procurement - Temp - UOM"
Me.Mass.Enabled = Me.MassRequired
Me.Mass.TabStop = Me.MassRequired
EnableDisableMass
DoCmd.GoToControl "Qty"
Qty.Requery
DoCmd.SetWarnings True


Dim value As Currency
If Not IsDate(Me.[Transaction Date]) Then
MsgBox "Please enter a valid date!"
Exit Sub
End If

Call fncUpdateFields

End Sub