If statment on SubForm

[d9pierce1]

Hi all,


I need some help please.
I have a form (frmAccount) and on it has Several sub forms with tabs to change to different sub forms.
The Subform is (sfrmAccount) On Form
By clicking tabs, it changes the soruce object to different subforms.
The sub form i have the Lbl on is (sfrmAccountDetail)
The sub form that has the (IsPaid check Box) is (sfrmTransBill) and is a data sheet.

What i am trying to do is if a bill in (sfrmTransBill) is not ticked then I want a lable to appear in the (sfrmAccountDetail)
That says Payment Due (LblPayment)
I cant figure out how to access the (IsPaid) in (sfrmTransBill) to allow this lbl to appear in (sfrmAccountDetail)

If Forms!sfrmAccount.sfrmTransBill.Form.IsPaid = False Then
Me.LblPayment.Visible = True
Else
Me.LblPayment.Visible = False
End If

I would beleive I would put the code in On Current of (sfrmAccountDetail)?

Thank you for any help on this
Dave

[June7]

Assumes you are using a Tab control not a Navigation Form.

Reference subform via the subform container name, not the actual form name. I always name container different from the object it holds, like ctrTransBill and and ctrAccount and ctrAccountDetail.

If this code is behind one subform referencing another subform, then need to also reference through the main form. Can use Me.Parent.

Me.Parent.ctrTransBill.Form.IsPaid

If sfrmTransBill is a subsubform sitting on subform sfrmAccount:

Me.Parent.ctrAccount.Form.ctrTransBill.Form.IsPaid

If you want to provide db for analysis, follow instructions at bottom of my post.

[d9pierce1]

Hi June7
Thank you for responding. I used the following and received error like before....
"Application-Defined or Object-Defined Error"

If Me.Parent.ctrAccount.Form.ctrTransBill.Form.IsPaid = True Then
    Me.LblPayment = True
Else
    Me.LblPayment = True
End If

I really dont want to send up the db as it has all my log in, passwords, and accounts info init. Just to much to get rid of.

I am not using a typical tab control on parent form. It is basically a subform control, and i use vba to switch the tabls Which are actually buttons.
Code for that is:

Option Compare Database
Option Explicit
Dim TabOffColor As Long






Private Sub CmdPayNow_Click()


If Not IsNull(Me.sfrmAccount.Form.BillID) Then
DoCmd.OpenForm "frmTransBill", , , "[BillID]=" & Me.sfrmAccount.Form.BillID
Else
MsgBox "Please Select a Record to Continue"
End If


End Sub










 Sub Form_Open(Cancel As Integer)
    
    TabOffColor = RGB(37, 189, 80)
    
End Sub






Sub SwitchTabs(TabName As String, FormName As String, FocusField As String)
    
    
    DoCmd.Echo False
    DoCmd.GoToControl "AccountName"
    SetAllTabsOff
    sfrmAccount.SourceObject = FormName
    Me.Controls(TabName).BackColor = sfrmAccount.Form.Section(0).BackColor
    Me.Controls(TabName).ForeColor = RGB(0, 0, 0)
    DoCmd.GoToControl "sfrmAccount"
    DoCmd.GoToControl FocusField
    DoCmd.GoToRecord , , acFirst
    DoCmd.Echo True


End Sub


 Sub SetAllTabsOff()


    CmdAccountDetail.BackColor = TabOffColor
    CmdAccountDetail.ForeColor = RGB(255, 255, 255)
    CmdCard.BackColor = TabOffColor
    CmdCard.ForeColor = RGB(255, 255, 255)
    CmdReward.BackColor = TabOffColor
    CmdReward.ForeColor = RGB(255, 255, 255)
    CmdProtection.BackColor = TabOffColor
    CmdProtection.ForeColor = RGB(255, 255, 255)
    CmdViewPayBill.BackColor = TabOffColor
    CmdViewPayBill.ForeColor = RGB(255, 255, 255)
    
End Sub
 Sub CmdAccountDetail_Click()
    SwitchTabs "CmdAccountDetail", "sfrmAccountDetail", "AccountNumber"
    Me.CmdPayNow.Visible = False
End Sub
 Sub CmdCard_Click()
    SwitchTabs "CmdCard", "sfrmCreditDebit", "cboCreditDebitType"
    Me.CmdPayNow.Visible = False
End Sub
 Sub CmdReward_Click()
    SwitchTabs "CmdReward", "sfrmReward", "AccountName"
    Me.CmdPayNow.Visible = False
End Sub
 Sub CmdProtection_Click()
    SwitchTabs "CmdProtection", "sfrmProtectionPlan", "cboPlanType"
    Me.CmdPayNow.Visible = False
End Sub
Private Sub CmdViewPayBill_Click()
SwitchTabs "CmdViewPayBill", "sfrmTransBill", "BillType"
Me.CmdPayNow.Visible = True
End Sub

Thanks
Dave

[Welshgasman]

You have to use your names, June7's were examples, plus both sides of the statement now resolve to true? and no visible property mentioned?

[d9pierce1]

Here are the form design if that helps

[d9pierce1]

I tried this also and got an method or user defined error? Compile error

If Me.frmAccount.sfrmAccount.Form.sfrmTransBill.Form.IsPaid = False Then
    Me.LblPayment.Visible = True
Else
    Me.LblPayment.Visible = False
End If

[d9pierce1]

You have to use your names, June7's were examples, plus both sides of the statement now resolve to true? and no visible property mentioned?

I tried it with my names also and got a compile error. Have no idea why either.... but did resolve the True issue....
thanks,
dave

[Welshgasman]

You could simplify it to
Me.lblPayment.Visible = Not YourBooleanControlName

[davegri]

Having worked on OP's previous postings, I think the setup is this:
There is no tab control.
The "tabs" are command buttons.
The subform is a single subform control.
The "tabs" click events load various subforms into the subform control.

This emulates a Navigation control on a form, along with the problem of intersubform communication.

[d9pierce1]

Correct davegri

So with that said, i will not be able to complete this task?
Thanks

[d9pierce1]

Hi davegri,
| thought about that and it makes sense. The form actually isnt on the page so really hard to access it.
I guess i could go though back door in a qry to pass the values to it. I will work on it but thanks for
the insite. I hadnt though of it that way and really made sense of it all.
Thanks again,
I will mark this solved
Dave

[June7]

Would have to save value to a global variable or TempVars or a textbox on main form then it could be referenced by next subform loaded.

[Micron]

Or OpenArgs?

[June7]

Well, can't pass OpenArgs to a subform.

[Micron]

Well, can't pass OpenArgs to a subform.

My thinking was to "pull" not pass. Since button clicks are setting the sourceobject, I figured the button click could set that property in the main form then when the subform loads, check its value and set any property as required. Turns out OpenArgs is read only so a button click can't set it. An open/load subform event could read a hidden textbox on the main form which holds the value as set by main form button though.