Search results

try WHERE (Exists (Select [officerid] from[tblTimesheetsDetails] Where [tblOfficer].[officerID]=[tblTimesheetsDetails].[officerid] AND [tblTimesheetsDetails].[timesheetDate]=#01/08/2010#)=False);

Yes, so the event on the main set up like Private Sub MainButtonCode() YOUR CODE End Sub Private Sub SubButtonCode()YOUR CODE End Sub Then your events on the buttons are simply, main form MainButtonCode SubButtonCode and the sub SubButtonCode

Yes, so the event on the main set up like Private Sub MainButtonCode()

Also, my dates were in american format, check that also on yours, so the date in the sub query is actually 8th Jan, i havent reveresed them to UK.

you need a space after the FROM in the sub query

You need to take the code from each of the buttons and put them into sub routines, i.e SubRoutineMainForm, SubRoutineSubForm, then you call both of these from the main form, but just SubRoutineSubForm on the subforms button.

Timesheet date will be the field name for the date that the time sheet was entered in your table that holds details of time sheets entered. The subquery (after the WHERE) gets the details from the timesheets table when there is an officer, but there is no corresponding time sheet record AND...

or SELECT [_tbl_Staff].* FROM _tbl_Staff WHERE (((Exists (Select [Staff_ID] from[_tbl_timesheets] Where [_tbl_Staff].[ID]=[_tbl_Timesheets].[Staff_id] AND [_tbl_Timesheets].[Timesheet_Date]=#01/08/2010#))=False));

You need to use a subquey to be your criteria for the selection from the timesheets table SELECT [_tbl_Staff].id, [_tbl_Staff].E_Name FROM _tbl_Staff WHERE [_tbl_Staff].id Not In (SELECT [_tbl_Timesheets].Staff_ID FROM _tbl_Timesheets WHERE[_tbl_Timesheets].Timesheet_Date=#01/08/2010#); The...

Hi What i would do, rather than do it that way. Is i would add the record using an append query, based on the details and PK's you have and then requery the sub form.

In the past i have used something like this "Select DISTINCT 0,'(All)' as E1 FROM tbl_HR; " & _ "UNION ALL " & _ "Select Dept_ID,[Emp_Name] from tbl_HR WHERE Dept_ID=" & me.cboDept

Private Sub Form_BeforeInsert(Cancel As Integer) Dim rst As Recordset Set rst = Me.RecordsetClone If rst.RecordCount >= intRecordLimitThen Me.AllowAdditions = False Else Me.AllowAdditions = True End If End Sub In the subforms code module.

Hi Sorry, got the wrong end of the stick there. I thought you wanted to show only X records retrieved.

Instead of using the parent child linking on the main for to the sub form you could set it source SQL via VBA, and use select TOP 5, something like strSQL = "SELECT TOP " & Forms!frmOrders!TotUnits.Value & " FROM " Havent tried it in practice, but you can then set the allow additions in...

Hi, I have recently used a image combo box and a tree view control in Access, and thought that my next task would follow a combination of these two, in putting images in a list box. Reading on the internet pointed me in the direction of listviews. I have the following code, on_load in my...

Sorry, i dont understand what you are getting at

Hi, Apologies, the code i am using is as follows <CODE> Option Explicit Private WithEvents imgCbo1 As MSComctlLib.ImageCombo Public blnLoad As Boolean Private Sub Form_Load() blnLoad = True End Sub Private Sub Form_Open(Cancel As Integer) Dim imgList As New ImageList Dim ci As...

Hi I have built a project in Excel VBA using the references from the normal place. However, last weekend certain users moved on to Citrix, and now the project cant compile. Do i need to force my references to be local, or Citrix dependant on whether they are a Citrix user? If so, how do i...

Hi, I still cant get the contents of the combo to show. Can you advise?

Hi, That was the way i was doing it originally, selecting from the dropdowns at the top. I will try again the other way. Keep you posted