Form button property Solved

[feistdj]

I have a button on a form that opens a save as dialog box. Once the file is saved the file name is set to the text property in a text box on the form but the form closes as soon as the file is saved. I want the form to remain open after the file is saved. Is there a button property or code that will keep the form open?

[Spajeoly]

Maybe you cold be a little more specific, let us see the code you are using to do all this and we can probably find the problem.

[feistdj]

I just cut and pasted this from my code so I'll explain. The button opens a template Excel file and changes its extension when it is saved. This program had to be coded without the use of OCX or ActiveX controls (for system compatbility reasons) that is why I didn't use the common dialog box method.

vbcode

Private Sub project_new_Click()
ERH_PushStack_TSB ("frmdlgFiles.project_new_Click")

Dim NewBook As Workbook
Dim fName As String

Set NewBook = Application.Workbooks.Add("C:\defproj.cs2")

fName = Application.GetSaveAsFilename

If Right(fName, 4) <> ".cs2" Then
fName = fName & ".cs2"


End If

NewBook.SaveAs FileName:=fName


project_edit.Text = fName


ThisWorkbook.Saved = False

End

/vbcode

[opus]

The thing I see is the command "END" which of course will and the whole code not only the Sub! an "End Sub " would be better!

If you're trying to post code using the Vbcode-tags surround them with [ ], that helps.

[Spajeoly]

Yea it looks like End might be doing it eh... Try this...

Private Sub project_new()
    ERH_PushStack_TSB ("frmdlgFiles.project_new_Click")
        Dim NewBook As Workbook
        Dim fName As String
            Set NewBook = Application.Workbooks.Add("C:\defproj.cs2")
                fName = Application.GetSaveAsFilename
                    If Right(fName, 4) <> ".cs2" Then
                        fName = fName & ".cs2"
                    End If
                NewBook.SaveAs Filename:=fName
            project_edit.Text = fName
        ThisWorkbook.Saved = False
End Sub

I am amazed your code worked without "End Sub" at the bottom.

[feistdj]

Yes, a stupid oversight. I did have End Sub in the code but it was after the unnecessary End statement. The final code with error handler is:

Private Sub project_new_Click()
ERH_PushStack_TSB ("frmdlgFiles.project_new_Click")
 
Dim NewBook As Workbook
Dim fName As String
 
Set NewBook = Application.Workbooks.Add("C:\defproj.cs2")
 
    fName = Application.GetSaveAsFilename
    
    If Right(fName, 4) <> ".cs2" Then
    fName = fName & ".cs2"
    
    End If
    
    NewBook.SaveAs FileName:=fName
 
project_edit.Text = fName
 
ThisWorkbook.Saved = False
 
Proc_exit:
    ERH_PopStack_TSB
   Exit Sub
    
Proc_err:
    ERH_Handler_TSB
    Resume Proc_exit
 
 
End Sub