Selected Multi Fields Added a textbox with Comma

[smtazulislam]

Hello,
I have a employee facility form which we have many Facilities Item available. When you click the Items field it will open the Items List Continues form and you can selection which Items you want to added.


So, I have create all of form, needs your assist. for HOW i will add this in the items text box multi data with comma,

[CJ_London]

you need to loop through the frmFacilityItems recordset and add to a string where the checkbox is true - or investigate using the concatRelated function (google it)

Basic code might be something like

dim s as string
with me.recordset
    .movefirst
    while not .eof
        if .chkSelected then s="," & fItem & s
        .movenext
    wend
end with
if s<>"" then s=mid(s,2)

you can then assign s to your items list control

[smtazulislam]

Hello Ajax,
Thank for your reply. But it was error.
"Runtime Error 438"

Private Sub cmdInsData_Click()Dim s As String
With Me.Recordset
    .MoveFirst
    While Not .EOF
        If .chkSelected Then s = "," & FacilityItems & s
        .MoveNext
    Wend
End With
If s <> "" Then s = Mid(s, 2)

And this is mark Code

    Dim strIDs As String

    strIDs = Me!Text1 & vbNullString
    If Len(strIDs) = 0 Then
        strIDs = "," & Me!Id & ","
    
    Else


        If InStr(1, strIDs, "," & Me!Id & ",") > 0 Then
            'remove it
            strIDs = Replace(strIDs, "," & Me!Id & ",", "")
        Else
    
            strIDs = strIDs & "," & Me!Id & ","
        
        End If
        strIDs = "," & strIDs & ","
        Do Until InStr(1, strIDs, ",,") = 0
            strIDs = Replace(strIDs, ",,", ",")
        Loop
        If Right(strIDs, 1) <> "," Then strIDs = strIDs & ","
        If Left(strIDs, 1) <> "," Then strIDs = "," & strIDs
        If strIDs = "," Then strIDs = ""
        
    End If
    Me!Text1 = strIDs
    Me.Refresh


End Sub

I dont know where is the problem.

[smtazulislam]

Concat = i dont know much.
I try:

NumberList(", ",me.txtItems)
   If Me.FacilityItems = 0 Then
       Me.FacilityItems = NumberList(",", Me.Id)
   End If

but not work.

[CJ_London]

not enough information - what is the description of error 438? what line is highlighted where the error occurred? The code I provided is an example. I have no idea what you called your fields so you need to change them to whatever you called them. Also no idea what 'mark code' is all about

[smtazulislam]

Okay. I have attached my DB

[CJ_London]

there is no code on the click event of the button.

please provide the error description and identify which line is highlighted

[smtazulislam]

there is no code on the click event of the button.

please provide the error description and identify which line is highlighted

it was give error in While .......... wend Loop Statement
after I try to

Debug.Print s

No nothing...

[moke123]

Wouldn't a multi-select listbox be easier?

[smtazulislam]

Hello J. Woolley,
How are you?
can you help me please?

[moke123]

Is this what your trying to do?

[smtazulislam]

omg! so many code you would created for me. Thank you so much, I appreciated J. Woolley.