Recent content by cheekybuddha

@LarryE - why do you loop the FD.SelectItems when you have already set .AllowMultiSelect = False?

You haven't displayed the dialog. Your code should be more along the lines of: Dim FileName As String Dim FD As FileDialog Set FD = Application.FileDialog(msoFileDialogFilePicker) With FD .InitialFileName = 'C:\Some\Path' .Title = "Choose a file ..." If .Show Then ' <-- This line...

My statement was missing an 'if' 😖 It should have read: I looked at the code just now - it doesn't use proper subclassing (e.g. GetWindowProc() ), so my point was not relevant.

I haven't looked at the Leban's code, but it uses proper subclassing (e.g. GetWindowProc() ) then you can not have the VBA editor open while the code runs. It will always crash Access.

If you have two different versions of SQLServer being served from the same machine then surely you need to assign one to serve on a different port from the other?

There is some old code here on The Access Web but you will probably have to find update versions of the API declarations for 64bit.

No one mentioned a form! :LOL: Time for some new glasses! :geek: (or Ctrl and + to increase the scale of your browser)

Interesting. How many iterations did you require to be able to see a noticeable time difference? Also, did you perform this in VBA? I ask because, IIRC, IIf() works differently in a query than in VBA. In VBA I think both the True and False parts are evaluated, even if the condition is True...

I think your SQL is wrong. Try instead: Public Sub UpdateFieldSizeToShort(tableName As String) With CurrentDb .Execute "ALTER TABLE " & tableName & " ALTER COLUMN Umsatztext VARCHAR(255)", dbFailOnError End With End Sub

It's very hard to miss you, @theBigGreenguy :ROFLMAO:

Can we dial back a second @Gasman - how did you do the Save/Load as/from text? Like: Application.SaveAsText acForm, "frmName", "C:\path\to\file.txt" ' and Application.LoadFromText acForm, "frmName", "C:\path\to\file.txt" ?

Is that a question?

Did you delete the existing form before importing from text?

Probably more like: DoCmd.OpenForm "frmCustomerInvoice", Where:="1 = 0"

Change the form's RecordSource to: SELECT m.*, c.riskSLcode FROM TMain m INNER JOIN FriskSL c ON m.RiskCode = c.riskSLid Then set the ControlSource of your textbox to [riskSLcode]