Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 281
  • Last Modified:

Enter data only for records in a subform that are 'checked'

I have an Access 2000 database with a table for employees (tblEmployees) which includes a large text field (txtNotes) for adding comments to each record.  We have occasions where we need to add the same note to many of the employee records all at once.  Not necessarily ALL of the records, but most of them.

What I’m envisioning is a form where the user enters the text.  A subform shows a list of all employees, and the user can check or uncheck these employees as appropriate.  Clicking “Save” on the form would insert the given text into the txtNotes fields of the employee records that were checked.

Anyone ever done something like this?  How can you do this kind of a “check box” approach?

Thanks in advance,
Galisteo8
0
Galisteo8
Asked:
Galisteo8
  • 5
  • 4
1 Solution
 
Leigh PurvisDatabase DeveloperCommented:
Some would advocate a field in the tblEmployees tables - a boolean (Yes/No) field for you to check the values.
Then it's a trivial case of

UPDATE tblEmployees
SET NotesField = NotesField + (Chr(13) & Chr(10)) & 'Some new Text'
WHERE CheckedFlag = True

Personally - I think that's a slightly nasty hack.  Updating multiple rows of the same table - twice.

I'd keep a separate table - and outer join to it in a query.
It can be as simple as
EmployeeID (Long FK)   Selected (Yes/No)
Include in your query something like

SELECT EmployeeID, EmployeeName, Selected
FROM tblEmployees LEFT JOIN tblEmployeesSelected
ON tblEmployees.EmployeeID = tblEmployeesSelected.EmployeeID
ORDER BY EmployeeName

base a form on that.
When you click selected you'll be adding rows to tblEmployeesSelected.
So then you can do an update of

UPDATE tblEmployees
SET NotesField = NotesField + (Chr(13) & Chr(10)) & 'Some new Text'
WHERE tblEmployees.EmployeeID In (SELECT EmployeeID FROM tblEmployeesSelected WHERE Selected = True).

(You could use a listbox too - but that's more effort).
0
 
Galisteo8Author Commented:
I'll give that a shot tomorrow.

Shouldn't I also delete all the rows from tblEmployeesSelected when all is said and done?  The next time it's needed, the user may select completely different employees.  Also, the table would just keep getting bigger and bigger...
0
 
Leigh PurvisDatabase DeveloperCommented:
Exactly.  But since it's a local table you're free to do so at will (before you begin the selection process instead if you prefer - just to be sure).
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
Galisteo8Author Commented:
I should get back to this db project this week or next.  Please stand by...
0
 
Galisteo8Author Commented:
I'm sorry.  This particular project is just a "side" project (i.e. low priority) and I will not be able to try lpurvis' suggestion at this time.  So... I don't know if it will work in my actual situation.  If/when I get a chance to implement his suggestion and it works out, then I'll post a point-giving question for him.  In the meantime, I'll just close this one.

Sorry 'bout that!

--Galisteo8
0
 
Galisteo8Author Commented:
LPurvis,

Hi, there.  I found myself working over the weekend and thought I'd give this a go!  :)  This is a great solution, it's coming along nicely -- thank you!  however, something is still not working right...  

I have set up the form based on the SELECT query as a subform on another form; this parent form then has a textbox where the additional text is to be entered, and also a command button for the user to click to actually append the text to the Notes field of the selected employees.  What I find is that the new text only gets appended to the Notes field if there is already something in the Notes field.  If an employee's Notes field is blank, then the new text will not get put in.

Here's the event code on the command button:

*********************************
Dim strQuery As String

strQuery = "Update tblEmployees Set Notes = Notes + '" & Chr(13) & Chr(10) & Me.txtNote2Add & "' WHERE tblEmployees.EmployeeID In (SELECT EmployeeID FROM tblEmployeesSelected WHERE Selected = True)"

CurrentDb.Execute strQuery
*********************************

is there some reason that Chr(13) doesn't work in a NULL field, thereby rending the entire reference to my new text void?

We're almost there!
--Galisteo8
0
 
Leigh PurvisDatabase DeveloperCommented:
That's just down to your concatenation operator choice. (+ instead of &)

'                                                                   Here \/
strQuery = "Update tblEmployees Set Notes = Notes & '" & Chr(13) & Chr(10) & Me.txtNote2Add & "' WHERE tblEmployees.EmployeeID In (SELECT EmployeeID FROM tblEmployeesSelected WHERE Selected = True)"

In fact - what I'd recommend (to prevent unecessary carriage returns at the start of Notes fields (which is what you'd get with the above).

strQuery = "Update tblEmployees Set Notes = Notes + (Chr(13) & Chr(10)) & '" & Me.txtNote2Add & "' WHERE tblEmployees.EmployeeID In (SELECT EmployeeID FROM tblEmployeesSelected WHERE Selected = True)"
0
 
Galisteo8Author Commented:
Ah!  Many thanks!

Glad I didn't wind up bailing on this question.  :)  And I'm glad you were on tonight.
0
 
mbizupCommented:
:-)
0
 
Leigh PurvisDatabase DeveloperCommented:
No problem!
0

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

  • 5
  • 4
Tackle projects and never again get stuck behind a technical roadblock.
Join Now