Recent content by nick1408

Thanks again mate. It has taken a bit longer than expected due to other commitments. So far I have done as per bold above.

Thanks mate - I'll work on that a bit later today and report back

Thanks pbaldy. I get Error 3709 with that line. I can't see how it is a connection error though. I've uploaded my DB again. Issue is on the Courses Completed form.

Apologies for the late reply: Me.FilterOn = False On Error GoTo Proc_Error Debug.Print Me.filterCombo If IsNull(Me.filterCombo) Then Me.[Completed Courses Subform].Form.Filter = "" Me.[Completed Courses Subform].Form.FilterOn = False Else Me.[Completed Courses_Subform].Form.Filter =...

Well you have gotten me one step closer! The VBA works without getting runtime errors but the filter returns nothing. When I try and manually filter I get a 'Type mismatch or expression' error. I don't understand why I am getting this as I am filtering for text in both the VBA (no error here)...

Cool. Is there an example somewhere I could follow?

I like the idea. I already have a subform with the data (Completed Courses subform). Would I be able to do the same sort of thing with a subform?

Runtime 3075. I couldn't find what was causing this error. I feel it is something in the way I set everything up.

Hi Guys, I am tryingto get a split form to filter from a drop down and have tried various ways to get it to work but just cannot seem to work out what I'm doing wrong. The issue is on the form called 'Courses Completed'. I get a VBA error. I have done some extensive Googling but whatever I...

I'm using the following code to try and get an unbound combo to filter a split form: Private Sub filterCombo_AfterUpdate() Me.FilterOn = False Dim strFilter As String strFilter = Me.filterCombo.Value Debug.Print Me.filterCombo Debug.Print Me.FilterOn, "[Course Name] = " & strFilter & ""...

Hi Ridders, Thanks for the help. The first bit is fine as I only want Excel to close if it is already open. I don't need to open it then close it again. I think something along the lines of If xl = nothing then This isn't correct obviously, an IF statement interrogating while Excel is...

Hi Guys, I've been getting some help on this code from Stack Overflow but work doesn't let me acces that site. My code is as follows: Public Sub CloseAllExcel(Close1 As Boolean) 'On Error GoTo handler Dim xl As Excel.Application Dim wb As Excel.Workbook Dim strPath As String...

Hopefully a nice, easy one: Private Sub Toggle183_Click() Do.Cmd.OpenTable ("Baseline") Do.Cmd.GoToRecord actable, "Baseline", acNewRec Table![Baseline]![Select Baseline Month] = Forms![Baseline Hours]!newRecordName DoCmd.Close actable, "Baseline', acSaveYes Me.newRecordName = "" End Sub...

I have had some help building the following query: SELECT [RICT Weekly Baseline].[Week Ending], [Open NPS Tasks].[31 date], Sum([Open NPS Tasks].[Total Effort]) AS [SumOfTotal Effort] FROM [Open NPS Tasks], [RICT Weekly Baseline] GROUP BY [RICT Weekly Baseline].[Week Ending], [Open NPS...

So if I set duplicates to No and only allow the user to enter a date and not a time I should be fine then. Thanks!