Adding info into Textbox by clicking on checkbox Yes/No without deleting the previous info

[charly.csh]

Hi everyone,

I am writing a code to add people names into a Textbox by click on a checkbox Yes/No

The textbox is named "Teamworktxt" and the checkboxes are "Qualitychk", "Maintenancechk", "Productionchk", "Engineeringchk"

I want everytime when I click on the check box.. the people in charge of the department will be included into the "Teamworktxt"no matter what this textbox has already info (I dont want to delete the previous info)

The idea is to create the list of people that will be working on the project


My Code

************************************************
Private Sub WT_Quality_Click()


If Me.WT_Quality = -1 Then




Dim Quality As String
Quality = "Quality"


Me.TeamWorktxt = DLookup("[Name]", "[Team_Work]", "[Departament]= '" & Quality & "'")


End If

End Sub
**********************************************

I have also the same code for each Checkbox but obviously when I click on one of them, it takes the info and replace it with the new one


Does someboy have any idea to correct this?

[pbaldy]

Try

Me.TeamWorktxt = Me.TeamWorktxt & " " & DLookup("[Name]", "[Team_Work]", "[Departament]= '" & Quality & "'")

[pbaldy]

By the way, I don't see the point of the variable. Why not just:

Me.TeamWorktxt = DLookup("[Name]", "[Team_Work]", "[Departament]= 'Quality'")

[charly.csh]

You are completly right!!

Just I was making more code than needed,

Thank you very much!!!!

[pbaldy]

Happy to help!

[charly.csh]

Quick question...

I also would like to include vbCrLf to make a space by everyname into my textbox, I was doing this but is not working and it is moving to function "Else"

**************************************************

Private Sub WT_Quality_Click()

If Me.WT_Quality = -1 And Me.TeamWorktxt = "" Then

Me.TeamWorktxt = Me.TeamWorktxt & " " & DLookup("[Name]", "[Team_Work]", "[Departament]= 'Quality'"

ElseIf Me.WT_Quality = -1 And Me.TeamWorktxt <> "" Then

Me.TeamWorktxt = Me.TeamWorktxt & " " & DLookup("[Name]", "[Team_Work]", "[Departament]= 'Quality'"

Else

Me.TeamWorktxt = "Test failed"

End If

End Sub

[pbaldy]

The If and ElseIf appear to do the same thing, but try:

If Me.WT_Quality = -1 And Len(Me.TeamWorktxt & vbNullString) = 0 Then

which checks that the textbox is empty. >0 would test for it having something in it.

[charly.csh]

Wow!! Excellent they work pretty good!!!

Just one question more...

If I want for example to delete the name of the person added into the textbox.... how should be this code line? I'm thinking something like this...


If Me.WT_Quality = 0 Then

Me.TeamWorktxt = DLookup("[Name]", "[Team_Work]", "[Departament]= 'Quality'" 'What would be the function to take the name out?

[pbaldy]

Put the name into a variable and then use the Replace() function, along the lines of:

Me.TeamWorktxt = Replace(Me.TeamWorktxt, VariableName, "")

[charly.csh]

Hi!!

Just was not so clear to me what would be this "Name" to put into this variableName

Do I have to define a varible with DLookup and put it into?

**********

If Me.WT_Quality = -1 And Len(Me.TeamWorktxt & vbNullString) = 0 Then

Me.TeamWorktxt = DLookup("[Name]", "[Work_Team]", "[Departament]= 'Quality'")

ElseIf Me.WT_Quality = -1 And Me.TeamWorktxt <> "" Then

Me.TeamWorktxt = Me.TeamWorktxt & " " & vbCrLf & DLookup("[Name]", "[Work_Team]", "[Departament]= 'Quality'")

End If

If Me.WT_Quality = 0 Then

Me.TeamWorktxt = Replace(Me.TeamWorktxt, VariableName, "")

End If

[pbaldy]

The variable is just because putting the DLookup() inside the Replace() gets ungainly. Something like this. At the top you'd declare the variable:

Dim strName As String

then when the checkbox is unchecked:

If Me.WT_Quality = 0 Then
   strName = DLookup("[Name]", "[Work_Team]", "[Departament]= 'Quality'")
   Me.TeamWorktxt = Replace(Me.TeamWorktxt, strName , "")
End If

[charly.csh]

Woow!!

Excellent idea!!!!
Thank you very much!!!!!!

[pbaldy]

No problemo!