Setfocus na tab control sa glavne forme

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

Potpis

INTRUDER

Okaci tu bazu pa da vidimo u cemu je problem.

Potpis

[email protected]=

evo i primera.

Potpis

INTRUDER

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:



nakon Me.Recalc.

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.

Potpis

INTRUDER

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

Potpis

INTRUDER

Aha, hoces da nastavis sa daljim unosom.

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

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

Potpis

INTRUDER

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

Potpis

zxz