Recent content by miacino

  1. M

    Solved VBA access to outlook email with table: aligning table cells

    Thanks for your help! It solved the vertical bullet problem, but when wrapping the text it didn't indent :(. I think I found the solution below. :)
  2. M

    Solved VBA access to outlook email with table: aligning table cells

    Thank you so much! That did it! :)
  3. M

    Solved VBA access to outlook email with table: aligning table cells

    Hi! I am pulling some data from Access to send as table (table without borders). Private Sub Command71_Click() Dim strQry As String Dim aHead(1 To 2) As String Dim aRow(1 To 2) As String Dim aBody() As String Dim lCnt As Long Dim rst Dim strEmailto As String...
  4. M

    Solved Saving Query to Excel and Naming Worksheet

    Yes, good catch. You are correct
  5. M

    Solved Saving Query to Excel and Naming Worksheet

    Thank you both! That did it! Private Sub Command146_Click() Set dbs = CurrentDb Set rsQuery = dbs.OpenRecordset("Totals by Practice") Set excelapp = CreateObject("Excel.application", "") Dim strSheetName As String strSheetName = Format([attribution month], "mmm-yyyy")...
  6. M

    Solved Saving Query to Excel and Naming Worksheet

    I'm sorry - this is a little over my head. Can you help with what you mean? Or give me an example? Thanks Gasman!
  7. M

    Solved Saving Query to Excel and Naming Worksheet

    That seems to be OK - it works if I put in a name, i.e, targetworkbook.Worksheets.Add.Name = "New Sheet Name" It is not liking targetworkbook.Worksheets.Add.Name = [attribution month]
  8. M

    Solved Saving Query to Excel and Naming Worksheet

    I'm trying to save a query to excel, which I am able to do just fine. I'd like to assign a new tab (worksheet) to the excel sheet. Got that as well. Where I'm struggling is trying to NAME the excel tab/worksheet the name of a field on the form I am running the code on. So if in my form the...
  9. M

    Create VBA for opening and replacing range of cells in Excel Worksheet

    Thank you David! I tried the above. I doesn't seem to like: If .Range("I3:I500").Replace("CHL", "", xlPart, xlByColumns, False)
  10. M

    Create VBA for opening and replacing range of cells in Excel Worksheet

    Thank you David! I tried the above. I doesn't seem to like: If .Range("I3:I500").Replace("CHL", "", xlPart, xlByColumns, False)
  11. M

    Create VBA for opening and replacing range of cells in Excel Worksheet

    So I am taking data from a query "CHL" and pasting it into an Excel file. I got that to work fine. I would also like to then in Column I - remove the wording "CHL" from any cells in that range. (my code in bold below) I'm very new with VBA, so I'm sure I'm missing something obvious... but I...
  12. M

    Formatting text in field as upper AND lower as typed

    I have a standard text field in a form. When I type the text, it automatically converts it to ProperCase. (I.e., JRoss becomes Jross.) I know how to format to all upper or lower case, however, I can't for the life of me figure out how to have it read exactly as typed! Thoughts? Michele
  13. M

    Some database functions not working depending on which computer

    Why would some command buttons work on my computer, but not on another on a shared network drive? Command button to open report (written in VBA), and the "Not On List" function works fine on mine, but not on my colleagues. We had IT re-install Office Suite on her computer and still no change...
  14. M

    Updating a field in parent form from sub-form

    Ahhhhh... thank you DB guy!
  15. M

    Updating a field in parent form from sub-form

    I am trying to update the background color of a field in my sub-form's parent form. ------------- Private Sub Combo23_AfterUpdate() If Me![Status] = "Pending: Waiting for Authorization" Then Me.Parent.OverallStatus.BackColor = QBColor(6) End If End Sub ---------------- It works by...
Top Bottom