With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.
(SELECT TOP 1 [Payment Receipts].[Receipt Number] FROM [Payment Receipts] WHERE [Renter Space Assignments].[Space Number] = Forms![Rental Property Management]![Payment Receipts_Space Number] ORDER BY [Payment Receipts].[Receipt Number] DESC) Private Sub Payment_Receipts_Space_Number_AfterUpdate() Dim RecVar As Variant Dim MatchVar As Variant Dim TableVar As Variant MatchVar = Me![Payment Receipts_Space Number] TableVar = [Renter Space Assignments].[Space Number] RecVar = DLookup("[Receipt Number]", "Payment Receipts", "'" & TableVar & " = " & "'" & MatchVar & "'") Me![Receipt Number].SetFocus DoCmd.FindRecord (RecVar), acAnywhere, False, acSearchAll, False, acCurrent, True End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
13 Experts available now in Live!