Search results for query: *

Fixed 1st item - put a case select (referring to the securitylevel) on the On Open of the form, which enables/disables the toggle buttons. Now for the 2nd item .....

I have an option group with 4 toggle buttons on a form, which the user selects personnel type to show their respective records on a tabbed form. Each toggle button on the After Update, shows their respective list box listing the personnel (either Salary, Hourly, All or Terminated). When an...

Try the following code: Private Sub Form_BeforeInsert(Cancel As Integer) On Error GoTo Form_BeforeInsert_Err ' Set Purchase Order No to "Max" + 1 Forms!PurchaseOrder!PurchaseOrderNo = DMax("[PurchaseOrderNo]", "Purchasing") + 1 If...

Here's my code for a tab control form, allowing for 12 buttons for the alphabet and 1 button that shows all. Modify it to your field names: Private Sub EmployeeNameFilters_TabChange(ByVal nNewTab As Integer, ByVal nOldTab As Integer) nCount = nNewTab Select Case (nNewTab) Case...

Dear Bob: Sounds exactly like what I want to do - I will try it out tomorrow and get back to you. If it works, it will certainly allow me to do away with a number of forms. Again, many thanks. Carol

I have a number of different reports each asking for certain information via parameters set up within different forms. What I would like to know, is, can one form handle all the queries for a number of reports, utilizing the visible of certain fields l and if so, how can this be called on via...

Thanks Steve - Works perfect now. Carol

Steve: There is no subreport. The first textbox is AgreementStartYear and the control source reads: =InputBox("Form No. HRF-2.01 - Please insert Calendar Year) The second textbox is Agreement EndYear and is after a page break, again in the detail section. Funny thing is that if both...

Thanks for the reply Steve. One minor problem I neglected to tell you - The second field to be updated is on the 2nd page, which is where I think the problem is. Any other thoughts. Carol

I have a report that asks the user to state a year via a input box. Everything is fine. On the report, this year must be displayed in another area of the report. Is there anyway, that this field - after update via the input box can copy the results and place the year in the other field...

I have a query which has a DateTerminated field (date format) and I would like to restrict the records to show all employees that are not terminated before a certain time. Right now if I put "Is Null" in the criteria line, it gives all employees who are not terminated. If I combine...

Thank you Coco86 - Works great now!!!!

I have the following set up in a query to determine the Years of Service of Employees: YearsService: DateDiff("y",[YearHired],[Year]) [Year] contains the years 2000 through to 2005. This query will automate the vacation allowance of each employee. Everything calculates correctly...

Thanks Steve 101 - your suggestion worked. Now the only problem is that it is only populating the form with the last record. I wanted all the records to populate. Maybe I don't have my loop set up correctly. Here is my code: Private Sub Employee_AfterUpdate() ctYear1.ClearDays...

I have the following code: Private Sub Employee_AfterUpdate() ctYear1.ClearDays Dim db As DAO.Database Dim qdf As DAO.QueryDef Dim prm As DAO.Parameter Dim rst As DAO.Recordset Dim Image As String Set db = CurrentDb Set qdf =...

I did get it to work by setting a delete before the addnew - See below: Set rst = qdf.OpenRecordset(dbOpenDynaset).Clone If rst.RecordCount > 0 Then rst.MoveFirst Do While Not rst.EOF rst.Delete rst.MoveNext Loop End If I have...

I have a query - see coding below that saves not only new records, but also the existing records, which results in duplicate entries to the underlying table. Is there a way that I can show the existing entries, but only save the new entries. Private Sub Save_Click() Dim cKeyID As Long...

Using the following code to populate with unique records, but I am receiving a Compile Error - Argument not Optional at the SQLOutput line, with the following code: Private Sub Employee_AfterUpdate() Dim dbs As Database Dim qdfdef As QueryDef Dim qdfTemp As QueryDef Dim rst...

I have an ActiveX Calendar (ctCalendar1) on a form - both unbound which holds text and images. I have modified this calendar to be a personnel attendance calendar, in which I have a combo box of the employees and I would like to select 1 employee and have just those records pertaining to that...