Need Help hiding White DB Application Background

[chackramp54]

**Update -
Thank you all but I found out what I was doing wrong.
Solution:
File -> Current Database -> Document Window Options : Tabbed Documents (UNCHECK Display Document Tabs).

New question? If I set to Pop-up and Modal - No. Is it possible to hide then the Access DB Background Application (read bar and window) while at same time, having App icon visible on taskbar and task manager? The VBA code I find for this forces Modal and hides from task bar and manager. Any tips? Thanks in advance



Hi All,
I'm seeking your help in hiding the white background on my form (scribbled part). I'm including a screenshot of the property sheet. And VBA code below. Any help is greatly appreciated thank you

Private Sub Form_Load()
'Hidding Navigation Pane
DoCmd.NavigateTo "acNavigationCategoryObjectType"
DoCmd.RunCommand acCmdWindowHide
DoCmd.MoveSize , , 711, 405

'Hidding Ribbon
DoCmd.ShowToolbar "Ribbon", acToolbarNo
DisableStdOption
End Sub


Sub DisableStdOption()
On Error GoTo Err_DisableStdOption

ChangeProperty "StartupShowDBWindow", DB_BOOLEAN, False


ChangeProperty "AllowFullMenus", DB_BOOLEAN, False
ChangeProperty "AllowBuiltinToolbars", DB_BOOLEAN, False

'turn off the database window in normal use
DoCmd.SelectObject acTable, , True
DoCmd.RunCommand acCmdWindowHide

Exit_DisableStdOption:
Exit Sub

Err_DisableStdOption:
MsgBox "Error #" & Err.Number & ": " & Err.Description
Resume Exit_DisableStdOption
End Sub


Function ChangeProperty(strPropName As String, varPropType As Variant, _
varPropValue As Variant) As Integer
On Error GoTo Change_Err
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270

Set dbs = CurrentDb
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True

Change_Bye:
Exit Function

Change_Err:
If Err = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else ' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
End Function

Private Sub btnExit_Click()
DoCmd.Quit
End Sub