strsql

Hi A problem that's only started happening on my spreadsheet in the last couple of months. I've got some VBA that works fine if I sit there and watch it.....it does everything it should. It finishes all of its loops and Excel stays open as it should. Whereas if I don't sit there watching for...

Hi I've found the workaround for this issue, but don't understand why it was an issue: I did all the hard work of writing the queries in Access and some of the queries involve sub-queries e.g. Pretend I wanted queries that prepared data on Goals, Assists, Wages, Corners So inside Access, the...

Hi Guys and Girls. I just have a quick question. My VBA knowledge is ok, however I am not very good at programming with SQL. I have a piece of code which works fine. It is just that it is not robust, I have created a loop with an string and open an recordset at the end of my loop I close...

Greetings I am trying to extract data from SQL Server using Excel VBA. Below is the code which errors out @ the Rs.Open StrSQL, Con Sub DbConnection() Dim Con As ADODB.Connection Dim Rs As ADODB.Recordset Dim Fld As ADODB.Field Dim StrSQL As String Dim Wb As ThisWorkbook Dim Ws As Worksheet...

Hi All, I am trying to query csv files to extract some fields and filter the records and return the resulting recordset to a new csv file. I have adopted two sets of codes by finds it difficult to accomplish the above Sub GetMyCSVData() Dim xlcon As ADODB.Connection Dim xlrs As...

I do a lot of automation between Excel and Access. Unfortunately, I’ve been switched to Excel 2016 and am now missing the “Access Developer Extensions Type Library” reference. Below is just a sample piece of code I would use that is now puking due to the missing reference. Has anyone found a...

I am a novice so I apologize if this is a dumb question. Long story short. I am trying to combine multiple records in a query. I have an ID field and a field of names of diagnoses. My goal is to have one row per ID with the diagnoses combined in one field. Everything I read on line says...

Hi, I have the below code that picks up a file based on the contents of a Excel range. However, there will be occasions where a file won't be present. On these occasions I want the code to ping an email to me to let me know. As it stands, the below is sending me 3 emails rather than 1, can...

Hi, I have the below code that picks up a file based on the contents of a Excel range. However, there will be occasions where a file won't be present. On these occasions I want the code to ping an email to me to let me know. As it stands, the below is sending me 3 emails rather than 1, can...

I broke my new user login form. I removed the uLogonCount from the tblUsers and from the below strSQL code and now whenever the New User form comes up I get the following error; Number of query values and destination fields are not the same. I also added a few columns to the tblUser table. So...

Good day everyone. Used a code for a login form and it doesn't seem to be computing whatsoever. Private Sub cmdContinue_Click() On Error GoTo ErrHandler Dim strSQL As String If Nz(Me.txtFirstName, "") = "" Then MsgBox ("First Name cannot be empty.") DoCmd.GoToControl...

Hello I know it a lot of code but im keep getting stuck on the bolded area below and I cant figure out why. I am trying to bring in new data but I keep getting an error. Can someone please assist? Option Compare Database Option Explicit Function ImportAchievers() Dim strSQL As String...

I have a sql statement that my vba queries against itself. This has been working just fine and is properly set up. Since I updates my MS Office and now have 2016 Excel I am getting a Runtime Error ODBC driver does not support the requested properties. strSQL = "SELECT DISTINCT...

I realize this is probably a long shot, but would anyone have sample VBA SQL code where you're joining tables from different servers? I've done a lot with pulling data from tables on one server, but not more. TIA For some frame of reference only, this is some sample code where I'm adding...

Excel 2016, I have an OLEDB Query linked to SQL Server to return a table. In prior versions I was able to update command text and refresh the table with the following: Dim strSQL as string strSQL = worksheets("SomeWorksheet").Range("B6") With...

Hi, I am getting the following error message and am not sure how to get rid of this. 'Run-time error - 2147467259 (80004005): Method 'CopyFromRecordset' of object range failed. The VB code is as follows: Sub GetDataFromSql() Dim conn As New ADODB.Connection Dim rs As ADODB.Recordset Dim...

Hi All, I have reperative code which I am trying to sort but can't seem to crack it. What I am trying to do is put SQL in a sub and then make it connect to a seperate excel sheet. At the minute I have to put the connect code in each module so is in about 5 times. Is there anyway to just have...