Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
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 = In