Recent content by kyprogrammer

  1. K

    ActiveCell.Offset(, 1).Resize(1, 100).Select Does not work unless stepping through

    I have tried that it throws the error at the line and putting Xl.quit doesn't have a chance to run ActiveCell.Offset(, 1).Resize(1, 100).Select
  2. K

    ActiveCell.Offset(, 1).Resize(1, 100).Select Does not work unless stepping through

    Hey I understand! Yea I got what I needed to work finally. I am still having trouble with the every other time it runs it errors out issue. Trying to sift through the internet for a solution on that one.
  3. K

    ActiveCell.Offset(, 1).Resize(1, 100).Select Does not work unless stepping through

    OK shew had to grab a mtn dew then it hit me myCol = 9 For j = 1 To 100 myVals(j) = Cells(myRow, myCol) myCol = myCol + 1 Next
  4. K

    ActiveCell.Offset(, 1).Resize(1, 100).Select Does not work unless stepping through

    You're probably right on that one. Now do you have any suggestion on how to add those selected cells to an array?
  5. K

    ActiveCell.Offset(, 1).Resize(1, 100).Select Does not work unless stepping through

    Sure does. It's crazy! Sometimes it works every other run.
  6. K

    ActiveCell.Offset(, 1).Resize(1, 100).Select Does not work unless stepping through

    when I compile the file there is no error. However when the code is ran for the second time or later it stops at ActiveCell.Offset(, 1).Resize(1, 100).Select
  7. K

    ActiveCell.Offset(, 1).Resize(1, 100).Select Does not work unless stepping through

    So I tried as you suggested. It still does the run-time error after the first time it's ran. I also took out the last set to nothing statements.
  8. K

    ActiveCell.Offset(, 1).Resize(1, 100).Select Does not work unless stepping through

    So, I have been stuck on this code for a few hours now. I know it's something simple and if I had a vacation and come back I would figure it out and end up smacking my head on my desk. However, the crux of the module is to open one excel file from an access database find a value and select the...
  9. K

    Refresher - How to get SQL to find data from an access form

    This might work. Maybe my brain is coming back online. ;) Public Sub LoadmyTechVals2() Dim mySQL As String Dim myID As Integer myID = [Forms]![QC_ASSY_Check_Main_frm]![txt_PartID] mySQL = "SELECT ASSY_QC_Check_Info.ID, ASSY_QC_Check_Info.Part_ID, ASSY_QC_Check_Info.Check_Point...
  10. K

    Refresher - How to get SQL to find data from an access form

    So in a nutshell my brain is fried. I need help I am getting a too few parameters error when my set rs = db.OpenRecordset(mySQL) is compiled Here is the mySQL variable mySQL = "SELECT ASSY_QC_Check_Info.ID, ASSY_QC_Check_Info.Part_ID, ASSY_QC_Check_Info.Check_Point...
  11. K

    Try To Execute String as VBA

    This worked! Thank you!
  12. K

    Try To Execute String as VBA

    I name my forms differently than the list you have. If I did it that way it would still say it couldn't find the "name".
  13. K

    Try To Execute String as VBA

    I don't think it's that easy. I want my vba code to be dynamic. Where it changes the text field's number by using i and cycling through the record count I have. so in essence if there are 17 records it will unhide the first 17 fields.
  14. K

    Try To Execute String as VBA

    Hey All, I know I have read that this may not be possible but I wanted to submit this anyways. I have a module that detects a count of records in a table fitting a criteria. It then concatenates a string including the number so that it adds this string to a variable. FYI I am using this in MS...
Back
Top Bottom