Recent content by Aerowolf

I have a form where the user enters the sales order number and then hits a "Print Labels" button. The button opens qryVAN00 which queries the sales order table and filters it based on the sale order number entered. For each record in the query I need to grab the value in the ItemKey field and...

I've got a txtPicture field on a form which is set to: ="\IMAGES\" & [PART#] & ".JPG" On this form I also have the field PART#, CATEGORY and PICTURE. I'm wanting to use this form as a subform on another form. This subform will be filtered by CATEGORY from a combo box on the main form. My...

I have the following tables: Categories with a Category field. Types with Category and Type fields. I have form Items with subform ItemCats. In subform ItemCats I want the user to select the Category and then select the Type using combo boxes, but I want the Type combo box to be filtered based...

I am using POs for one particular vendor that use the following format: Line item #1 contains Part #, description, and finish. Line item #2 contains Customer ID and sales order #. Line item #3 contains a period as a separator on the page. Each of the above is entered in the description field...

I didn't understand the number table thing, but I did solve my problem after finding an article in the Microsof Knowledge Base Here's my code: DoCmd.OpenReport "VanDykeProductLabel", acViewPreview DoCmd.PrintOut , , , , [Forms]![frmVanDykeLabels]![QTYLABELS], False DoCmd.Close acReport...

I am trying to print labels to a network label printer. I'm using the printout command as follows: DoCmd.OpenReport "VanDykeProductLabel" DoCmd.PrintOut , , , , [Forms]![frmVanDykeLabels]![QTYLABELS], False The label report specifies the network printer. [QTYLABELS] is the qty specified by the...

Thanks very much guys...got it working! Edwin

OK...so here is what I have right now: Dim nm As Workbook, nbr As String, due As String, ord As String nbr = ActiveCell.Offset(0, 1).Range("A1") due = ActiveCell.Offset(0, 9).Range("A1") ord = ActiveCell.Offset(0, 13).Range("A1") Set nm = Workbooks.Open("X:\WOVEN...

Here's my code: Dim nm As String, nbr As String, due As String, ord As String nbr = ActiveCell.Offset(0, 1).Range("A1") due = ActiveCell.Offset(0, 9).Range("A1") ord = ActiveCell.Offset(0, 13).Range("A1") nm = "X:\WOVEN PRODUCTION\CRIMP & WEAVE INST & ROUTINGS\" & ActiveCell &...

Here's my code: Dim nm As String, nbr As String, due As String, ord As String nbr = ActiveCell.Offset(0, 1).Range("A1") due = ActiveCell.Offset(0, 9).Range("A1") ord = ActiveCell.Offset(0, 13).Range("A1") nm = "X:\WOVEN PRODUCTION\CRIMP & WEAVE INST & ROUTINGS\" & ActiveCell &...

The code I have is below. The Shipment form has the field [LOC] which is one of a few set values (ie. RAW, SV, NB, or FB).These values represent the names of fields in the Parts table. Once the form is updated I want to use the value of [LOC] to reference that field in the Parts table. How do...

Here's the code I've got: Dim QTY As String, q As Integer, p As Integer, ITEM As String ITEM = InputBox("Enter unit part #:") DoCmd.OpenForm "frmBOM" DoCmd.ApplyFilter , [Forms]![frmBOM]![PARENTPART] = ITEM If [Forms]![frmBOM]![PARENTPART] <> ITEM Then result =...

Got it to work and it works great!!! Thanks alot! Edwin

Thank you for this. Works great except that it only processes the first line. How do I make it do the whole sheet? Edwin

I have a list of ship-to addresses from a customer. The last field contains the number of packages to ship to each location. In order to import this into my Fedex software, I need to have each line represent one package. Therefore, I need to duplicate each line in the original list by the...