Comparing Calculated fields on seperate forms

[alphaomega3]

I have two forms [fsubinputvoltag e] and [fsubelectronic] that have unbound calculated fields. Thes are both subforms to [frmHeaderMaster]. The field on [fsubinputvoltag e] is [calcAvailPower] and field for [fsubelectronic] is [calcOutputPower]. On [calcOutputPower] being dirty or updated I need a message box if [calcOutputPower] is greater than [calcAvailPower]. Can someone help?

[BradHodge]

I believe that you would just need to use an AfterUpdate Event similar to this...

Private Sub calcOutputPower_AfterUpdate() 
    If calcOutputPower > Forms![frmHeaderMaster]![fsubinputvoltage].Form![calcAvailPower] Then
    MsgBox ("It's Greater!")
    End If
 End Sub

Good Luck,
Brad.

[alphaomega3]

I believe that you would just need to use an AfterUpdate Event similar to this...

Private Sub calcOutputPower_AfterUpdate() 
    If calcOutputPower > Forms![frmHeaderMaster]![fsubinputvoltage].Form![calcAvailPower] Then
    MsgBox ("It's Greater!")
    End If
 End Sub

Good Luck,
Brad.

Getting #Name?.... Figured out this has something to do with my formula used to calculate the calcOutputPower .....will get back to you when I get this figured out.

AO3

[alphaomega3]

Got other problem fixed.. Okay I have it semi working. It will work if I place a Command button and click on it using the following code:

Private Sub Command31_Click()
    If Me.txtOutputPOwer.Value > Forms![frmHeaderMaster]![fsubInputVoltage].Form![calcAvailPower] Then
    MsgBox ("It's Greater!")
    End If
 
End Sub

However, if I use the following code... Nothing happens....

Private Sub txtOutputPOwer_AfterUpdate()
    If Me.txtOutputPOwer.Value > Forms![frmHeaderMaster]![fsubInputVoltage].Form![calcAvailPower] Then
    MsgBox ("It's Greater!")
    End If
End Sub

This is a subform on a tabcontrol.

[BradHodge]

You got me. Since you had it on a tab control, I placed mine on a tab control and tried it again in an AfterUpdate event without changing the code at all. Worked like a charm.

Oh well... as long as it's working I guess :)

[alphaomega3]

no, I need to figure out why it isn't working.... Management is pretty intent on it working after update...

[BradHodge]

What version of Access are you using?

[alphaomega3]

Access 2003 but saving in 2000 format. Also this is written as an Access project....if that makes any difference.

[BradHodge]

Can you post your code for frmHeaderMaster , and the 2 subforms?

[alphaomega3]

yep

frmHeaderMaster

Option Compare Database
 
Private Sub Command43_Click()
On Error GoTo Err_Command43_Click
 
    Dim stDocName As String
 
    stDocName = "Application Inquiry Form"
    DoCmd.SendObject acReport, stDocName, "SnapshotFormat(*.snp)", _
  "DELETED", "", "", "This is a test.", "", False, ""
 
 
Exit_Command43_Click:
    Exit Sub
 
Err_Command43_Click:
    MsgBox Err.Description
    Resume Exit_Command43_Click
 
End Sub
Private Sub Command45_Click()
On Error GoTo Err_Command45_Click
 
 
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
 
Exit_Command45_Click:
    Exit Sub
 
Err_Command45_Click:
    MsgBox Err.Description
    Resume Exit_Command45_Click
 
End Sub
Private Sub Command46_Click()
On Error GoTo Err_Command46_Click
 
 
    DoCmd.GoToRecord , , acNewRec
 
Exit_Command46_Click:
    Exit Sub
 
Err_Command46_Click:
    MsgBox Err.Description
    Resume Exit_Command46_Click
 
End Sub
Private Sub Command47_Click()
On Error GoTo Err_Command47_Click
 
    Dim stDocName As String
 
    stDocName = "Application Inquiry Form"
    DoCmd.OpenReport stDocName, acPreview, "", "[CrNo]=[Forms]![frmHeaderMaster]![CrNo]"
 
Exit_Command47_Click:
    Exit Sub
 
Err_Command47_Click:
    MsgBox Err.Description
    Resume Exit_Command47_Click
 
End Sub

fsubelectronic

Option Compare Database
Private Sub Command31_Click()
    If Me.txtOutputPOwer.Value > Forms![frmHeaderMaster]![fsubInputVoltage].Form![calcAvailPower] Then
    MsgBox ("It's Greater!")
    End If
 
End Sub
 
Private Sub txtOutputPOwer_AfterUpdate()
    If Me.txtOutputPOwer.Value > Forms![frmHeaderMaster]![fsubInputVoltage].Form![calcAvailPower] Then
    MsgBox ("It's Greater!")
    End If
End Sub

fsubinputvoltag e has no module

txtOutputPOwer

=IIf([CoUom]="Oz.-In.",([ContRpm]*[ContTorq]/1352), IIf([CoUom]="Lb.-Ft.",([ContRpm]*([ContTorq]*192)/1352), IIf([CoUom]="Nm",([ContRpm]*([ContTorq]*141.6116)/1352), IIf([CoUom]="mNm",([ContRpm]*([ContTorq]*0.1416116)/1352))))) 

calcAvailPower

 =[BusVolt]*[DrvCurLim]