Me.RecordSet.MoveLast
(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
Me.Recordset.FindLast "[Renter Space Assignments_Space Number] = [Payment Receipts_Space Number]"
Me.Recordset.FindLast "[Renter Space Assignments_Space Number] = " & [Payment Receipts_Space Number]
Title | # Comments | Views | Activity |
---|---|---|---|
Access 2010 ComboBox Requery Not Working | 17 | 25 | |
Acess 2010 - Pause Until Part Of Event Completes | 14 | 27 | |
Access on thin client? | 11 | 37 | |
Code editor Problem | 8 | 16 |
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
11 Experts available now in Live!