Multiple choice in a form which has the multiple choice data from a table.

[Akchayan]

Hello all,




I have a rather big problem, I have a table: "tbl20", a form: "foOfferte" and a report: "repOfferte". "foOfferte" is responsible for inserting the data into the report. This means that the user selects the data to be included in the report. I have managed all this, but now I have a problem. I would like the user to have a multiple choice selection at position 20. The selection should come from the table "tbl20".


I have made a small sketch of how it should look:

[moke123]

When you say multiple choice do you mean the user can select one from multiple choices or do you mean the user can make several choices from the form?

Is this Multi-User? If you have yes/no fields in the table you need to consider collisions where 2 people may be selecting choices at the same time.
I would be more inclined to use a list box.

[xps35]

Add a yes/no-field to tbl20 and make a continuous form showing both the values and the yes/no-field.
In your report you can select all records from the tblOfferte that have a checked value.

[moke123]

Add a yes/no-field to tbl20 and make a continuous form showing both the values and the yes/no-field.
In your report you can select all records from the tblOfferte that have a checked value.

Except if there is more than 1 user. When using the main table in that scenario, 2 people may be checking off items and you will get inaccurate results.
I would use an unbound listbox for the selections.

[Akchayan]

Hello all,


I have a rather big problem, I have a table: "tbl20", a form: "foOfferte" and a report: "repOfferte". "foOfferte" is responsible for inserting the data into the report. This means that the user selects the data to be included in the report. I have managed all this, but now I have a problem. I would like the user to have a multiple choice selection at position 20. The selection should come from the table "tbl20".


I have made a small sketch of how it should look:

Or is it possible that I simply create a listbox in which all values of the table "tbl20" are, and when the user (there is always only one user, so there are never several users online) double-clicks on a value in the listbox, it directly takes over this value into a text field?

[xps35]

Or is it possible that I simply create a listbox in which all values of the table "tbl20" are, and when the user (there is always only one user, so there are never several users online) double-clicks on a value in the listbox, it directly takes over this value into a text field?

What is wrong with the proposal I did? As others said, it will work when there is one user. Your form will look like your design. The only difference is that you don't see rounds but squares.
I do not understand your solution. You double-click a listitem and copy it to a text field (I don't see one on your form). And then? How do you use that as a criterion for your report?

[moke123]

You didn't answer my question re: Multiple choice.

tbl20 and Position20 do not give us any insight as to what you want to happen. Could you describe your database and give us some context as to what you want to achieve?
How do the selection or selections work in relation to your report?

[moke123]

What is wrong with the proposal I did? As others said, it will work when there is one user.

Nothing wrong with it. The question is whether it is more efficient. That method involves writing to the table and deleting from the table repeatedly.
An unbound list box , whether single selection or multi-select, doesn't carry that overhead as slight as it may be. It also precludes the need for a re-write should there be a need for multiple users in the future.

We can't really suggest a more detailed solution without the OP responding to our questions.

[Akchayan]

Add a yes/no-field to tbl20 and make a continuous form showing both the values and the yes/no-field.
In your report you can select all records from the tblOfferte that have a checked value.

I don't quite understand how to implement this. Could you explain it further? Thank you very much!

[xps35]

If you could post an example of your database, I think I can make a demo.

[Akchayan]

This is my table with the values:

This is my form in which the user is then supposed to click yes or no:

My report is a normal report in which the values must be filled in for which Yes is clicked.

[moke123]

Here's an example how to do it with an unbound listbox

[Akchayan]

how exactly does it work, so what is the process?
First I select the individual data in the list and press the "command2" button, but then the report does not open at all.

[moke123]

Not sure if it is an issue that I use 32 bit and your 64 bit but doubt it. May also be that your language uses different delimiter ( an ; instead of , )

code is rather simple.

my function for iterating through the listbox returns a string such as 1,2,4,6. these being the 0 column of the listbox, the primary key of the table.

Public Function getLBX(lbx As ListBox, Optional intColumn As Variant = 0, Optional Seperator As String = ",", _
                       Optional delim As Variant = Null) As String

'Iterates thru the multiselect listbox and constructs an array of the selected items
'Arguments:
'Lbx is Listbox Object ie.Me.MyListbox
'intColumn is the column # to be returned
'Seperator is the character seperating items in array returned
'Delim is optional delimiter to be return in array ie. #1/1/2001#,#12/25/2015#

    Dim strlist As String
    Dim varSelected As Variant

    'On Error GoTo getLBX_Error

    If lbx.ItemsSelected.Count = 0 Then
        'MsgBox "Nothing selected"
    Else

        For Each varSelected In lbx.ItemsSelected

            If Nz(lbx.Column(intColumn, (varSelected)), "") <> "" Then

                strlist = strlist & delim & lbx.Column(intColumn, (varSelected)) & delim & Seperator

            Else

                strlist = strlist

            End If

        Next varSelected

        If Nz(strlist, "") <> "" Then

            strlist = Left$(strlist, Len(strlist) - 1)  'remove trailing comma

        End If
    End If

    getLBX = strlist

    On Error GoTo 0
    Exit Function

getLBX_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure getLBX of Module modLBX"

End Function

the code calling the report is

Private Sub Command2_Click()

If Me.List0.ItemsSelected.Count = 0 Then MsgBox "Nothing Selected": Exit Sub

DoCmd.OpenReport "Report1", acViewReport, , "PosID in(" & getLBX(Me.List0) & ")"

End Sub

the relevant part is the where argument of the open report method.

 "PosID in(" & getLBX(Me.List0) & ")"

this would resolve to something like "PosID in (1,2,4,5)"

[xps35]

how exactly does it work, so what is the process?
First I select the individual data in the list and press the "command2" button, but then the report does not open at all.

I cannot tell how it "exactly" works if you do not provide sufficient information. What is the name and the structure of the table behind the report. What is the code behind command2?