Setfocus na tab control sa glavne forme

[ xl_kid @ 05.04.2012. 14:04 ] @

Napravio sam formu za unos aneksa ugovora kupcima. Pošto imam dva aneksa napravio sam tab control sa dve strane. Sve radi ok ali pokušavam skratiti klikove tj da na osnovu izbora iz combobox-a sa glavne forme da fokus na odredjenu stranu. I to sam nekako uradio ali me nervira što to polje na glevnoj formi mora biti poslednje jer posle izbora aneksa odmah prebacuje na odredjenu stranu. Hteo bih da polje za izbor vrste aneksa bude prvo (pre ostalih podataka, datumi, uslovi, kupac...) a ne poslednje. evo i koda koji koristim na formi:

Private Sub Vrsta_AfterUpdate()
If Me.Vrsta = (1) Then
Me.TabCtl22.Pages!strJedan.SetFocus
Else
If Me.Vrsta = (2) Then
Me.TabCtl22.Pages!strDva.SetFocus
End If
End If
Me.Recalc
End Sub

[ FOX028 @ 05.04.2012. 18:31 ] @

Okaci tu bazu pa da vidimo u cemu je problem.

[ xl_kid @ 05.04.2012. 21:14 ] @

evo i primera.

[ TiestoX @ 05.04.2012. 22:45 ] @

Ako sam dobro razumeo, hoces da prilikom upisivanja Vrste ugovora fokus ostane na polju Vrste glavne forme a ne pod forme?

Ako je tako, onda samo dodajes:

Code:
Forms!F_ugovori!Vrsta.SetFocus

nakon Me.Recalc.

Code:

Private Sub Form_Current()
If Me.Vrsta = (1) Then
Me.TabCtl22.Pages!pgeOne.SetFocus
Else
If Me.Vrsta = (2) Then
Me.TabCtl22.Pages!pgeTwo.SetFocus
End If
End If
Me.Recalc
Forms!F_ugovori!Vrsta.SetFocus
End Sub

[ xl_kid @ 06.04.2012. 06:48 ] @

Ne bas. Hteo bih da prilikom upisivanja, posle izbora vrste ugovora, u pod formi prebaci na odabranu stranu ali da nastavim unos sa ostalim podacima na glavnoj formi pa tek onda nastavi u pod formi. Sada mi je polje vrsta na početku i tu mi pravi "problem" jer hocu da prvo odaberem vrstu ugovora (automatski da promeni stranu u pod formi) a potom nastavim sa unosom na glavnoj formi pa tek onda u pod formi nastavim sa unosom. Ako vrstu ugovora stavim kao poslednje polje u glavnoj formi sve radi ok ali kao sto rekoh hteo bih da mi odabir vrste bude kao prvo polje.

[ xl_kid @ 06.04.2012. 07:01 ] @

Da li može ovako nešto:

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

[ TiestoX @ 06.04.2012. 07:09 ] @

Aha, hoces da nastavis sa daljim unosom.

KOD je isti kao sto sam i napisao samo je fokus na polju OdDatuma.

Code:
Private Sub Form_Current()
If Me.Vrsta = (1) Then
Me.TabCtl22.Pages!pgeOne.SetFocus
Else
If Me.Vrsta = (2) Then
Me.TabCtl22.Pages!pgeTwo.SetFocus
End If
End If
Me.Recalc
Forms!F_ugovori!OdDatuma.SetFocus
End Sub

[ xl_kid @ 06.04.2012. 07:20 ] @

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

[ izonic @ 06.04.2012. 10:27 ] @

Private Sub Form_Current()
Dim I As Integer

I = Me.Vrsta - 1
Me.TabCtl22.Pages(I).SetFocus
End Sub

Private Sub Rabat_Exit(Cancel As Integer)
Form_Current
End Sub

[ xl_kid @ 07.04.2012. 09:42 ] @

izonic, ovaj kod mi pravi problem prilikom novog upisa a takodje prilikom unosa vrste ne menja stranu u pod formi.