Solved

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

Posted on 2006-11-16
11
233 Views
Last Modified: 2008-03-06
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
Comment
Question by:Galisteo8
  • 5
  • 4
11 Comments
 
LVL 44

Accepted Solution

by:
Leigh Purvis earned 250 total points
ID: 17962885
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
 
LVL 8

Author Comment

by:Galisteo8
ID: 17963052
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
 
LVL 44

Expert Comment

by:Leigh Purvis
ID: 17963063
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
 
LVL 8

Author Comment

by:Galisteo8
ID: 18328426
I should get back to this db project this week or next.  Please stand by...
0
 
LVL 8

Author Comment

by:Galisteo8
ID: 18490385
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
Comprehensive Backup Solutions for Microsoft

Acronis protects the complete Microsoft technology stack: Windows Server, Windows PC, laptop and Surface data; Microsoft business applications; Microsoft Hyper-V; Azure VMs; Microsoft Windows Server 2016; Microsoft Exchange 2016 and SQL Server 2016.

 
LVL 8

Author Comment

by:Galisteo8
ID: 18508916
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
 
LVL 44

Expert Comment

by:Leigh Purvis
ID: 18509118
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
 
LVL 8

Author Comment

by:Galisteo8
ID: 18509191
Ah!  Many thanks!

Glad I didn't wind up bailing on this question.  :)  And I'm glad you were on tonight.
0
 
LVL 61

Expert Comment

by:mbizup
ID: 18509193
:-)
0
 
LVL 44

Expert Comment

by:Leigh Purvis
ID: 18509242
No problem!
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Regardless of which version on MS Access you are using, one of the harder data-entry forms to create is one where most data from previous entries needs to be appended to new records, especially when there are numerous fields and records involved.  W…
Experts-Exchange is a great place to come for help with solutions for your database issues, and many problems are resolved within minutes of being posted.  Others take a little more time and effort and often providing a sample database is very helpf…
In Microsoft Access, learn how to use Dlookup and other domain aggregate functions and one method of specifying a string value within a string. Specify the first argument, which is the expression to be returned: Specify the second argument, which …
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

930 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now