Using a button to add a year to the current date.

[tkd1987]

Hello,
i have an expiry date for my members and each year they need to renew it, so i would like to have a button that when clicked adds 1 year to the date.

I currently have this query
=DateAdd("yyyy",1,[Commenced Training])

as there membership will expire one year from their joining date.
this is currently shown for hte text box expiry date.

however i cannot work out how to make another one for the button so that when the button is pressed it adds another year and stores its.

the image shows my example

thanks

 

[allan57]

assuming your text box is called txtExpiryDate then

on the on_click event of the button enter:-

txtExpiryDate = dateadd("yyyy", 1, txtExpiryDate)
me.refresh 'updates the records in the underlying record source of your form

 

[tkd1987]

nice thanks
now for another prob...

i have a search box which has a list of everyone, showing their 1st name and surname, with a txt box at hte top you can type any part of their name and i will display the results, when you either double click or press the view button it will display there record, but at the mo it is displaying the same record. here is my code

Private Sub cmdView_Click()
On Error GoTo Err_cmdView_Click
Dim rs As Object

If IsNull(Me.List0) Then
MsgBox "No Selection ! ", vbCritical, " MRHS"
Me.List0.SetFocus
Exit Sub
Else
DoCmd.OpenForm "frml_Student_Info"

Set rs = Forms!frml_Students_Info.Recordset.Clone
rs.FindFirst "Student ID = " & Me.List0
Forms!frml_Students_Info.Bookmark = rs.Bookmark
DoCmd.Close acForm, Me.Name
End If

Exit_cmdView_Click:
Exit Sub

Err_cmdView_Click:
Resume Exit_cmdView_Click

End Sub