Search results

I am not sure why i am gettting a compile error, type Mismatch. Maybe my brain is fried and I cant see it. Dim uName As String Dim strfName As String Dim strlName As String Dim db As DAO.Database Dim rs As DAO.Database Dim iSQL As String uName = CStr(fOSUserName) If IsNull(uName) Then...

Okay, I got it thank you so much!

Its not showing it to me after several (CTRL +F5)'s :banghead: :banghead:

pr2-eugin, I think you forgot to post the code?

I did say it

Bob, I tried that too

Here is the full code eventhoough this is what is throwing the error: "SELECT tblProjects.ProjectID, tblProjects.ProjectName, tblProjects.ProjectDescription, " & _ "(tblOwner.oFirst & " " & tblOwner.oLast) AS FullName, tblProjectType.ProjectTypeDesc, " & _...

Neither one work.

I know this is easy and I have done it before, but just can't seem to wrap my head around it again. Writing the query in VBA. SELECT (tblOwner.oFirst" & " tblOwner.oLast) AS FullName FROM tblOwner Error code is: Syntax error (missing Operator) in query expression '(tblOwner.ofirst...

Well I found another orphan after Bilbo_Baggins_Esq helped me. This is the code that was causing the issue: With xWs Do Until varLoop > varRows .Rows(varLoop & ":" & varRow1).Select With Selection .Delete Shift:=xlUp End With varLoop =...

Bilbo_Baggins_Esq ~ I don't know how to manipulate the data via access. I need rows/lines deleted that are headers to the report.

Bilbo_Baggins_Esq ~ you are a genius! thank you so much!

Like this? Set xApp = New Excel.Application Set xWb = xApp.Workbooks.Open(strFile) Set xWs = xWb.Worksheets("Sheet1") xWs.Activate xApp.Visible = True 'Import the txt file into excel With xWs.QueryTables.Add(Connection:= _ "TEXT;C:\MK PHA.txt", Destination:=Range("$A$1"))...

I have narrowed it down to this but I cant figure out where the closing option should go, since Excel.EXE *32 is still in the task manager. Set xApp = New Excel.Application Set xWb = xApp.Workbooks.Open(strFile) Set xWs = xWb.Worksheets("Sheet1") xWs.Activate xApp.Visible = True 'Import the...

Thank you very much for the pointers. I was just looking at the code and thinking the same thing about the activesheet.QueryTables.add. I git that from a macro created in excel. not the best practice.

'Declare variables Dim db As DAO.Database Dim rs As DAO.Recordset Dim xApp As Excel.Application Dim xWb As Excel.Workbook Dim xWs As Excel.Worksheet Dim strFile As String Dim varRows As Variant Dim varLoop As Variant Dim varRow1 As Variant Dim strTable As String 'Location of where the file is...

Okay, i guess I am not grasping that concept. I will post my code. It is long.

Bilbo Baggins Esq ~ I have read your post but can not find where I am leaving it open\orphaned. If I post my code will you look at it?

How did you get it to close? I am having the same issue and I have the code that should work. xWb.Close xApp.Quit I have even tried: xWb.Close True xApp.Quit I am using access 2010

Not only did I have a space there I had ArrivalTime twice... i swear my brain is fried. Thank you vbaInet and Boblarson, the code works as intened! Thank you so much!