On your Data Input Form when you add data and then Click a Command Button to Open the Report, then you
need a line of code to Save the data you have just entered. ie
If Me.Dirty Then Me.Dirty = False
If you think your Personnel table is normalized then good luck.
You will find that further down the line you will not be able to produce the required output for queries and Reports.
As previously mentioned you need to Normalize your Personnel table.
The following needs to stored in separate related tables:-
Start / Termination Dates
Unit/Position
Training
I am sure there will be more.
Can you upload a copy of the database with a few random not confidential data?
Seeing as you only have 1 table then the standard method to select a specific Field is as shown in the attached.
=335098&hash=9d85ee838d4f9fd2fc18ee1d217e07f6']Attach files
Hi Ghia
The attached is your 1 table converted to a relational layout with all the current data retained.
It still needs more work.
Is this what you require?
Hi Malcome
If you add an additional field in the tblBookings named Type with 2 values "Individual" or "Fully Booked" your Data Entry Form would be as shown in the attached 2 screenshots.
1 for Fully Booked and 1 for normal Individual Bookings.
On the Individual Bookings Form ignore the Covers...
Hi Malcolm
The attached screenshot is probable easier to manage.
You have a Form where you select a Specific Date.
Then a Continuous Subform to enter the Multiple Bookings.
Then you data Input form would look like the attached screenshot.
Hi Malcolm
I am not following your table structures.
In tbl_Net_RestaurantTables you have :-
1. set the Autonumber on the field name "TableNo" which is a Text Field?
2. You have an ID field set as Number
3. Most recommend that you have a PK field Autonumber LongInteger in all tables
4. You have...
In the attached I created a query to get the Total field from tblPartners.
Then in the Subform I added a subform based on qryTotals to obtain the Grand Total for All Partners related to the Form selected.
The Guru's will have a slicker method.
Using MajP's example in the Footer of the Subform for Partners add the following Unbound Control:-
=DSum("Total","tblPartners","PartnerID = " & [PartnerID])
Total being a field in tblPartners with a numeric value for each record.