Update next record formula clarification

[nick1408]

I am using the following to update a field:

Private Sub RICT_Month_AfterUpdate()
If Not IsNull(Me.[RICT Month].Value) Then
  [RICT Month].DefaultValue = "#" & Me.[RICT Month] & "#"
End If
End Sub

1. How do I make it see the date as 1 August rather than 8 January?
2. When it carries over how do I make the default value after 1 August 1 September
3. How do I modify this to do the same for weeks (i.e. 1 August, the next default would be 8 August)

Thanks guys.

 

[Galaxiom]

[RICT Month].DefaultValue = "#" & Format(Me.[RICT Month], "mm/dd/yyyy") & "#"