Recall - Create Schedule (sbaxter?)
This could be one for you Mr Baxter.
I want to automatically create interview slots. On a form I've got an interview set up and there is a one to many relationship with a table containing interview slots. I want the user to key in the start time of interviews and the end time and the duration of the interview. It should then create the records (time slots) and display them.
I assume it will be some kind of append query, but to be honest I just don't know where to start.
Please help. A cyber pint goes to the boffin that susses it.
Cheers,
Recall.
View Complete Forum Thread with Replies
Related Forum Messages:
Recall - Message For Sbaxter
Could you please post me the VBAunbound.zip file so I can start getting to grips with unbound forms within Access. All the links in the forum seem to take me nowhere.
View Replies !
Recall - Create New Record In Datasheet
I have a main form called FrmCalls with a button on, which when pressed brings up a pop up form called FrmSurround, within which is a subform in datasheet format called FrmContacts. This has 3 fields within it. I want the system to tak a value from Frmcalls (numeric value) when the button is pressed and place it as a new record in one of the fields on the datasheet (FrmContacts). Any ideas anyone? Please, Recall.
View Replies !
Recall - Automatically Create Records
I have a database with over one hundred employees in. Attached to each employee is a relationship where they can do many activities. How can I automatically create one activity record per employee at the beginning of a day and give the date field in the many part of the relationship the current days date. I assume you've got to create a recordset and do something along the line of - do until EOF docmd.acrecnew. But haven't got a clue where to start. Pease help, Recall.
View Replies !
Using Access To Create A Perpetual Schedule
I am trying to create a database to schedule customer visits. I would like to enter a beginning date and a frequency (IE every week or every two weeks) and then be able to print a schedule by entering a date range. Very similar to how MS Outlook calendar performs. Any suggestions appreciated. Thanks Chad
View Replies !
SBAXTER - Please Read
Hello SBAXTER and company, I was reading a post from a while back titled "MS Acess Security Logins" posted by pi4Paul. You sent him a sample security database. Since I just joined ASP I am not able to send you a PM with my email. If you still have it, please send it to me, or if anyone else has something similar that I can refer to while building mine, that would be great! Thanks a bunch!
View Replies !
? About SearchMultipleFields.zip Posted By Sbaxter
Hi and thanks for all the great info here! I am pretty much a newbie to Vis Basic but I am learning fast and furiously. Bear with me ok? I DL the zip file posted by sbaxter as I think that it will help me with my current problem. One question, why is there both a combo box *and* a text field for Customer, Employee, and Country? I am guessing that the text fields just didn't get deleted, but wanted to make certain that I wasn't missing anything (wouldn't be the first time ). TIA and I will be back for some more Access 101
View Replies !
Storing Calculated Fields - Example Post For SBaxter
Here is an example of what I was talking about re: private message and storing calculated fields. Any help is much appreciated. Also I received your email in regards to a sample secure database but I am getting a "Memory could not be read" error when I try to open it. Does this have anything to do with how it has been converted to 97 format or is it an error at my end? (I've been able to open other dbases from the forum). Thanks, Dearnne PS Thanks also for your help with adding to option groups.
View Replies !
Recall - Look Up Last Entry
I want to add a system of getting unique numbers into my database based on the month followed by a unique 3 digit code. For example, if it is February and this is the first record then the reference will read 02/001. Any ideas how I would go about doing this. I've set up a seperate table called Reference numbers as these reference numbers will be used on any number of forms. Cheers, Recall.
View Replies !
Recall - Tab Sheet
I've got a tab form on a sheet, with jus 2 tabs on it. I want both the tabs to span half way across the whole sheet and for the tab titles to be centralised abd in bold. I've seen VB applications with it done, but is it possible in Access? Cheers, Recall.
View Replies !
Recall - 7 Records Into 1
I've set up a DB to monitor employee hours. I have an employee table with a relationship to work done (one record = one days of work), so everyday is a new record in the work table. This is fine to monitor daily work patterns. However I need to calculate weekly work and other calculations (such as sixth and seventh shift payments, 15%payments, 25% payments etc). Is there any way that I can create a query that will give me one record for an employee that gives me start and end time for a Sunday, same for a Monday etc. In other words I want to put start and end time for a Sunday to Saturday ( 7 records) into 1 record at the end of the week? (for each employee in the DB. Any ideas? Recall.
View Replies !
Recall - Combo Box Values With VBA
How can I specify the list that appears in a combo box by programming it with VBA. I have eight unbound text boxes on a form and I want a combobox to generate its drop down based on the values in these boxes. I think I'd have to create 8 variables and take the values from these text boxes and assign to the variables. The bit I get stuck on is how to make these variables appear in the combo box list. Please help, Recall
View Replies !
Recall - Export To MS Word
I have a template fax set up in Microsoft word and want to be able to export fields from my database (in form view) to the word document. For example, I have a 'purchase order No' on the access form which I want to send to the Word document. When exported I then want the user to be prompted to save the document as a new name so they do not overwrite the original template fax. Any ideas guys, Cheers, Recall.
View Replies !
Recall - Simple Sum On Form
This is probably v. simple but is doin me head in. I've got a form based on a query containing three figures (currency). I want a total box that will add the 3 up. On the query I've created a field called Total with the following: Total:sum([Text1]+[Text2]+Text3]) When three figures are in it works fine. If one of the figures is not there it displays #Name. I could get the fields in the table to automatically display 0, but if a user deletes off the 0 I'm stuffed. Where am I going wrong? Recall.
View Replies !
Recall - Unbound Forms
I've been reading a bit on the site from users who are working with DB over the network and speed issues it brings. I've got the same problem over a Citrix network with a split DB. The speed issue comes when loading up a bound form. I've rewritten some of the code so that when a user leaves a form, instead of closing down, it simple gets hidden and things have speeded up a lot. However, the initial load of the screen on DB start up is v.slow. I'm interested in finding out how to use an unbound form ad then associate it with the data when it has loaded. Can anyone give me any tips or point me in the way of a sample DB. Cheers, Recall.
View Replies !
Recall - Linked Table DB
I've created a linked table database which is running currently at my offices over a Citrix network. We want to put the database into 2 other sites (initially), however, the drive that all the sites see is slightly different for my site than the other sites (i.e. I see it as W: but they see it as P, but physically they are the same drive. Obviously, the links to the tables would have to be changed so the other FE could see the BE. I can't do this from my site as I cannot see the drive as they see it. I don't want them going into the FE design to update the linked table manager everytime I make changes and send them a new DB. Does anyone know how (or have an example DB) to create a button on the FE that will ask the user to select the location of the BE with a file browser, for example and then update the table links. Think this is a bit of a tough one, but I'm sure someone must have done it at some point. Cheers, Recall.
View Replies !
Recall - Password * In Input Box
I want to bring up an input box for a user to enter a password, but want the characters they key to appear as *. I can do the input box bit, just the * bit I'm unsure of. Cheers, Recall.
View Replies !
Recall - Unbound Form
I've been looking at Sbaxters example unbound form. I want the form to be unbound, but I also need the form to show the autonumber straight away when they create a new record, but the data they enter into the text boxes only gets written to the DB tables when they hit the Save button. Is this possible? Also, on my forms I always have a record count (on the On_Current event) of the form. When they use the next button this changes to show 1 of 100 for example. If the form is unbound how do I get this to display how many records are in the DB or how many records have been found during a search. Cheers in advance, Recall.
View Replies !
Recall - DLookup Question
I've sussed out how to do DLookups now to find duplicates etc. What I want to do however is look for duplicates say in the primary key of a field and then return a message saying their is a duplicate (and return the company name for example) instead of just saying there is a duplicate. To explain a bit better I have companies set up with codes to recognise them (which a user keys in). If a user keys in a code already used by a company I want a message to display there is a duplicate and tell them the name of the company this is already being used for. Cheers in advance, Recall.
View Replies !
Recall - Speed Up Linked DB
I've created an Access DB on a Citrix server which is multi user so has been split and user linked tables. It runs quite slow however. At the moment I don't have time to convert it to unbound forms, so have read that one solution to speeding it up is to create a table in the back end tables to the main DB. Then use the open recordset event to keep the link between the two open. I know how to link the two, but can someone explain the open recordset part please. What do have to do? Cheers, Recall.
View Replies !
Recall - Query Count
I'm fine using the dcount function to count records in a table or query. However, I've got a problem which I can't get my head round. I've got a relatively large DB of up to 80,000 records. When someone does a search and haven't narrowed down the search criteria enough it takes a while to search through the records. I want a piece of code to search for records until the number of records found is 50. At that point it will pause seaching and tell the user '50 records found - carry on searching?'. If they select 'yes', it will continue for another 50 records, then prompt with this message again. This should continue until the user either select 'NO' and ends the search or the search finds all the records. I think I may have to use a 'for loop' with a counter going up 1 every time a record is found. But I don't really know how to increment a search by one record each time there's a match. I also don't know how to pause the search when it gets to 50, 100, 150 etc. Crossed fingers someone knows, Recall
View Replies !
Recall - Combo Box From 3 Tables
I want to create a combobox from 3 tables. The tables are like this: Table / Field TblSource / Source TblAdverts / AdRef Tbljobcentre / JobCentre I now want a combo box listing everything from these fields in the 3 tables. Can this be done through VB or will I have to create a series of queries to append etc (which I think tends to run slower than code)? I also want everything in the tbladvert table to be prefixed by PR and everything in the TblJobCentre table to be prefixed with JC. Help on the first one would be great, but even jufirst part would be a big help. Cheers, Recall.
View Replies !
Recall - Null A Text Box
I've got text box on a form that contains a text value. It is a bound form. I've put code behind the text box that runs on the 'Before Update' event to check if the figure already keyed is a duplicate. If it is then I want the text box to be cleared. I've got it to work if I use the me.undo code, but I only want the text box to be blanked and not the whole forms data. When I put in code txtAccNo = "" or txtAccNo = null then I get an error message telling me the form data cannot be saved using this method. In the table I've set this field up so AccNo is indexed and does allow duplicates, but then I check for duplicates actually on the form in question. It is not the primary key in the table. Any ideas what I can do just to blank this cell when a duplicate occurs? Cheers, Recall
View Replies !
Recall : TimeSerial Problem
I'm trying to convert minutes to time in a query and am using the following formula. It works fine for employees that have got a record of minutes, but for employees who do not have minutes on their record then #error is displayed. ShHrsFinal: IIf([shhrs]=Null,"",TimeSerial(0,[ShHrs],0)) Any ideas, Recall. PS* shhrs is as sum that is as follows: ShHrs: IIf([StartTime]<[EndTime],DateDiff("n",[StartTime],[EndTime]),1440-DateDiff("n",[EndTime],[StartTime]))
View Replies !
Recall - Find If Work Between Peiod
I am designing a database to allow a business to comply with the new Working Time Directive in March. I want to be able to check if a driver has worked any period of the hours of 00:00 and 04:00. Users will only be keying start of shift and end of shift. How can I get Access to determine if and how many of these hours were worked between 00:00 and 04:00?
View Replies !
Recall - Search Seperate Table
I want to be able to find the last value entered into a table from a form that is not based on that table. How do I go about this? What I am trying to do is produce a 'purchase order number system' that adds 1 onto the previous number, but this purchase order can be generated on many forms and for many reasons across the database. I do not want to use autonumber. Cheers, Recall.
View Replies !
Recall - Aggregate Function Error
I'm trying to do a simple sum in a query to add up 3 costs to give me an overall cost. I've put the sum in as follows: Total:sum(nz([Cost1],0)+nz([Cost2],0)+nz([Cost3],0)). But I'm coming up with an error as follows: "You tried to execute a query that does not include the specified expression 'AccountNum' as part of an aggregate function". Where am I going wrong? Cheers, Recall. Find attached an example.
View Replies !
Recall - List Box Sort Problem
In a DB I've created an unbound list box that is populated on the click of the 'Select List' command button. On the titles of the list box are invisible command buttons that sort the order the list box info is displayed. This works fine. The problem I've got is when I do a search on the form (i.e. select TPB from the Area drop down and then select 'Run Search' it populates the list box with the filtered information. If I then click on the list box titles to sort it ascending/descending, the list box becomes blank. Here is the code I'm using to sort the list box ascending / descending and filtered search criteria: Private Sub Order1_Click() Dim response As Integer response = basOrderby("clientid", "DESC") Order2.Visible = True Order2.SetFocus Order1.Visible = False End Sub this calls the basOrderby routine: Private Function basOrderby(col As String, xorder As String) As Integer Dim strSQL As String VarWhere = Null If Not IsNothing(Me.TxtClientIDSearch) Then VarWhere = "[clientid] ='" & Me.TxtClientIDSearch & "'" End If If Not IsNothing(Me.TxtAccNoSearch) Then VarWhere = (VarWhere + " AND ") & "[AccountNum] ='" & Me.TxtAccNoSearch & "'" End If If Not IsNothing(Me.TxtClientNameSearch) Then VarWhere = (VarWhere + " AND ") & "[clientname] ='" & Me.TxtClientNameSearch & "'" End If If Not IsNothing(Me.TxtDepotSearch) Then VarWhere = (VarWhere + " AND ") & "[depot] ='" & Me.TxtDepotSearch & "'" End If If Not IsNothing(Me.CmbAreaCodeSearch) Then VarWhere = (VarWhere + " AND ") & "[areacode] ='" & Me.CmbAreaCodeSearch & "'" End If Me.LstClients.RowSourceType = "Table/Query" strSQL = "SELECT ClientID, AccountNum, ClientName, Depot, AreaCode, Live " strSQL = strSQL & "FROM tblClients " strSQL = strSQL & "WHERE " & VarWhere & " ;" strSQL = strSQL & "ORDER BY " & col & " " & xorder LstClients.RowSource = strSQL LstClients.Requery End Function It seems to be going wrong at the WHERE bit of the sql statement.
View Replies !
Recall - Previous Record Lookup
I've developed a multi user DB. When a user is keying in a record I want to be able to give them the ability to click on a button and the system automatically looks at two value from the previous record they keyed. There is a text box that contains their user ID so I can use this as a reference to look up their last record (I don't want them to take other users last records). The fields are StartTime and EndTime. So I want the startTime and EndTime from their previous record to be dropped into the current record(without physically going backwards on screen). Cheers, Recall
View Replies !
Recall - Update Query Problem
I've got an employee table (TblEmp) linked to a work table (TblWork) and have created an update query that will automatically create new records for each employee. (That works fine). INSERT INTO TblWork ( EmpNo, ShiftDate ) SELECT TblEmp.EmpID, [Date] AS ShDate FROM TblEmp; How can I stop the record being created where an employee already has a record for that date? If only one employee has a record for that date then he should be skipped and all other employees have a record added. Cheers in advance.
View Replies !
Recall - BIG Time Search Problem
I've created a search on a text and date field which has been working fine for few days now. However when I've started to search on the early days in February (i.e. 01/02/2005) it is not finding the records (but they do exist). When I create a record with 13/02/2005 or higher however it does find the record. I desperately need a solution as the DB will fall down without it. The code I'm using is: If Not IsNothing(Me.TxtEmpNameSearch) Then VarWhere = (VarWhere + " AND ") & "[EmpName] ='" & Me.TxtEmpNameSearch & "'" End If If Not IsNothing(Me.TxtDateSearch) Then VarWhere = (VarWhere + " AND ") & "[Dates] =#" & Me.TxtDateSearch & "#" End If If IsNothing(DLookup("txtempno", "tblwork", VarWhere)) Then MsgBox Mes5, OKIn, Ti End Exit Sub End If Thanks, Recall
View Replies !
Recall - Multiple Text Boxes
I have 50 text boxes on a form. If any of them are ammended then I want a text box called CmdSave to become enabled. Is there any way I can do this without putting code under 50 text boxes on the change events? The form is unbound. Thanks in advance, Recall.
View Replies !
Recall Selected Items From Listbox Selection
Hi all, greate site and i have been able to solve most problems by using the search box although this problem is doing my head in...!! I have a db that records project numbers and their details. I am using a listbox to allow a user to multiselect Project Involvements Tasks(ie Documentation, Build etc) against a project number. I am able to read the selections into a separtate table with two columns which is structured as: ProjectNo - InvolvementType 123 - Testing 123 - Build 123 - Documentation 456 - Build 789 - Testing 789 - Documentation as you can see I dont have a problem getting the Itemsselected into a table... the problem that i am having is getting them out again when the record is displayed - ie marking them as itemsselected. I believe that the event would be onCurrent which would loop through this table pick up the project number and recorded invovements and mark them as selected in the listbox. if there is no invovement then the listbox would show no selections. I am using this code to read the selections in =========================== 'Records project involvements against project Public Function AddInvolvements(ctlRef As ListBox) As String On Error GoTo Err_AddInvolvements_Click Dim i As Variant Dim dbs As DAO.Database Dim rs As DAO.Recordset Dim qd As DAO.QueryDef Dim strDelete As String Set dbs = CurrentDb Set qd = dbs.QueryDefs!qInvolvement Set rs = qd.OpenRecordset 'Delete records where project number exists against an invovelment incase of involvement changes strDelete = "Delete Project_Involvement.ProjectNo " & _ "FROM Project_Involvement " & _ "WHERE (((Project_Involvement.ProjectNo)=[Forms]![Add_Project_Details]![ProjectNo]));" DoCmd.SetWarnings False DoCmd.RunSQL strDelete DoCmd.SetWarnings True For Each i In ctlRef.ItemsSelected rs.AddNew rs!InvolvementType = ctlRef.ItemData(i) rs!ProjectNo = Me.ProjectNo.Value rs.Update Next i Set rs = Nothing Set qd = Nothing Exit_AddInvolvements_Click: Exit Function Err_AddInvolvements_Click: Select Case Err.Number Case 3022 'ignore duplicate keys Resume Next Case Else MsgBox Err.Number & "-" & Err.Description Resume Exit_AddInvolvements_Click End Select End Function =================================== Any help would be much appreciated - also thanks to Pat Hartman for his excellent examples esp http://www.access-programmers.co.uk/forums/showthread.php?s=&threadid=54924 Regards Robert
View Replies !
Recall - Adding Times In Time Format
I want to calculate total hours and mins by adding a load of times (in time format) on a report. I've got the total number of minutes and converted this to hours : [txtmins]/60 Now I want to get the remaining minutes by using : [totalmins] - ([totalhours]*60) However, how do I round DOWN the [totalhours] before it goes into the above sum. I can round it, but it always seems to round up. If anyone has an easier solution let me know Recall
View Replies !
Schedule?
Hey thereI'm currently doing an ICT project for some school work, in which we all have to make access databases. My database is based around a fictional company that provide driving lessons. I've set most of the tables up including clients employees, bookings etc, but i'm wondering if its possible to implement a schedule within access?I would like to know if its possible for say if someone booked 2 hours of lesson, 2 blocks within the schedule table would be filled, or similar to a calender function, e.g. each day has 6 openings within it, and as these become booked the next day is filled.i've searched around a bit and can't really find anything but i'm very new to access so any advice would be much appreciated, or just being told that it isnt possible to implement such a schedule or calender would also be useful as then i wont be wasting time looking :PHope i've posted this in the right place, sorry if i haven't.Thanks in advance.BenJust found this website: http://www.aislebyaisle.com/access/calendartool.htmkinda similar to what i'm looking to do, just wanna know if theres anyway of doing this thats less complex? or free?
View Replies !
Staff Schedule - 'how To' Help..
Hi all, I'm relatively new to Access and would like a few pointers... I have been asked by work to create a schedule database. We would like to be able to put in dates and see who's working on that day, pull up an individual and see his/hers rota for a week. Also see if they have meetings, annual leave, sickness etc.... We want it to be a very primitive WFM tool. Is this possible and is it relatively easy? The database doesn't have to create the shifts, they will be imported from Excel.... Which leads me to believe I need to think of it differently to excel... Attached is an excel rota, which would need to be importred - but maybe I need to be think a lot differently. I know thats a big question but any help would be appreciated, or pointers to more resources... Thanks Neil
View Replies !
Schedule Next Appointment Automaticly
Good Day everyone, I am looking at setting up appointments and having Access automaticly schedule the next appointment in either 6 months or a year depending on the Vender. I've search the forum and can't find anything. For Example if their last appointment was 12-1-05 I would like access to automaticly schedule the next appoint 12-1-06. Any ideas? Thanks,
View Replies !
Advanced Employee Schedule
Hello Everyone I need to make an employee schedule in access. I am not sure if it is possible, but here are my constraints: 20 employees 5-6 different truck locations (sm1, sm2, sm3, sm4, sm5, sm6) These locations are scattered within our service area. 2 employees must meet at the same truck, (each truck has 2 employees working on it) some employees can only meet at certain locations (ex. paul can meet at either sm2 or sm3) all employees are PT so they can only work on certain days or a certain amount of days per week. (ex. paul can work up to 4 days a week and jim can work only sat and fri) I would like to make a program in access that will take all these factors into consideration. EX. if i try to schedule paul on sm4 the program will not let me do it or it will give a warning or if i try to schedule paul for 5 days it will give me a warning. It would also be great to have a counter that will show how many days each employee has left to be scheduled for, EX: if i scheduled paul for 2 days it will show that he can actually work 2 days more if i need him to. I know this might be a lot, but i also know there are so many talented people here so i am sure it is feasible. Please let me know if you know how to do this or if you could guide me through it. or if you know about a different program that can solve this please let me know Thanks in advance
View Replies !
Schedule A Task In Access
Hi i would like to know if it is possible to schedule a a task in access, at the moment i refresh all my excel report by using a button on a form in access and would like ot know if i can do this automatically
View Replies !
Schedule A Compact & Repair
I have a database that is split. We want to be able to schedule a compact & repair on the back end. Is there a way within access to schedule a compact and repair?
View Replies !
|
TRACKER
