Divide Output from Query

[juneau730]

Morning all,

Not sure if what I am attempting to do, is doable or not, but I wasn't able to find anything.

I have a query that pulls 3 columns from the master table. Depending on what department I pull the data from, the results quantity varies.

What I would like to be able to do, if possible, is split the data into 3rds. Basically I would have 3 separate forms created from this query, with a 3rd of the data from the master table on each form.

 

[jackd]

Did you try the routine I showed? Result?

 

[XPS35]

It will be here tonight (CET).

 

[XPS35]

If you're willing to provide the code, I'm willing to give it a try and to add some data to the table

If you add a numeric (byte) field to your table (I named it AssignedTo) the code would look like:

Private Sub Assign_Click()

Dim rs As Recordset
Dim strSQL As String
Dim tmpAssign As Byte
Dim tmpCount As Long

strSQL = "SELECT AssignedTo FROM YourTable " & _
         "WHERE AssignedTo = 0 OR IsNull(AssignedTo)"
Set rs = CurrentDb.OpenRecordset(strSQL)
tmpAssign = 3
tmpCount = 0

While Not rs.EOF
    If tmpAssign = 3 Then
        tmpAssign = 1
    Else
        If tmpAssign = 2 Then
            tmpAssign = 3
        Else
            tmpAssign = 2
        End If
    End If
    
    rs.Edit
    rs!AssignedTo = tmpAssign
    rs.Update
    
    tmpCount = tmpCount + 1
    
    rs.MoveNext
Wend

Set rs = Nothing
MsgBox tmpCount & " records have been assigned.", vbInformation, "Ready"

End Sub

I made a form, placed a button on it that executes the code.

 

[juneau730]

Did you try the routine I showed? Result?

I have not had a chance to try it. I'm traveling, but I will when I can and will let you know