Private Sub Text57_Click()
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("AssignedNumber", dbOpenDynaset)
Text57.Value = rst!AssignedNumber
rst!AssignedNumber = rst!AssignedNumber - 1
Set rst = Nothing
End Sub
*/ This bit is supposed to fill a field on a form with the value of a table which is a piece of a composit number. It then decrements the field for the next time we use the form to create a new composit number.
The debugger doesn't like the decrementing line/*
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("AssignedNumber", dbOpenDynaset)
Text57.Value = rst!AssignedNumber
rst!AssignedNumber = rst!AssignedNumber - 1
Set rst = Nothing
End Sub
*/ This bit is supposed to fill a field on a form with the value of a table which is a piece of a composit number. It then decrements the field for the next time we use the form to create a new composit number.
The debugger doesn't like the decrementing line/*