Odpiranje Forme in "Set Focus"

[BJ]

Pozdravljeni!
Odprem DZ, Kliknem na CommandButton3, prikaže se frmZapis, vendar pa se v "txtRac" SetFocus ne izvede, v "Koledar" današnji dan ni izbran.
Ko pa frmZapis zaprem in ponovno odprem, pa deluje vse OK.Kje je napaka?

Koda: Izberi vse

Private Sub CommandButton3_Click()

frmZapis.Show
frmZapis.Koledar.Value = Date
frmZapis.txtRac.SetFocus

End Sub

[admin]

Pozdravljeni,

Ko izvedete metodo .Show, se prikaže okno in tedaj se koda v glavni niti ne izvaja (izvaja se koda v oknu). Ko okno zaprete pa se začne izvajati nadalnja koda. Omenjeni akciji je zatorej potrebno izvesti preden prikažete okno:

Koda: Izberi vse

Private Sub CommandButton3_Click()
  frmZapis.Koledar.Value = Date
  frmZapis.txtRac.SetFocus
  frmZapis.Show
End Sub

[BJ]

Najlepša hvala in lep dan želim! BJ