Private Sub CmdNew_Click()
Dim LastInSet As Integer, TotalInSet As Integer, V As Long, C As Long
Dim Pic As String, Img As String, Gen As String, SGen As String, TExt As String
'Walk Over Any Errors
On Error Resume Next
'Save The Added Info For Next Record
Img = Me![Picture]
Pic = Me.Imgage1.Picture
Gen = Me![Genre]
SGen = Me![SubGenre]
V = Me![VersionID]
C = Me![DefaultChartID]
LastInSet = Me![NumberInSet]
TotalInSet = Me![TotalInSet]
TExt = Me![TitleExtra]
DoCmd.GoToRecord , , acNewRec
If MsgBox("I Will now Create a new disc For This Item do you wish to continue?" & vbCrLf & "Choseing No Will close this screen", vbExclamation + vbYesNo, "New Disc?") = vbNo Then
DoCmd.Close acForm, Me.Name
Exit Sub
End If
Me![NumberInSet] = LastInSet + 1
Me![TotalInSet] = TotalInSet
Me![Picture] = Img
Me.Imgage1.Picture = Pic
Me![Genre] = Gen
Me![SubGenre] = SGen
Me![VersionID] = V
Me![DefaultChartID] = C
Me![TitleExtra] = TExt
End Sub