Ovim kodom na menja stranu u pod formi. Napravio sam još jedan dodatak i tako dobijam šta hoću samo me brine da nije previše.
Private Sub Vrsta_AfterUpdate()
If Me.Vrsta = (1) Then
Me.TabCtl22.Pages!pgeOne.SetFocus
Forms!F_ugovori!OdDatuma.SetFocus
Else
If Me.Vrsta = (2) Then
Me.TabCtl22.Pages!pgeTwo.SetFocus
Forms!F_ugovori!OdDatuma.SetFocus
End If
End If
Me.Recalc
End Sub
Private Sub Rabat_AfterUpdate()
If Me.Vrsta = (1) Then
Me.TabCtl22.Pages!pgeOne.SetFocus
Forms!F_ugovori!qry_UgovorDetalji_subform!ProizvodID.SetFocus
Else
If Me.Vrsta = (2) Then
Me.TabCtl22.Pages!pgeTwo.SetFocus
Forms!F_ugovori!qry_UgovorDetalji1_subform1!ProizvodID.SetFocus
End If
End If
Me.Recalc
End Sub
INTRUDER