add new record on cts form with button

[tanzania]

Hi, I have a continuous form. Im wandering if there is some way of not showing the last record whilst still allowing additions? ie I am wanting to have an 'Add' button that will insert a new record and automatically populate the date and time fields with the current values. The following code works fine on allowing additions, but once the fields have been populated it no longer even shows a new record, and subsequent presses of the button adds a new records but its all warped and does not show in the normal continuous way.

DoCmd.GoToRecord , , acNewRec

If IsNull(t_date) Then

t_date = Date
t_time = Time

End If
Me.ctlt_Type.SetFocus

 

[missinglinq]

In Design View for the form goto Properties - Data and set AllowAdditions to No

Private Sub AddRecordButton_Click()
  Me.AllowAdditions = True
  DoCmd.GoToRecord , , acNewRec
End Sub

Private Sub Form_Current()
  If Not Me.NewRecord Then 
    Me.AllowAdditions = False
  Else 
    Me.t_date = Date
    Me.t_time = Time
    Me.ctlt_Type.SetFocus
  End If
End Sub

I can't check this right now, but I believe it'll do the job for you.

Linq

 

[tanzania]

that works beautfully!...thanks heaps for getting me in the rigth direction!

 

[missinglinq]

Glad to help!

Linq