Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
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
Join the community of 500,000 technology professionals and ask your questions.