Search results

Rather embarrassingly, the following works perfectly: Private Sub tBlade_AfterUpdate() Me.test.SetFocus testresults DoCmd.GoToRecord , , acLast DoCmd.GoToRecord , , acPrevious, 14 End Sub Many thanks for all the suggestions.

I cannot get VBA to recognise the recalc method, but logically this will only recalculate fields, I am loading rows of data and my change to the main-form may bring in more entries which recalc cannot do? I am not sure how to define a specific record and then reference how to go to it, I seem...

I am trying to open a continuous sub-form from a query that interacts with items on the main-form, hence when I change something on the main-form I need to re-load the sub-form. This may seem painful and inefficient but is necessary for the overall function. I am setting a record key...

Yes, that is the point. I am doing a major action query and the requery method does this perfectly and as you say resets it to record one, I would like to then move it to the fifteenth from last as per my load event.

Hi, I have a sub-form with a load event as follows: Private Sub Form_Load() testresults DoCmd.GoToRecord , , acLast DoCmd.GoToRecord , , acPrevious, 14 End Sub This runs a complex query of data (in a public module) and loads the sub-form as a continuous form with the last fifteen records...

It is normally because you are still in the record and it hasn't saved yet. One easy check is to put a button on the form that requeries the data, this will confirm this.

If you allow data edits in the properties of the sub form you can edit them without problem.

[CODE]DoCmd.RunSQL "INSERT INTO tblQuoteCost ( Quote, Flight, Total,) " & vbCrLf & _ "SELECT [Forms]![frmQuote]!

Many thanks for that, it was the first thing I tried yesterday and I had tried every possible variation thereafter on the assumption that it didn't work. Somebody confirming that it was correct made me look a bit further and I found it was being removed later in the code for a different...

I have a simple piece of SQL which changes something when something else starts with PQ: DoCmd.RunSQL "UPDATE LogFile SET LogFile.Field3 = Replace([LogFile]![Field3],""AGB"",""4GB"") " & vbCrLf & _ "WHERE (((LogFile.Field3) Like ""AGB*"") AND ((LogFile.Field8) Like ""PQ*""));" I want to change...

You probably have saved it properly now, switching from design view to form view doesn't necessarily do this.

Hi CJ, Many thanks for this, works perfectly, I just need to work out why now (for my personal education).

I think this is where I am missing something, attached is the original with the table and QSum query. If I try to create a query as follows, it refuses to save due to the Between issue.

It may just be me being thick! I have also attached a mock-up.

Many thanks for this CJ but I am getting an error: Between operator without And in query expression..............

The original query does this anyway and produces a set of records such as the following: 2018 01 125.00 2018 02 700.00 2018 03 420.00 My problem is working out how to average the last twelve values from this and also how to avoid an error when there are not enough values as below...

I have a query which gives me monthly figures, what I want to do is get a running annual average. SELECT Sum(tblOrders.Value) AS SumOfValue, Format([tblOrders]![Date],"yyyy mm") AS Expr1 FROM tblOrders GROUP BY Format([tblOrders]![Date],"yyyy mm") ORDER BY Format([tblOrders]![Date],"yyyy mm")...

Well, thanks PBaldy, I did similar but added the correct seconds rather than minutes as follows: BETWEEN Forms!frmMain!tStartDate And DateAdd('s',86399, Forms!frmMain!tEndDate) All seems to work perfectly and the loss of a single second can't matter (?) as if you add it on it is 00:00 on the...

Odd one here, I have a table with a date and time stored as a General Date. I am importing data from text files where old ones have just a date so it comes in as 01/01/2018 00:00 and new ones with a time so it is imported as 01/01/2018 15:20. If I want to query a date range of old data I have...

Thanks to Banana in 2006.