Loop threw continuous form using .tag

Question

Hello, I have a continuous form with a button and I need to check whether or not a chkbox is checked or not and if ANY of them are then run some code and if none are checked then give a message "You need to select a return before proceeding"

How can I do this? Thanks...

Answer 1

Ok I got rid of the error by removing the apostrophes but it doesnt run the code correct. It doesn't matter if I have check boxes checked or not checked on the form it goes directly to the Else part of the code

Answer 2

Ok, Im getting a data type mismatch error 3464 and I know it has something to do with my string being a check box and the quotes or something around it maybe in strMissinSelected? Debuging takes me to the line: 

rst.FindFirst strMissinSelected

Private Sub cmdDeleteSelectedEntries_Click()

    Dim Cancel As Integer

    Dim strMissinSelected As String

    Dim rst As Recordset

    strMissinSelected = "ReleaseProduct = '" & Forms![frm_Hold]![frmsub_ProductHoldData].Form![chkRelease] & "'"

    Set rst = Me.frmsub_ProductHoldData.Form.RecordsetClone

    rst.FindFirst strMissinSelected

    If rst.NoMatch Then

        MsgBox "You need to select a return before proceeding"

        Exit Sub

    Else

        MsgBox "the boxes are checked run code"

        Cancel = fncRequiredReleaseSelectedEmail(Me)

    End If

End Sub

Answer 3

Forms do not hold data, they only display data. So you don't loop through a form, you loop through a recordset that represents the Recordsource of the form. 

Towards that end you can use the Recordsetclone property of the form, or you can use a query that matches the recordsource. 

Otherwise the loop is very standard.

Dim rs As Recordset

Set rs = Me.RecordsetClone  (or CurrentDb.OpenRecordset("SELECT...") )

With rs

     .Movefirst

     Do While NOT .EOF

          If .Fields("filedname") = something

              code to perform

          End If

          .MoveNext

      Loop

End With

Answer 4

Hi,

you can use the recordsetclone to verify if almost one check-box are checked .

Mimmo