Private Sub Form_Open(Cancel As Integer)

  DoCmd.Maximize

End Sub

 

Private Sub Form_Resize()

   Const conMargin As Long = 300

   Dim intOrgWidth As Integer

 

   Painting = False

   

   If InsideHeight < 4515 Then InsideHeight = 4515: Exit Sub

   If InsideWidth < 6975 Then InsideWidth = 6975: Exit Sub

      intOrgWidth = frmKasa_Stavkai_Subform.Width

   

   'horizontal

    Vraboten.Left = InsideWidth - Vraboten.Width - 220

     Me.cmdClose.Left = InsideWidth - Me.cmdClose.Left - 220

     labVraboten.Left = InsideWidth - (Vraboten.Width * 1.5) - 220

     cboBrDok.Left = InsideWidth - cboBrDok.Width - 220

     labNajdi.Left = InsideWidth - (cboBrDok.Width * 2.5)

     txtVkupno.Width = InsideWidth - conMargin * 20

     frmKasa_Stavkai_Subform.Left = conMargin

     frmKasa_Stavkai_Subform.Width = InsideWidth - conMargin * 2

   'vertical

    frmKasa_Stavkai_Subform.Height = InsideHeight - Section(acHeader).Height - _

     Section(acFooter).Height - frmKasa_Stavkai_Subform.Top - conMargin

   

   Painting = True

End Sub