Troubleshooting SaveAs button through MS Access Navigation form - vba

Question

i've been struggling around trying to get my VBA to work & i'm at a loss since i'm extremely fresh using VBA or coding in-general.
What i've got is basically a Navigation Main Form that uses tabs to open up different forms for ease of access. On one of these subforms there is a button that is supposed to work as a "SaveAsPDF" option. it's basically supposed to work by opening up a folder you want to save it in, & exporting the Report version as a pdf to the location. The weird thing is that it works perfectly when you have the actual form open & not the form open in the navigation menu, so i'm at a loss now.
If anyone is able to help, it's much appreciated & you'll be saving alot of hair from the floor. What i've got is below
Private Sub SaveAsPDF_Click()
Dim fd As FileDialog
On Error goto ErrorHandler
Set fd = Application.FileDialog(msoFileDialogSaveAs)
With fd
.InitialFileName = MAFNO & ".pdf"
End With
If fd.Show Then
DoCmd.OutputTo acOutputReport, "RptMAFPrint", acFormatPDF, _
fd.SelectedItems(1), True
End If
Exit sub
ErrorHandler:
Msgbox "An Error occurred, please try again", vbinformation, "Could not save document"
Exit sub
End Sub
As far as it running on it's own when you open the actual form up, it works perfectly & hasn't had a single error, but when opening it up from the Navigation Menu Tab it immediately has an error & tries to save the entire workbook.
Error below
https://imgur.com/a/rSynDic

Answer 1

Longpast on this post, but Kostas had the answer & I was easily able to edit the vba to make it work. Thank you thank you kostas, if I could actually put yours as the answer, I would.
VBA is below if anyone would ever need it. I'll probably go back at some point & see if I could re-write it better, but it gets the job done for the most part.
This does work perfectly for a MS Access Navigation form though & it does not close the current active tab at the end of the VBA.
Private Sub ButtonSaveAsPDF_Click()
Dim fd As FileDialog
On Error GoTo ErrorHandler
DoCmd.Save
DoCmd.RefreshRecord
'==== Initial Check ====
If IsNull(Me.TxtMAFNumberTop) Then
GoTo Leave
ElseIf Not IsNull(Me.TxtMAFNumberTop) Then
GoTo Start
End If
'==== SaveAs PDF Start ====
Start:
Set fd = Application.FileDialog(msoFileDialogSaveAs)
With fd
.InitialFileName = TxtMAFNumberTop & ".pdf"
End With
If fd.Show Then
DoCmd.OpenForm "FrmMAF", acNormal, , "[ID] = " & ID, , acHidden
DoCmd.OutputTo acOutputReport, "RptMAFPrint", acFormatPDF, _
fd.SelectedItems(1), True
DoCmd.Close , "FrmMAF"
End If
Exit Sub
Leave:
Exit Sub
ErrorHandler:
MsgBox "An error occurred trying to print your MAF. Please try the following
below & try again" & vbCrLf & _
vbCrLf & _
"1) Verify current MAF information & fields are correct" & vbCrLf & _
"2) Cycle Records & try again " & vbCrLf & _
vbCrLf & _
"If this problem occurs again please contact your local Administrator", _
vbCritical + vbRetryCancel, _
"[Critical] ERROR : SaveAsPDF "
If vbRetry Then
GoTo Start
ElseIf vbCancel Then
Exit Sub
End If
End Sub