Search results

I have been working on this issue also. I created an array to hold the original text from Column(1) of the combo boxes and I've passed this to the AuditTrail function: This is the code from my form. Dim OriginalComboValues(9, 1) As Variant Private Sub Form_Current() Dim intI As Integer...

Think I've solved it - by using a crosstab query - that way I have all the expense headings as though they were separate fields. It will list all of the fields also because in the crosstab query I have it showing all the expenseTypes form the expense type lookup table and the matching records...

Hi, I'm having problems getting my head around the best way to design a table for an employees expenses. This is my current M_Expenses table: ExpenseID (PK) PayrateID ExpenseType Amount PayrateID is the foreign key to a table that holds information about their rates, evertime etc. My idea...

I think a key part of what you said is also about resources. In this case, there is only me and we had a few temps to data entry for a time! I guess if I had spent more time in the design phase it would have been easier to estimate how long it would all take. The other resource that is...

Thanks for the suggestions everyone. I will have a look for that book. I did spend some time in the design phase planning it all right. However the project has evolved as I've gotten a better understanding of the current paper based system. For instance I found out that a person can be moved...

Hi everyone, This post will probally turn into a rant about my workplace more than anything else. I'm having lots of problems trying to estimate how long it will take to do parts of my project. The project has to do with payroll - there are about 450 employees all over the world - some being...

Many thanks for the help - I got that working! myPath = "C:\Monthly Employees\" myName = Dir(myPath, vbDirectory) ' Retrieve the first entry. Do While myName <> "" ' Start the loop. ' Ignore the current directory and the encompassing directory. If myName <> "." And...

Hi, I have a folder for each of 80 employees. The folder name is made up of the employees name and employee number e.g. Aldea, Robert 34 In each folder are timesheet files for that employee. Basically I need the code to find the correct employee folder and list the files in it. I have seen...

Got it working OK - should have thought of this. I changed the parameter in calWeeklyPay to [Forms]![frmStartup]![txtDate] instead of [Weekend]. The fact that I had a query based on other queries was confusing me. I also needed to delete Weekend from the parameter list (On menu bar in design...

By the way here is the SQL of the query SELECT calWeeklyPay.EmployeeNum, calWeeklyPay.CandPostDetailsID, calWeeklyPay.NH_Pay, calWeeklyPay.OT1_Pay, calWeeklyPay.OT2_Pay, calWeeklyPay.GrossPay FROM calWeeklyPay WHERE (((calWeeklyPay.EndDate)>=[Weekending]-6 Or (calWeeklyPay.EndDate) Is Null) AND...

Hi Rich, Thanks for that but I'm still not sure how I should be passing this information to the report. Here is my code now: [CODE] DoCmd.OpenReport "Pay Report", acPreview, , "Weekend =#" & CDate(Format(txtDate.Value, "long date")) & "#"[CODE] When you press the button to open the report...

Does anyone have any ideas? I don't think that I can use do it by using a where condition in the DoCmd.OpenReport line because my query uses 3 other queries. The query is called "UnionPayCyclesAll" and unions 3 queries that calculate the weekly pay, the bi-weekly and the monthly pay. The...

Hi, Here is my code: WeekEndDate = CDate(Format(InputBox("Please enter the weekend date.", "Enter weekend date"), "long date")) Set qdefPayReport = CurrentDb.QueryDefs("UnionPayCyclesAll") qdefPayReport.Parameters("Weekend") = WeekEndDate Set rsPayreport =...

Thanks a million for that gemma - it worked perfectly! I spent ages yesterday trying to sort that - thank you.

Hi, I have an unbound form for importing employee hours from a spreadsheet. There is an unbound textbox on it so that the user can enter the week ending date. The user enters the date and clicks on the Import button. An sql statement is executed to add the employee numbers, hours worked etc...

Thanks so much for that - changing my default printer to Microsoft Image Viewer did the trick - it was painfully slow before but its fine now.

Hi, I'm building a database for HR in my company - the idea is to produce a report to show what is being paid out by payroll. There are 3 pay cycles - weekly, bi-weekly and monthly. The report will be grouped by the into these 3 categories. I have created the report that does this for the...

Access determines whether the relationship is one-to-one or one-to-many depending on the two fields you are joining. If the key in the related table is also a primary key or it is indexed as a unique key (i.e. indexed is set to yes with no dublicates) the relationship is one-to-one.

What do you want to do with the new value? Assuming you want to put it in a textbox: txtNewField = me.cboMyComboBox.value & RefNumber

You don't have to refer to the worksheets by name: Dim appExcel As Excel.Application Dim wk As Excel.Workbook Dim xlSheet As Excel.Worksheet Set appExcel = New Excel.Application theFile= "C:folder\thefile.xls" With appExcel Set wk = .Workbooks.Open(theFile) Set...