RecordsetClone.RecordCount not being recognized on a form

[Orchid]

Hello all,
I have a Combo Box on a form with selection of a firm list. When the
users select a firm from the Combo Box and if the firm has branch(es),
a list of branch(es) of the firm opens in a Datasheet form; if without
branch, a message will prompt if they want to add a branch. If a firm
the users looking for is not on the list, they can type it on the Combo
Box and it will be added on the firm table, then a message will prompt
if they want to add a branch. If yes, then open a form to add branch
and rep, if not close the form.

I have 2 Event Procedures, 1 for "On Not in List" and 1 for "On Click"
as below, but I have error when select a firm with branch: (Run-time
error '2450':
Microsoft Access can't find the form 'frmBranch' referred to in a macro
expression or Visual Basic code.) It seems it couldn't recognize the
RecordsetClone.RecordCount, because if I just open the form without any
If statement, it works. Also if I have the same Procedure on the
Branch form OnOpen, it works too. However, I need the If Statement on
the OnClick (or somewhere else if more appropriate) because I don't
want the form to be open in different circumstance as I state above.

Could someone help me out on this? Your help is greatly appreciated.
Thanks in advance!
******
Private Sub Combo0_Click()
Dim stlinkcriteria As String
stlinkcriteria = "[FirmID]=" & Me![Combo0]

If Forms!frmBranch.RecordsetClone.RecordCount >= 1 Then
DoCmd.OpenForm "frmBranch", acFormDS, , stlinkcriteria
Else
If MsgBox("There is No Branch. Do you want to Add now?", vbYesNo +
vbQuestion) = vbNo Then
Cancel = True
Else
DoCmd.OpenForm "Branch subform", , , , acFormAdd
End If
End If
End Sub

Private Sub Combo0_NotInList(NewData As String, Response As Integer)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim msg As String
Dim ID As String
Dim stlinkcriteria As String
stlinkcriteria = "[FirmID]=" & Me![Combo0]
ID = Me![Combo0]

On Error GoTo err_combo0_notinlist
If NewData = "" Then Exit Sub
msg = "'" & NewData & "' is not in the list." & vbCr & vbCr
msg = msg & "Do you want to add it?"
If MsgBox(msg, vbQuestion + vbYesNo) = vbNo Then
Response = acDataErrContinue
MsgBox "Please try again."
Else
Set db = CurrentDb
Set rs = db.OpenRecordset("Firm", dbOpenDynaset)

rs.AddNew
rs![FirmName] = NewData
rs.Update
'Prompt to add Branch after add the FirmName
If MsgBox("Firm Has Been Added. Do You Want To Add BRANCH?",
vbYesNo + vbQuestion) = vbNo Then
Cancel = True
DoCmd.Close acForm, "frmEnterFirm"
Else
DoCmd.Close acForm, "frmBranch"
'DoCmd.OpenForm ("frmInputFirmInfo"), , , "[FirmID]= '" & ID &
"'"
DoCmd.OpenForm ("frmInputFirmInfo"), , , stlinkcriteria
End If

Response = acDataErrAdded
End If
exit_combo0_notinlist:
Exit Sub
err_combo0_notinlist:
MsgBox Err.Description
Response = acDataErrContinue
End Sub
******

[deluxeinformation]

Orchid wrote:

Hello all,
I have a Combo Box on a form with selection of a firm list. When the
users select a firm from the Combo Box and if the firm has branch(es),
a list of branch(es) of the firm opens in a Datasheet form; if without
branch, a message will prompt if they want to add a branch. If a firm
the users looking for is not on the list, they can type it on the Combo
Box and it will be added on the firm table, then a message will prompt
if they want to add a branch. If yes, then open a form to add branch
and rep, if not close the form.

I have 2 Event Procedures, 1 for "On Not in List" and 1 for "On Click"
as below, but I have error when select a firm with branch: (Run-time
error '2450':
Microsoft Access can't find the form 'frmBranch' referred to in a macro
expression or Visual Basic code.) It seems it couldn't recognize the
RecordsetClone.RecordCount, because if I just open the form without any
If statement, it works. Also if I have the same Procedure on the
Branch form OnOpen, it works too. However, I need the If Statement on
the OnClick (or somewhere else if more appropriate) because I don't
want the form to be open in different circumstance as I state above.

Could someone help me out on this? Your help is greatly appreciated.
Thanks in advance!
******
Private Sub Combo0_Click()
Dim stlinkcriteria As String
stlinkcriteria = "[FirmID]=" & Me![Combo0]

If Forms!frmBranch.RecordsetClone.RecordCount >= 1 Then
DoCmd.OpenForm "frmBranch", acFormDS, , stlinkcriteria
Else
If MsgBox("There is No Branch. Do you want to Add now?", vbYesNo +
vbQuestion) = vbNo Then
Cancel = True
Else
DoCmd.OpenForm "Branch subform", , , , acFormAdd
End If
End If
End Sub

Private Sub Combo0_NotInList(NewData As String, Response As Integer)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim msg As String
Dim ID As String
Dim stlinkcriteria As String
stlinkcriteria = "[FirmID]=" & Me![Combo0]
ID = Me![Combo0]

On Error GoTo err_combo0_notinlist
If NewData = "" Then Exit Sub
msg = "'" & NewData & "' is not in the list." & vbCr & vbCr
msg = msg & "Do you want to add it?"
If MsgBox(msg, vbQuestion + vbYesNo) = vbNo Then
Response = acDataErrContinue
MsgBox "Please try again."
Else
Set db = CurrentDb
Set rs = db.OpenRecordset("Firm", dbOpenDynaset)

rs.AddNew
rs![FirmName] = NewData
rs.Update
'Prompt to add Branch after add the FirmName
If MsgBox("Firm Has Been Added. Do You Want To Add BRANCH?",
vbYesNo + vbQuestion) = vbNo Then
Cancel = True
DoCmd.Close acForm, "frmEnterFirm"
Else
DoCmd.Close acForm, "frmBranch"
'DoCmd.OpenForm ("frmInputFirmInfo"), , , "[FirmID]= '" & ID &
"'"
DoCmd.OpenForm ("frmInputFirmInfo"), , , stlinkcriteria
End If

Response = acDataErrAdded
End If
exit_combo0_notinlist:
Exit Sub
err_combo0_notinlist:
MsgBox Err.Description
Response = acDataErrContinue
End Sub
******

The problem is that you are referring to frmBranch from your 'firm'
form when frmBranch is not open. You cannot refer to a form's
recordset property as you do in your combo0 click event without it
first being open. You'll need some other way to see if you have branch
records for the selected firm, either by keeping frmBranch always open
(as a subform perhaps, or hidden) or by using dcount() or by using
currentdb.openrecordset("select ... where FirmID = " &
Me![Combo0]).recordcount or some other method...

Hope this helps,
Bruce