Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: RonQA
  • Order by date
  1. RonQA

    Change font or theme when creating or replying to email

    I appreciate your response. The problem is I don't know for sure where I would insert the code if I had it. I what to fire the code when I hit new email or reply to an email. Thanks,
  2. RonQA

    Change font or theme when creating or replying to email

    I am not sure where to start. I need a piece of code to put in the "thisoutlooksession" that will set the font in the body of a new email or change the theme to "no theme". Any help is greatly appreciated. Thanks,
  3. RonQA

    Import Contents of XML file to List box

    Here is a piece of code I found. I adapted it to my needs and it works great. Thanks, You have to add the Reference "Microsoft XML" Private Sub Command85_Click() Dim xmldoc As MSXML2.DOMDocument Dim xmlNode As MSXML2.IXMLDOMNode Dim xmlNodeList As MSXML2.IXMLDOMNodeList Dim...
  4. RonQA

    Import Contents of XML file to List box

    I have searched everywhere and cannot find if it is possible to Import Contents of XML file to a List box. The XML file i am using only has 2 lines I want imported to the listbox. Does anyone have any ideas? Thanks,
  5. RonQA

    How to copy and paste an entire row?

    Thanks...appreciate the help.
  6. RonQA

    How to copy and paste an entire row?

    I thought I knew where you were going with that question. It still did not work. "F" is the column that I use to make sure that is the absolute last row with data. If data is there that I want the row after it. Range("F11").EntireRow.Copy objWorksheet.Cells(objWorksheet.Rows.Count...
  7. RonQA

    How to copy and paste an entire row?

    I tried the code and it copied it to the first row instead of the last empty row. I did a copy/paste with your code so I know it isn't a typo. Am I missing something else? Thanks
  8. RonQA

    How to copy and paste an entire row?

    I just cannot get this to work. I have tried so many different ways. Here is my latest attempt. I want to copy - "Range("A11").EntireRow" to the last empty row on the same sheet. "objWorksheet.Range("F65536").End(xlUp).Row" Range("A11").EntireRow.Copy r.Row Code...
  9. RonQA

    Import Xml Question

    ...Dim intFile As Integer 'File Number Dim strPath As String ' Path to file folder strPath = "C:\New OE Imports\" strFile = Dir(strPath & "*.XML") While strFile <> "" 'add files to the list intFile = intFile + 1 ReDim Preserve strFileList(1 To intFile)...
  10. RonQA

    How do you add additional data to existing data?

    Thanks for the response... What I am trying to do is to take Column "datesm" that has 20 records and that has the text "1/1/2009, 1/1/2010" in each of the records and add ", 1/1/2011" to all 20 records which would have the final result of "1/1/2009, 1/1/2010, 1/1/2011" Thanks again
  11. RonQA

    How do you add additional data to existing data?

    How do you add additional data to existing data without wiping out the original data? If I had 20 records and I had a field call datesm which was a list of date and wanted to add another date to all 20 records, what is the proper way to do it? 1/1/2009, 1/1/2010 so how would a create a query...
  12. RonQA

    Missing VBA

    When some of our different computers open my database, it strips all the VBA code from it. Does anyone know what causes it? I finally just write protected the Front-end to prevent this from happening. Thanks, Ron
  13. RonQA

    Help needed with Progressbar and file search.

    ...the bar being updated at the end of the search instead of during. For Each foundfile As String In My.Computer.FileSystem.GetFiles _ (PathDrawings, FileIO.SearchOption.SearchAllSubDirectories, TextBox1.Text & "*.pdf") ListBox1.Items.Add(foundfile) Does anyone have any ideas...
  14. RonQA

    Query with Inputbox as a recordsource -

    Here is some more detail: 1. I run a query that creates a table based on a number. 2. Run a report that fires a different query that searches the database for the new table ex. "123456_something" that query brings up a databox asking for the number. All I have to enter is "123456" and it...
  15. RonQA

    Query with Inputbox as a recordsource -

    This line is in the query which brings up a data entry box. Like [Enter Work Order] The query searches for a specific table. Thanks,
  16. RonQA

    Query with Inputbox as a recordsource -

    ...Query: ======================== SELECT MsysObjects.Name FROM MsysObjects WHERE (((MsysObjects.Name) Like [Enter Work Order] & "*") AND ((Left$([Name],1))<>"~") AND ((Left$([Name],4))<>"Msys") AND ((MsysObjects.Type)=1)) ORDER BY MsysObjects.Name; This searches for the desired table...
  17. RonQA

    Need best method to combine mutiple tables

    Thanks everyone. I was able to get something working last night. Using this format. Select [Doc_ID], [Documentation], [Code] FROM [Documentation Verification] UNION ALL SELECT [Rec_ID], [Receiving], [Code] FROM [Receiving Verification]; UNION ALL SELECT [dim_ID], [Dimensions], [Code] FROM...
  18. RonQA

    Need best method to combine mutiple tables

    i have experimented with a lot of VBA code with no results that fit the need. The latest tries are with a Union query. Trouble is I can't get it to work with more than 2 tables and then create a table fom the result. SELECT * From [table1] UNION SELECT * From [Table2]; Thanks

Part and Inventory Search

Back
Top