User Profile

Collapse

Profile Sidebar

Collapse
MyWaterloo
MyWaterloo
Last Activity: Jan 6 '13, 10:50 AM
Joined: Dec 13 '07
Location: Waterloo, NY
  •  
  • Time
  • Show
  • Source
Clear All
new posts

  • Thank you so much! This worked great!
    See more | Go to post

    Leave a comment:


  • MS Excel Muliple Double Sided Copies Page Numbering

    He All,

    I am not sure where to post this topic so I am sticking with the area I know and posting in Access/VBA. Sorry if this is a no no.

    I am using code to print multiple copies of the same worksheet with consecutive page numbering.

    Code:
    Sub MultiPrint()
    Dim PrintCount As Integer
    For PrintCount = 2 To 49
    ActiveSheet.PageSetup.RightFooter = "Page " & PrintCount
    ActiveWindow.SelectedSheets.PrintOut
    ...
    See more | Go to post

  • MyWaterloo
    replied to Excel help... Automate Charts
    Thanks! That works... I also found code for aligning the charts:
    Code:
    Sub AlignCharts()
      ' Jon Peltier (3/19/2008)
      ' http://peltiertech.com/WordPress/
      ' Changes MyWaterloo (3/13/2011)
    
      ' chart size - adjust as desired
      Const nRowsTall As Long = 13
      Const nColsWide As Long = 9
    
      ' chart layout - adjust as desired
      Const nChartsPerRow As Long = 3
      Const nSkipRows As
    ...
    See more | Go to post

    Leave a comment:


  • MyWaterloo
    replied to Excel help... Automate Charts
    Ok, the extra series is from the:
    Code:
    .SeriesCollection.NewSeries
    This is not needed as the chart is created with a default series that the rest of the code then defines with .Values and the .XValues.


    I would like to add another cell address to the naming code so the name is derived from column B & E.

    Current Code:
    Code:
     .SeriesCollection(1).Name = "='Sheet1'!$B$" & CStr(intCtr + 48)
    Change...
    See more | Go to post

    Leave a comment:


  • MyWaterloo
    replied to Excel help... Automate Charts
    I figured out the naming issue:
    Code:
            Dim intCtr As Integer
            Const conNUM_OF_ROWS As Integer = 2646
       
            For intCtr = 2 To conNUM_OF_ROWS Step 49
              ActiveSheet.Shapes.AddChart.Select
                With ActiveChart
                  .ChartType = xlLine
                  .SeriesCollection.NewSeries
                  .SeriesCollection(1).Values = "='Sheet1'!$D$" & CStr(intCtr)
    ...
    See more | Go to post

    Leave a comment:


  • MyWaterloo
    replied to Excel help... Automate Charts
    Wow! It worked perfect! I plugged in the code and boom! More charts than you can shake a stick at! If I could trouble you once more... How can I select the name for the charts? The Names reside in column B. I tried:
    Code:
        Dim intCtr As Integer
        Const conNUM_OF_ROWS As Integer = 2646
       
        For intCtr = 2 To conNUM_OF_ROWS Step 49
          ActiveSheet.Shapes.AddChart.Select
            With ActiveChart
    ...
    See more | Go to post

    Leave a comment:


  • MyWaterloo
    replied to Excel help... Automate Charts
    Ya... It seems like it shouldn't be too difficult: Code for chart creation; Code to move 50+ rows and create a new chart using next 50 rows; and so on...but I can't get my brain around it... or find any similar posts through an internet search that could help.
    See more | Go to post

    Leave a comment:


  • MyWaterloo
    started a topic Excel help... Automate Charts

    Excel help... Automate Charts

    Hi all. I am asking this question here because I have no idea where else to go with it. It involves VBA... but not Access. You guys have always been spot on with Access help so i thought maybe you could give me some direction or maybe tell me where to go with my question. I have an Excel question.

    I have a list of data that is updated every day and exported from another program into an excel file. This data is in long columns...
    See more | Go to post

  • I think I can better articulate what I would like to see happen. I have a maintenance database with a main form based on equipment and a subform showing all the maintenance done to the specific equipment. I am currently able to send an appointment to outlook for one record of the subform at a time by clicking a button on the main form with my send to outlook code behind it. The record is first passed to a form call frmAppointments and then to...
    See more | Go to post

    Leave a comment:


  • "When I get a chance, I'll try to Merge this Code with your Outlook Code"... Thanks. I see on line #25 is where you put "loop". I don't believe I have ever used the loop function before. I am very interested in seeing how it would work with my actual project and then hopefully from that be able to know how to use it in other areas. Thank You.
    See more | Go to post

    Leave a comment:


  • ADezii, thanks. I guess I am just not quite understanding what I am suppose to do with this code. Is it suppose to work in conjunction with the code to send an appointment to Outlook? I placed this code you gave me behind a button on the Orders form of the Northwind database, but nothing happens when I click it. Thanks for the puzzle piece I just don't know where to put it. =-)
    See more | Go to post

    Leave a comment:


  • I have a subform that has all the maintenance records on it filtered according to the Equipment item on the main form. Right now I can click a button on the main form and send the infocus maintenance record from the subform to Outlook as an appointment. How would I loop through the record set to tell Access to send all of the filtered records on the subform to Outlook? I don't know how to create a "loop".
    See more | Go to post

    Leave a comment:


  • MyWaterloo
    started a topic How to send multiple appointments to Outlook

    How to send multiple appointments to Outlook

    I am currently using this code to send an appointment to Outlook. It sends the info to a form called "frmAppointment s" and then to Outlook. This code works great to send the record that is in focus. I would like to be able to have the ability to send multiple records as appointments. How do I do more than one at a time?
    Code:
    Form_frmAppointments!ApptDate = [Form_Maintenance Subform3].[Next Maintenance]
    'Form_frmAppointments!ApptTime
    ...
    See more | Go to post

  • Thanks mshmyob, that worked great!
    See more | Go to post

    Leave a comment:


  • MyWaterloo
    started a topic text box to display combo column not key column

    text box to display combo column not key column

    I have a text field that I want to display the name that is chosen in a combo box (=[Combo12]). Unfortunately the text box is only displaying the number of the record in the key column. What do I have to do to have it show what is in column 2 of the combo box instead of column 1?
    See more | Go to post

  • Never mind. I didn't have a reference set to the Microsoft Outlook Object Library. I thought I did but guess not.
    See more | Go to post

    Leave a comment:


  • Outlook.Application "User-defined type not defined"

    Hi,

    I am currently using this code I found on the internet to send an appointment to Outlook:
    Code:
    orm_frmAppointments!ApptDate = [Form_Maintenance Subform3]![Next Maintenance]
    'Form_frmAppointments!ApptTime = Me![Sample Run Time]
    Form_frmAppointments!Appt = "BacT" & " " & Me![Combo100] & " " & "Remove from Incubator at " & Me![Sample Run Time] & "
    ...
    See more | Go to post

  • MyWaterloo
    replied to Name the output PDF using subform fields
    Ahhhh I think I see. So I was referring to the control (BacT_ID) when I wanted to be referring to the field ([BacT ID]). Access understands either one when bracketed, but could not understand the field unless it was bracketed. I guess the point is, don't use spaces!
    See more | Go to post

    Leave a comment:


  • MyWaterloo
    replied to Name the output PDF using subform fields
    Yes, I think I get where you are coming from. By using the underscored version of the field name I was referencing the form control instead of the field in the recordset. When I changed it to bracketed Access understood me to mean the actual recodset field instead of the control... correct? Also, I know spaces are a no no, and I make sure to no longer allow spaces in my projects. This project happens to be about 3yrs old and I have yet to find...
    See more | Go to post

    Leave a comment:


  • MyWaterloo
    replied to Name the output PDF using subform fields
    I keep answering my own questions. I think sometimes just typing out the problem and posting gives the answer itself.
    Code:
    Set objectlookAttach = .Attachments.Add(strFile)
    This works.
    See more | Go to post

    Leave a comment:

No activity results to display
Show More
Working...