Private Sub cmdAppendNumbers_Click()
Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim qd As DAO.QueryDef
Dim iCheckNum As Long
iCheckNum = Me.txtNextCheckNum
Set db = CurrentDb
Set qd = db.QueryDefs!qCheckNullValues
Set rs = qd.OpenRecordset
Do Until rs.EOF = True
rs.Edit
rs!RFCK = iCheckNum
rs.Update
iCheckNum = iCheckNum + 1
rs.MoveNext
Loop
End Sub
Private Sub cmdAppendNumbers_Click()
Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim qd As DAO.QueryDef
Dim iCheckNum As Long
iCheckNum = Me.txtNextCheckNum
Set db = CurrentDb
Set qd = db.QueryDefs!qCheckNullValues
Set rs = qd.OpenRecordset
Do Until rs.EOF = True
rs.Edit
rs!RFCK = iCheckNum
rs.Update
iCheckNum = iCheckNum + 1
rs.MoveNext
Loop
End Sub
=Dmax("RFCK","YourTable")+
and on current event of the form re-assign that value.
me.MyControl.DefaultValue=