Search results for query: *

Thanks Andrzejek and SBertHold for pointing me in the right direction. From seraches on the internet I found one that worked and that was to select an earlier version of the Microsoft Active X Data Objects Library. I did this and all appears to be working well. Thanks again I sincerely...

Thanks again for your reply. I will try your suggestion. Hopefully I can find a solution. One positive thing, the code works. Now have to find out why is fails on my computeer. I sincerely appreciate your time in trying to help.

Thank you Andrzejek for your reply. Sorry for the delay, been in meetings all day. The code gives the error at the following line: wdApp.Documents.Open FileName:=strXLFilePath, _ ConfirmConversions:=False, _ ReadOnly:=False, _ AddToRecentFiles:=False, _ PasswordDocument:="", _...

...Sub ExceltoWord(strXlTbl As String) Dim strXLFilePath As String strXLFilePath = "C:\PCARSS_v1.0\OutputData\" & strXlTbl '*** Open file in WORD and replace tab delimeter with | Set wdApp = New Word.Application wdApp.Visible = False wdApp.Documents.Open...

Thank you very much for the reply. This seems to work OK. If I need more help I will be back. I appreciate your assistance.

Relative newbie here with a problem. I have tried searching for a similar problem but seem to have had no luck. My problem is I have an Excel Worksheet with a macro that cycles through a colum and assigns the value of a cell that matches a value from elsewhere in the worksheet and stores it in...

Thanks for pointing me in the right direction. Hell to not know where you are at! I do apologize

Relative newbie here with a problem. I have tried searching for a similar problem but seem to have had no luck. My problem is I have an Excel Worksheet with a macro that cycles through a colum and assigns the value of a cell that matches a value from elsewhere in the worksheet and stores it in...

Hi wangdong, Thanks for taking the time to try and help. The values for strTBL1 and strTBL2 are taken from a list of tables names in a different segment of the program and fed into the sub routine where they are used to build a working table (defined by strTBL1). The create table (strTBL1)...

Hi genomon, Thank you for the reply. Here is the connection string. '*** Open connection to PDOORS.mdb Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\PDOORS\Database\PDOORS.mdb;" & _ "User Id=admin;" & _...

...in vb or ado that will allow immediate use of the new table? Here is the portion of code that fails: Set rs = New ADODB.Recordset rs.Open "SELECT * FROM Default_LineItemLayout;", cn, _ adOpenDynamic, adLockPessimistic strSQL = "INSERT INTO " & strTBL1 & " " strSQL = strSQL & "( [Record...

Hi HarleyQuinn, Thank you very much. That did exactly what we wanted. Once again you guys bailed us newbies out. Sorry for the delay in reply, but was out of town Friday and did not get to my computer until this A.M. Once again, thank you very much. BEF

...thought, but I believe we have understated what we are trying to accomplish. Let me try again. The combo box (cboSelIPT) has a Row Source: SELECT * FROM TMP_tblIPT ORDER BY [IPT]; The list box (lstList) has a Row Source: SELECT [ID_NO], [ASSGN_IPT], [POS_NO], [NAME], [FIRST] FROM...

Hi guys, Newbie back again with a question. We have a form which contains a combo box and a list box. Our objective is to populate the list box based on the selection from the combo box. One of the selections of the combo box is "(All)". We get the desired results if we select any single...

Thanks to all of you for your responses and help. It is greatly appreciated. ADoozer - a special thanks for the code reference it did spark the thought process and helped get to a solution. fredericofonseca - thanks for your advice. I apologize for my ignorance. I hope to learn soon. I did...

Hi bjd4jc, Thank you for your quick reply. As I said I am new to all of this. Is there a place I can go to that will provide me the syntax to do this. The problem I have is I must open a total of 413 Excel files, extract some information from differing areas of each spreadsheet. This...

Hi everyone, Another newbie question. Is there a way to open a list of excel files, copy some data, close the excel file and loop to the next without having to close the excel application? The data is located in cells that are in various locations on the spreadsheet. Please, excuse me, I am...

...strCriteria = "[Last_Name] =" & strSender Set dbs = CurrentDb() Set rst = dbs.OpenRecordset("tblSENDER", dbOpenDynaset) '*** Search table for Sender rst.FindNext strCriteria '*** If not present ask Sender to input data If rst.NoMatch Then Dim Msg, Style, Title...

hi bboffin, Thank you for the reply. I am brand new to ado and have been given an exercise that needs to be completed quickly. The person who used to do this has left us and I am really lost. I will try your suggestion and hope that it helps. Thank you again for taking the time to reply. EAF

...String '======================================================================= Public Sub ConnectDBS() Dim db_file As String '*** Find the application path app_path = App.Path If Right$(app_path, 1) <> "\" Then app_path = app_path & "\" '*** Open connection to...