Recent content by essaytee

Problem rectified. It all came down to casing. Changing the various sample ChatGPT code snippets to "IgnoreCase = True" fixed the issue. There is some follow-up in the ChatGPT thread above.

Yes, the "Error_In_Code" label is local to the function or procedure. I've only specified half the issue of standardising the error handling routine. Yes, I will be addressing the other half. I also have when in the error stub, "Resume Exit_ErrSomeFunctionName" and that will be replaced...

Ok, I first went the ChapGPT route for the solution but I haven't got it working. What I want to do is replace all my error handling routines with standard code snippets. For some of my functions, across many modules, I have "On Error Goto Err_SomeFunctionName" and I have the corresponding...

Using ChatGPT I came across this solution. I haven't tried it yet but I assume it would do the trick. Dim defaultColor As Long defaultColor = ActiveWorkbook.Styles("Normal").Font.Color MsgBox "Default Font Color: " & defaultColor

Thanks, simple, why didn't I think of that.

Thanks all for the responses. As usual, I overthink things. My executive decision is to simply refer to Black as my default colour, which it is anyway. I am the one creating the spreadsheet and then distributing it. It's not the case of me tinkering with somebody else's spreadsheet.

In Access VBA when creating Excel spreadsheets, how do I extract the default font color? I have a routine where I cycle through a recordset and one particular field has one of three possible values, a positive number, zero or negative number, that are text fields, not numbers. (It's a...

Everything works, the report is saved correctly, so wasn't worried about any logic. With the messagebox appearing it did raise a doubt that something might not be right. So, if that is the case, I can remove the Application.Echo commands.

I am successfully printing a report directly to pdf via the command, DoCmd.OutputTo acOutputReport, strReport, acFormatPDF, strFile, False Everytime I run the code there is a messagebox that appears and instantly disappears, though I can't read the contents of the messagebox. This happens...

Thanks

I'm still having the same issue that the first record is being accessed twice, according to my debug window. For my particular purposes I don't require a where clause filter, but if employing this method, I'd have to first run the function to reset it back to zero and then call the query. At...

Thanks for that, yes, now I can replace my counting variable for record number with the .AbsolutePosition + 1 property.

I modified the argument list to set v = null, as follows: Function rownum(Optional v As Variant = Null) As Long Static r As Long If IsNull(v) Then r = 0 Else r = r + 1 Debug.Print "v = " & v & " --- and --- r = " & Str(r) End If rownum = r End...

I'm returning to some Access data manipulation and I've come across a situation I thought was possible, but can't figure it out. I have adopted a work-around (explained at the end), but I thought there is a less-convoluted way. I have a table that records running times of runners for each...

Update: Well, don't I feel like a complete dill. I applied the largest to smallest sort on the affected columns and the same result, rows disappear. I scrolled down many, many rows and there were the other rows, in largest to smallest order.