MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Dim strQty, strRecord, strAssetID, strOtherID As String Dim strDesc, strCategory, strPO As String Dim RS As DAO.Recordset Dim rs2 As DAO.Recordset Dim NRecords As Long Set RS = Me.[tblOrders subform].Form.RecordsetClone Set rs2 = CurrentDb.OpenRecordset("tblOrders") strCategory = Forms!frmPur![Orders subform].Form!CatID strRecord = RS.RecordCount RS.MoveFirst While Not RS.EOF strDesc = Forms!frmPur![Orders subform].Form!Description strQty = RS.Fields!Unit_Quantity strPO = Me.PO__ rs2.FindNext "Item_ID = " & strop <ÂŸ--running into error here. strAssetID = rs2.Fields(0).Value Do While strQty <> NRecords NRecords = DCount("*", "tblAssets", "[Item_ID] = " & strAssetID) If strCategory = "5" Or strCategory = "6" Then Dim theSQL theSQL = ("UPDATE tblAssets SET tblAssets.Software_Num = " & [Forms]![frmPurchases]![Text16]) '"SW-"') theSQL = theSQL & " WHERE tblAssets.Item_ID LIKE '" & strAssetID & "' CurrentDb.Execute theSQL End If RS.MoveNext Wend