Search results

Thanks @arnelgp Works perfectly.

Thanks Maj, I will have a deeper look. Do you think it could be modified to work the way I need for this list though? I am trying something with the code I do have that I am hoping may work, we shall see. ~Matt

@isladogs , sorry, I thought it was yours. I have just found the file I downloaded, I have attached it here. I cannot find who or where I got it from though. ~Matt

Hi Maj, I had looked at this one before, but it seems much more than I need to use for just moving items up and down. Very nice work, but far more than I need. ~Matt

Hi CJ, The way it works at the moment is that the item in position 1 cannot be moved up, and the item in the last place cannot be moved down. When I add a new item, is uses a DMAX and adds +1 to the sequence. I then use the buttons to move it up and down in the group. Works perfectly with...

Hi All, I have a code I use that I found on here, I was sure it was done by @isladogs , but I cannot find where anymore. It is a function to move items up and down in a list box by changing a sequence field using buttons for up and down. Dim varCurrentValue As Variant Dim intCurrentSort...

Image below for the finished solution. Thank you all for your help.

Thanks David, This worked, but there was a single ) missing after the & delim) = 0 I shall use this now and see if it is to the liking of the people here who make these demands. Thank you for your help. ~Matt

Hi Gasman, In this example they are, but not always. I have used the second for testing purposes here though as there are 3 different values in the list. The finished setup will use unique information from the first 3 columns in the report, but if I can get the test data working on any column...

Hi Maj, It almost works. The first selection only has the unique value, but anything thereafter lists them all. 3 of each selected, displays unique first order, 3 duplicates thereafter. 1 and 3 selected, same result as above.

Thanks Maj, I did try the instr, but it always duplicated the first selection. I shall give your code a try when I get to work. ~Matt

Hi Mark, On this occasion I cannot make this column distinct as the main column has different values. Please see below for some sample data. The information I need to pass to our customer is their order number and their part numbers. The Works Order numbers are for our own internal...

Hi Forum Minds, I have found the below code on here which works almost perfectly. Display Selection of a List Box in a Text Box Dim strSelected As String Dim varItem As Variant With Me.lstLiveWorksOrderList For Each varItem In .ItemsSelected strSelected =...

It works and looks nice enough, so I shall leave it as it is for now. ~Matt

Hi Colin, Sorry to be a pain, but do you know if there is a way of displaying the data table on the modern charts? I have had a look on your in depth page and couldn't see anything. At the moment I have done it as a subform to give the effect of being the datatable, but was wondering if it was...

Thanks Ken, This works the same as the code ChatGPT offered, but with the data we have is taking 3 times as long to open. Most of the people using this are logging in remotely and have the patience of Dr Shipman when waiting for anything to load. Sage already slows everything down massively...

Never trust AI :) I'll remove it to clean it up on my database, but leave it there on the example as it is working anyway. ~Matt

This section? runningSum = 0 currentFY = "" currentMonth = ""

Please see below for working code. This was done for me by a colleague using ChatGPT. It updates a field in a table, rather than as a query, but it does work perfectly. Sub CumulativeRunningTotalByMonthFY() Dim db As DAO.Database Dim rs As DAO.Recordset Dim...

I now have this working, kind of. I shall post the solution here later. ~Matt