Option Compare Database
Option Explicit
Const TWIP As Single = 1440 / 2.54
Public Sub SetWidth(FormName As String, ButtonSpacing As Single)
DoCmd.OpenForm FormName, acDesign, , , , acHidden
Dim frm As Form
Set frm = Forms(FormName)
Dim NC As NavigationControl
Set NC = frm.Controls("NC")
Dim ButtonsCount As Integer
ButtonsCount = NC.Controls.Count
Dim TB As TextBox
Set TB = frm.Controls("TB0")
Dim WNB As Single
WNB = (TB.Width - (ButtonsCount - 1) * ButtonSpacing * TWIP) / ButtonsCount
Dim NB As NavigationButton
Dim i As Integer
For i = 1 To ButtonsCount
Set NB = frm.Controls("NB" & i)
NB.Width = WNB
NB.TopPadding = 0
NB.BottomPadding = 0
NB.LeftPadding = ButtonSpacing
NB.RightPadding = IIf(i = ButtonsCount, 0, ButtonSpacing * TWIP)
Next
NC.Width = TB.Width
DoCmd.Close acForm, FormName, acSaveYes
Set frm = Nothing
End Sub