Search results

Examples? You must be kidding... Here is some code that at least is a good start, but needs expansion... Function IsFilePathNotValid(FilePath As String) As Byte ' formats ' <=255 chars ' split at \ ' each elemnt ' not null apart than first ' none of these chars '...

Valid is that it CAN be used to create a file, whereas Exists is that it is currently extant. Existing is easy therefore. What is difficult ir seems is Valid. I want the user to be able to enter ANY valid path name, with a drive or a UNC or just the default and then the rest of the path.

Hi, Please don't laugh! Given a string entered by a user how can I verify whether the path is a valid one. NOT that it exists or not, but is the syntax correct and idealy that the drive or UNC path exist. I have seach the web and even asked CHATGP4 but all 'solutions' just check if it exists...

Interesting if I didn't know all that. I wanted a list of Attributes not a disciption of attributes in general...

Don't worry found a list:- https://vbaplanet.com/attributes.php

Hi, Does anyone out there have a (complete) list of the possible Attribute statements and what they all mean? Cheers Martin

DOH! Min and max solve it. I am not having a good day!! Many thanks guys Martin

Hi, Thanks. The record is indeed the first in the source table. I thought that first referred to the order in the query! That makes it rather hard to get at the items I want,,,, Guess it down to write it myself in code - bother. Thanks again for the info. Martin

Hi people, I am sure I am being massively stupid but I have a problem with a very simple (testing only) query. The query: SELECT [Recipes plus category summary].[Recipe ID], [Recipes plus category summary].Expr1 FROM [Recipes plus category summary] ORDER BY [Recipes plus category...

VBA, Access Forms, 2019 Hi, I have my doubts as to the solvablity of this one. I have a form with many (too many most would say) sub-forms each displaying a potentially large JPG. Its intended to be a page of thumbnails that will be resizeable. Problem With NO resize events anywhere when I...

Hi gemma-the-husky, Just to let you know I tried the text box idea but when locked and not enabled the mouse events don't fire (of course, its not enabled) so that ones out too.

Hi isladogs, I know the documentation says App.echo=false stops ALL screen painting but it does not! Changing the background colour of a label behind an image causes the image to repaint/reload (not sure which) and this is visible even with echo off!!! All I need is a way to turn painting off...

Anyone any idea why turning off echo and painting doesn't work - anyone any work around?

Thanks for the links. Will have a good old read.... Cheers

Sorry - read the description. The label is there to highlight which picture (in an array of thumbs) you are hovering over - like file explorer does!!!

Hi, VBA Access 2019 I want a set of thumbnails displayed with text underneath and for the one under the mouse to be highlighted. I have an unassociated label (I have tried a text box etc with no change) which holds the text and I change the background colour using mouse move etc. Over the top...

Found a solution. Yes you can change columnwidths in code the problem was to find the values to use. I eventually found that a Form's InsideWidth always returns the expanded width whilst a Form's Width returns the design width. So a simple ratio can be used to change the column widths of a list...

Hi, I can't seem to find any help on this issue on the net. I have a multi-column listbox and have set horizontal anchor to both. The listbox is widened but the columns stay the same width. Accessing the width of the listbox at run time only returns the designed width not the current actual...

When I say the parameters clause does not work I should have explained it fully. I have tried making the query a parameter query and then used the commented line to set the parameter. The recordset's sort was not used in this case. When that failed I removed the parameter clause from the query...

For what its worth the code is:- Private Sub Sort_By_List_Click() Dim wQueryDef As DAO.QueryDef Dim wRecordSet As DAO.Recordset Set wQueryDef = CodeDb.QueryDefs("aQuery") ' wQueryDef.Parameters("sortByClause") = Me.Sort_By_List Set wRecordSet = wQueryDef.OpenRecordset...