Continous Form Issue (Re-Post)

[Anthony Viscomi]

I have the following code that resides within a "click event" contained in a
Sub Form which is Continous:
Private Sub Action_Taken_Click()
If Me.Action_Taken.Value = True Then
Me.cboAction.Visible = True
MsgBox "Select an Action", vbInformation, "Action Required"
Me.cboAction.SetFocus
Else
Me.cboAction.Visible = False
End If
End Sub

The code runs fine; except for that when the Action_Taken is either True or
False all cboAction(s) on all records all Visible or not Visible. I assume
that there may be some sort of "Current Record" code that I should be using.
Can anyone direct me?

Thanks in advance! (Sorry for the re-post)
Anthony

 

[Allan Murphy]

Anthony

I had a similar problem but I was using an unbound text box. I overcame this
by adding a field to my table to record the value.

In your case you may need to add a field called say action_value and this
will store the value of the cbo.

There maybe a better way to overcome this problem.

Allan Murphy
Email: (e-mail address removed)

 

[Anthony Viscomi]

The cbo is already bound; thanks for your input.

Anthony

I had a similar problem but I was using an unbound text box. I overcame
this
by adding a field to my table to record the value.

In your case you may need to add a field called say action_value and this
will store the value of the cbo.

There maybe a better way to overcome this problem.

Allan Murphy
Email: (e-mail address removed)

 

[Maxi]

I have the following code that resides within a "click event" contained in a
Sub Form which is Continous:
Private Sub Action_Taken_Click()
If Me.Action_Taken.Value = True Then
Me.cboAction.Visible = True
MsgBox "Select an Action", vbInformation, "Action Required"
Me.cboAction.SetFocus
Else
Me.cboAction.Visible = False
End If
End Sub

The code runs fine; except for that when the Action_Taken is either True or
False all cboAction(s) on all records all Visible or not Visible. I assume
that there may be some sort of "Current Record" code that I should be using.
Can anyone direct me?

Thanks in advance! (Sorry for the re-post)
Anthony

This is code that I use on a continuous form.
As the focus moves from record to record, you can copy, paste, whatever
to the active record.

Private sub Whatever
Dim n as integer
'CountEm is function that counts displayed records on a continuous form
For n = 1 To CountEm

'Cycle thru records on a continuous form
DoCmd.GoToRecord acDataForm, "frmRABud", acGoTo, n

'run code for active record

Next n
'on completion return to first record
DoCmd.GoToRecord acDataForm, "frmRABud", acFirst

End If


'count the number of records on the continuous form
Public Function CountEm()
On Error GoTo CountEm

Me.RecordsetClone.MoveLast
CountEm = Me.RecordsetClone.RecordCount

Exit_CountEm:
Exit Function

CountEm:
MsgBox Err.Description
Resume Exit_CountEm

End Function

 

[Anthony Viscomi]

Maxi,

Where should the Private sub Whatever function be placed?