i got it working but i get an error message, when i choose to not save the
record and then close the survey....it reads.....ms access cannot find the
form "water" referred to in a macro expression or visual basic code. but
what i want to happen works, its just i get that message.

here is my code:

Option Compare Database
Private Sub Form_Load()

Dim strNextNumber As String

strNextNumber = Nz(DMax("ID", "General Housing Survey"), 0) + 1
Me.ID = strNextNumber

End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer)

Dim strDocName1 As String
Dim intResponse As Integer
strDocName1 = "Water"

intResponse = MsgBox("Save Record?", vbYesNoCancel)

Select Case intResponse
 Case vbYes
   intResponse2 = MsgBox("Go to next page", vbYesNo)
   Select Case intResponse2
   Case vbYes
   DoCmd.OpenForm strDocName1
   End Select
 Case vbNo
   Me.Undo  'To undo the edit
 Case vbCancel
   Cancel = True  'To cancel the update & hence the close
End Select

End Sub
Private Sub Command75_Click()
On Error GoTo Err_Command75_Click

Dim strDocName As String
Dim strID As String

strDocName = "Water"
strID = Me.ID
DoCmd.Close

Forms(strDocName)!ID = strID

   
Exit_Command75_Click:
   Exit Sub

Err_Command75_Click:
   MsgBox Err.Description
   Resume Exit_Command75_Click