Search results

The compiler error only occurs if the function is declared with a variant return. (see #13) The compiler does not complain if the function is declared with a variant return. Private Sub Form_Open(Cancel As Integer) SetTestMode Me End Sub Public Function SetTestMode() As Variant MsgBox...

To be on the safe side, a question of understanding: What do you expect from Form.RecordsetClone? If you expect a copy of the data, RecordsetClone is not the method you are looking for. ;)

dim cnn as adodb.Connection set cnn = CurrentProject.Connection cnn.execute ... It works with adodb.

Try ADODB.Connection.Execute CurrentProject.Connection.Execute "CREATE TABLE TEvents " _ & "(EventDate DATETIME, Name CHAR WITH COMP)" or CurrentProject.Connection.Execute "CREATE TABLE TEvents " _ & "(EventDate DATETIME, Name...

I see AI (specifically ChatGPT and GitHub CoPilot) as tools that help me complete routine programming tasks faster. It doesn't do the thinking for me, but CoPilot makes pretty good suggestions about what I need next when writing code - not complete methods - but if you use good names that...

This does not appear to be an exception: https://www.devhut.net/another-day-another-deleted-feedback-portal-suggestion/

.TestCbo.RowSource = "Op-A,Op-B,Op-C" Which list separator is set in Windows (regional settings)?

I only see one line where the date function is used. Simple test to see if there is a problem with Date: Msgbox "Current date: " & Date Is QuoteRequestDate an AccessField or a Control/TextBox? If you change the data source dynamically, you could try Me!QuoteRequestDate instead of...

Note: (But it doesn't fit the initial topic - just a suggestion) There is a special standard for barcodes (or QR codes) that supports this functionality for different informations: GS1 see: https://www.gs1.org/standards/barcodes GS1 application identifiers: https://ref.gs1.org/ai/ Example...

What is the data type of the bit data field in the linked table?

Is there perhaps another Excel instance running in the background with this workbook?

Does the code work with a manually created new empty Excel file? You may see a message if you make the application visible before opening it. Set xlWBk = ApXL.Workbooks.Open(strPath) ApXL.Visible = True => ApXL.Visible = True Set xlWBk = ApXL.Workbooks.Open(strPath)

Product of records = Exp(Sum(Log(x))) ;-)

I was of the same opinion until I realized that the test was running too fast (with rs.movelast). Then I inserted a Debug.Print into a function and saw that nothing was output via Debug.Print.

If something is slower in a test, that is not necessarily a reason to use it.

I also prefer to work without VBA in SQL. The speed of execution (of the select part) is not an argument in this case. ;)

Opening the query is not enough, otherwise the expressions will not be calculated. The functions were not called by calling rs.movelast. (Rs.movelast is good for testing the where condition, grouping, etc.) Of course, it also takes time to run through the data records. However, this is not...

I opened a recordset in VBA and evaluated a calculated field of a query. Of course, I had to scroll through the records in VBA using a loop. How else can you measure the time?

I am now testing mid/instr in a VBA function, mid/Instr directly in SQL and Regex in a VBA function with 65000 data records. Each value was read from the column in a loop over the recordset. Result: mid/instr + VBA function: ~1.8 sec mid/instr in SQL: ~3.8 sec .. why? Regex: ~2.7 sec

RexExp: Interesting question: Was your test with a static RegExp instance or with instantiation per function call?