Continue to Site

Eng-Tips is the largest engineering community on the Internet

Intelligent Work Forums for Engineering Professionals

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

Recent content by DBITeng

  1. DBITeng

    Calculate weld inches

    Base issue, is I'm trying to define a basic application to assist in the calculating the approximate weld length for reporting purposes for our project mangers. For example: Size 200 pipe schedule 30 has the following attributes: Wall thickness = 7.04 mm Outside Diameter = 219.1 mm Inside...
  2. DBITeng

    Open Source Planning Software

    most impressed works great and the price is right.... Technological progress is like an axe in the hands of a pathological criminal
  3. DBITeng

    Query part of a field for data found in another table

    select table2.field1,tabel1.field2 from table1,table2 where instr(table1.field1,table2.field1)>0 try this, should give you the basics Technological progress is like an axe in the hands of a pathological criminal
  4. DBITeng

    What Program do you use to Track Submittals?

    We looked at software packages around but decided to create our own, where we receive 98% of our drawings in electronic format we then stamp them via our software and then merge them into a database for cross reference, since we introduced this we reduced our lead time and all documents are now...
  5. DBITeng

    Need help with a script(SQL server)

    Best method would be to create a new table: Addressbook_temp run a script thus: insert into Addressbook_temp select ID,FirstName,LastName,City,State,Zip from addressbook group by ID,FirstName,LastName,City,State,Zip delete the old table addressbook and then rename Addressbook_temp to...
  6. DBITeng

    Basic VBA help

    try this: Sub DeleteEmptyRows(DeleteRange As Range) ' Deletes all empty rows in DeleteRange ' Example: DeleteEmptyRows Selection ' Example: DeleteEmptyRows Range("A1:D100") Dim rCount As Long, r As Long If DeleteRange Is Nothing Then Exit Sub If DeleteRange.Areas.Count > 1 Then Exit Sub...

Part and Inventory Search