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 dencom on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Recent content by jw45

  1. jw45

    I am trying to write a VB Script to

    I fixed one error. I didn't notice the space before the C ... ". Columns("A:A").Select" But now I get "Expected Statement" on this line ".Sheets.Add After:=ActiveSheet"
  2. jw45

    I am trying to write a VB Script to

    I am trying to write a VB Script to run a SAP transaction and download to Excel. Then manipulate the output. What I want to do is with the first worksheet (objWB1), is to activate it, select all data in column A, insert a sheet ‘after’ the current sheet, paste and then remove duplicates. Then...
  3. jw45

    Tables for tracking Status

    I have to keep track of an item through a sign-off process. When we get an new order for a item, we want send it through all departments for approval and keep track of the who/when it was completed. Fields that I need are: Item DateCreate EngAppToSchedUser (Engineering Approval to Master...
  4. jw45

    Central Database location for tables

    some very useful stuff written by Duane (thanks Duane if you read this) and have already incorporated in a couple of my databases. However, that is not exactly what I was looking for. Users have many databases (some sorta complex) that link directly to the tables that I am trying to protect...
  5. jw45

    Central Database location for tables

    I have a situation and don’t know the best approach. I have come into an environment where there are many databases (20-30) using many of the same tables. Example is that db 1 may use tables from 2,4, & 5 and db 2 may use table from 4. Hope that makes sense. One db in particular has...
  6. jw45

    Update fields to max count value

    Sorry..I want to change the values of CAT$GROUP to the value of the max count.... so I would want to make all 4 of the values for CAT$GROUP for '4138' be 'LVS' since it has the higher count. Thanks!
  7. jw45

    Update fields to max count value

    I need to count the number of records in a sub-group then update all the records to the value of the max count. In the example data below I need to change all of the values of group ‘4138’ to ‘LVS’ , since the count is LVS – 3 and LVL – 1. Now for the tie breaker – If there is a tie then I...
  8. jw45

    How to get ‘Manager’ from Outlook Contact Properties Organization tab

    Thanks CMP. I get the error: Run-time error '-2147022675(800708ad)': Automation Error The user name could not be found.
  9. jw45

    How to get ‘Manager’ from Outlook Contact Properties Organization tab

    I have linked the “Global Address List” from the Exchange server, however, it seems to only contain the information on the ‘General’ tab. Like First, Last, Address, City, State, etc. When I open the properties of a contact I see a tab label “Organization.” On this tab it lists a manager and...
  10. jw45

    Query for any field less than zero

    Thanks. I had already started writing the Sql select statement and realized the same thing you said... long and difficult to maintain. Thought someone here may have had a quicker solution. If you don't mind, help me understand your normalization statement. The table is created from an MRP...
  11. jw45

    Query for any field less than zero

    I have a query that contains 56 fields: Item, Desc, Wk1, Wk2, Wk3, ... Wk56. What is the best way to select the Item if any field (Wk1-Wk56) contains a value that is less than zero?
  12. jw45

    Test for Two Values within a Range

    Perfect...Many thanks!
  13. jw45

    Test for Two Values within a Range

    From sample the data below, I need to return the 'Grp' if any value in cItem contains '4' in the 3rd position and a citem begins with '120' within that group. Grp Item Date cItem 1 123 5/15/00 014236 1 235 9/19/03 120236 1 173 2/23/01 014998 1 126 8/13/02 024329 1 143 1/19/06 014236 1...
  14. jw45

    Find Position of Mutilple Characters search in a text string (97)

    PHV, Thanks. Worked great with a minor modification. Had to remove the AND statement. Also, added an exit to the loop. iPos = 0 For Each x In Array("_", "/", "-", "*", " ", "'") I = InStr(3, yourString, x) If I > 0 And I < iPos Then iPos = I: GoTo Cont: Next Cont: MsgBox "Position =...

Part and Inventory Search

Back
Top