Forms :: Registering Attendance At Event With Three Fields?
Jun 8, 2013
I have a form, which registers attendance at an event, with three fields - ID (a combo box), Name, and Present.
When an attendee comes in, they give their number which is entered into the first field. Pressing carriage return, their record is loaded, and I can then check the 'present' field. Then I click the next button and await the next person!
I'd like the simplify the whole process - so that as soon as the 3 digit attendee number is typed, the present box for that record is checked, and the form is reset (curser back to the combo box to search for next record).
In short - all the registrar ever has to do is enter a three digit number!
Relationships all work and reporting works. I now want to create a form for entering attendance into a single event as a batch. I only want to enter the event ID one time and then be able to enter participant ID's for all attendees. The event coordinator will have a tablet running the db at the door and each participant will use their ID card to be scanned into the event.
I don't want the coordinator to have to reselect the correct event between each participants scan but instead to enter the event once and have multiple participants ID's entered for the one event. The date field is defaulting to current date/time [Now()].
So in my database I have a table with a few fields (let's say, A,B,C,D,E) all text.
For some reason, only D and E are registering through VBA. Meaning, let's say I do a Me. command, I can only get D and E to work, and not A, B, or C. A,B,C don't even appear in the list.
I've got an attendance form set up with check boxes for each day I want to check attendance. I have two problems with this form.
1) All the boxes start out with little squares (I want them to be blank) 2) If I try checking a box for one person, it checks all the boxes in the column (same with unchecking).
I am using a form to input attendance data. I would like to know how to log an individual as being out on vacation for a week, month or so without having to input the staffs name and date for each day they are out. Would like to Enter their name once with the date range they will be away from the office.
I have a table called Attendance were information about the Student and the class they are attending is collected.
Another table called Student, this hold information about the student. I am using a Form called Attendance to input my information. What I am trying to achieve is:
BeforeUpdate on a text box:
When you input Student_ID it looks at the Student Table to see if the Student ID is valid before the information is updated to the Attendance Table.
I'm creating a Gym Database and need to be able to track attendance for specific classes. I need to have a system in place allowing me to do a register for attendance for each activity.
I also need to be able to calculate fees based on attendance. So if a person attended Gym 5 times in the month (£5 per session) and then Swimming 3 times in the month (£2 per session). My system should automatically calculate this based on the attendance tracking.
Also: In the booking stage, I need to have a field telling me how many spaces are left on each activity. Say for example I'm booking Person 99 in for Swimming and there is only 11 places left I need the field to display 11 places left. After that booking it should update saying 10 places left because Person 99 is booked in.
I am trying to make a database for my employees to count their attendance according to the days of the month and then get their salary. How to create a form that show the days of the month and then i can add the names of the attending employees.
I have a record that has a field called "PG". Every "PG" has different standards depending on what quarter it is in. There is a field called "Quarter" in the record along with a field called "PC". The "PC" field is the "PG" field plus the "Quarter" field. (all are text fields). I would like the "PC" field to be automatically entered once the other 2 fields have their values. Do I use the formula
[PC] = [PG] + [Quarter]
And do I put that as an event, and if so, which one.
I have a data entry form where country(ies) (there can be more than one for each project) is/are entered in a sub-form on a tab control. Countries not listed are entered by the following:
Private Sub CountryName_NotInList(NewData As String, Response As Integer) Dim strSQL As String Dim strMsg As String Dim ctl As Control Set ctl = Screen.ActiveControl
strMsg = "Country " & NewData & " Is not listed!" & vbCrLf & "Do you want to add it?" If MsgBox(strMsg, vbYesNo, "Not listed") = vbYes Then strSQL = "INSERT INTO tblCOUNTRY (CountryName) " strSQL = strSQL & "VALUES('" & NewData & "');" CurrentDb.Execute strSQL Response = acDataErrAdded Else ctl.Undo Response = acDataErrContinue End If End Sub
This works fine. However, if I restrict the country names by a region selection on the main form (for example if region Africa is selected on the the African countries are preselected) the NotIn List does not work. Any way to work around this?
Another question, I want the user to select a region (a combo box ) on the main form and when a new country (using the NotInList event) is entered in the subform both values go into the same record in tblCountry (which has two fields CountryName and Region). For example, I enter AFRICA for region on the main form and on the sub-form I enter Malawi which is not listed. I have tried the following:
Private Sub CountryName_NotInList(NewData As String, Response As Integer) Dim strSQL As String Dim strMsg As String Dim ctl As Control Set ctl = Screen.ActiveControl
strMsg = "Country " & NewData & " Is not listed!" & vbCrLf & "Do you want to add it?" If MsgBox(strMsg, vbYesNo, "Not listed") = vbYes Then strSQL = "INSERT INTO tblCOUNTRY (CountryName, Region) " strSQL = strSQL & "VALUES('" & NewData & "', FORMS!frmAddPro!Region);" CurrentDb.Execute strSQL Response = acDataErrAdded Else ctl.Undo Response = acDataErrContinue End If End Sub
But it does not work (Region is the control on the main form named frmAddPro). Any suggestions would be welcome. Thanks. Niels
I have a listbox on a subform (or a subform within a subform).
When it is clicked I want all other listboxes to unselect.
There may be listboxes on the mainform, on other subforms, on other subforms of subforms.
I imagine I'm looking at a recursive function of some sort, but I'm not entirely sure of syntax to identify parent and children forms...
pseudocode so far: loop all controls if control = listbox, unselect all if control = subform - recurse: loop all subform controls if control = parent... err... Fail.
In ContactIDForm it contain 1 textbox name 'TextBox' with Button Name 'Btn'
In ContactIDForm there is only 1 Text Box ContactIDTextBox and 1 Button. User Enters ID in TextBox and On Button Click Event it should check data from TextBox in Table name (ContactDetailTable) in field ContactID and if there is record matching, ContactInfoForm should Open else NewContactForm should open with ContactIDTextBox value in it.
Any sample database where its about Time In and Time Out Attendance. It will just calculate the difference of Time In Time Out with employees Card Number.
The Time In and Time Out attendance is provided (no data entry), it is generated from other tool. I will just load it from an excel sheet to the access database and it will calculate and generate report. Default should be 9 hours per day, if they wont render 9 hours it will show in Difference column. Form will be like this:
ID Num: | Name: | Time In: | Time Out: | Total |Difference (missing hours)
12345 | Al Smith | 8.00am | 5:00pm | 9 | 0 54321 | Joy Pitt | 8.00am | 4.30pm | 8.30 | -0.30
I have a main form that holds a tab control with a number of sub forms. One of these subforms has a pop up form for adding new records to it. After closing this pop up form I would like to initate code on the sub form where the new record now will appear. One of the things I like to do is simply to set focus to the record the user just added.
My problem is that I cannot seem to get any event to trigger in this setting (bben trying more or less all). If I understand things right the fact that I am using a pop up form and the fact that I am using a tab control both seem to interfer with the Activate event and making it passive.
How I can trigger code on the sub form (after closing the "Add New" pop up form)?
I am working on a database which has two tables used as part of a registration and login process.
I would like a couple of fields from table one to automatically update in table two, once the fields in table one are populated without using an 'on click' event.
The reason I would prefer not to use an onclick is because the completion of the form used to generate the users table does not require any buttons for the data to save.
I have a task of creating a database to track committee members attendance at meetings. Members can be on more than one committee. I have created tables for committees, committee population and committee members.
The meetings would take place once a month and do not need an exact date. A Yes/No would suffice for record of attendance. My question is what would be the best way to set up the table to track this since members can be on more than one committee?
I'm thinking that having a separate meeting table for each committee would be a bad idea. But haven't come up with any other ideas. Any suggestions???
for some days i've a problem with an Access-Query and up to now i didn't succeed to find an answer, i'm not even sure if there is one.
So, how to explain my problem. I'm trying to compile a Database for my small department to organize our computer-short-course students (application, grades, attendance...)
And with the grades i have a problem as well as with the attendance. Up to now we are just using paper sheets for grades and attendance. So i just thought that it would be the easiest thing to create a similiar-looking form, drawing of planned Query-output-layout is attached.
The attendance should be set with a checkbox. New days are set with a small subform. For the attendance i've this table-layout:
tblAttendance aSID aCID aDate aPresent
When a new day is set, every student gets a new record at the tblAttendance, which shall be compiled together for the later Attendance Form.
So now the big question comes, is it possible to create a query that fits my needs (variable amount of days and students and the possibility to set my records)? It is important that i've a big sheet with all the days, students of a course at the same time.
Any suggestions - i'm completly lost. Thanks in advance, protos
On my form i have a control called WeekDate (this is always the start of the week (monday), below i have a subform (sbfrmWorksheetDetails) contained in a tab control (tabWeek) with 5 pages for each day of the week, i have written a select case statement in the onchange event for tabWeek which selects records based on the day of the week (so = WeekDate for Monday, +1 for Tuesday, +2 for Wednesday etc), this works great, i have also put a bit of code in the same onchange event that makes the default value for a new record for the field WorkDayDate in the subform +1 and +2 etc. this works great for existing records, each new line in the subform puts the right date in, however this seems to cock up when clicking on a new tab that doesn't have a record in..Here's the code.
Private Sub tabWeek_Change() Select Case tabWeek Case 0 'Monday Forms!WeeklyWorksheet!sbfrmWorksheetDetails.Form.R ecordSource = "SELECT * FROM tblWorksheetDetails WHERE (((tblWorksheetDetails.WorkDayDate) = [Forms]![WeeklyWorksheet]![WorksheetDate]))" Forms!WeeklyWorksheet!sbfrmWorksheetDetails.Form!W orkDayDate.DefaultValue = SQLDate(Me.WorksheetDate) Case 1 'Tuesday Same as above but WorksheetDate+ 1 for both select and default value. Case 2 'Wednesday Same but +2 etc. End Select End Sub
the SQLDate is some code that converts the american US date formatting to UK formatting. i'm not sure if that's the problem, but i'll post that anyway:
Function SQLDate(vDate As Variant) As String If IsDate(vDate) Then SQLDate = "#" & Format$(vDate, "dd/mm/yyyy") & "#" End If End Function
I can't quite work out what screwing this up upon adding a new record.
I have an app that is browsing a survey. When the survey is in simple 'browse' mode, I want to be able to emulate the effect of a SkipResponse. (A SkipResponse is when selecting a particular value causes the normally sequential processing of survey questions to become non-linear. A sort of If Response = thisvalue then next question is something else) I can 'request' the SkipResponse by using Ctrl/Alt click, and then emulate returning from the target question by using Ctrl/Shift Click.
My problem is that I want to do the same thing (for a return) by allowing Ctrl/Shift on the Exit button. If I just use a regular mouseup evvent, it will complete, but will then go ahead and run the code for the Click event, to exit the survey. What I would like is to be able to cancel the processing of the Click event from within the handler of the MouseUp event.
I have a form which displays information in the footer until the use has accomplished some tasks. Once I verify that all is well I allow the user to change the fields in the footer. I want to verify that the proper changes were made but the BeforeUpdate event does not fire until the form is closed.
