[es] - Povratak sa modalne forme na obicne

zkrmpot
Novi Sad

Član broj: 39320
Poruke: 1
195.178.63.*

Profil

^{12.11.2004. u 11:53}

Imam formu koja je modalna i PopUp i koja moze biti pozvana od vise formi.
Kad se zavrsi rad sa njom treba da se azuriraju neki podaci na formi koja ju je pozvala.

Da li postoji "event" koji se okida na osnovnoj formi ili kontroli da znam da sam se vratio iz modalne forme.Ja ga nisam uspeo uhvatiti.

Za drugu varijantu znam ali mi se cini ne funkcinalna a to je na zatvaranju modalne forme da kazem Form_frmPozivajucaForma.txtKontrola=... medjutim taj program treba da radi i na Access97 i na Access2000 a Access97 ima drugacije sintaksu referenciranja.

^{12.11.2004. u 11:53}

DarkMan
Darko Matesic

Član broj: 20445
Poruke: 492
*.metrohive.neobee.net.

Profil

Re: Povratak sa modalne forme na obicne

^{12.11.2004. u 17:44}

Na click event dugmeta pozivaj tvoju formu sledecom komandom:

Code:

DoCmd.OpenForm <ime tvoje forme>, , , , , acDialog

Izvrsenje koda click eventa se zaustavlja na ovoj liniji dok se forma ne zatvori. Zato ti stavi tvoj kod posle ove linije koji ce osveziti tvoju formu (na primer Me.Requery).

Ja sam koristio ovakvu pomocnu funkciju za otvaranje novih formi:

Code:

Function OtvoriFormu(frm As Form, Forma As String, OsveziPolja As String)
    On Error Resume Next
    DoCmd.OpenForm Forma, , , , , acDialog
    If err.Number = 2501 Then Exit Function 'Open Canceled
    If err.Number <> 0 Then GoTo Err_OtvoriFormu
    Dim I As Integer, S() As String
    S = Split(OsveziPolja, ";")
    For I = 0 To UBound(S) Step 2
        frm(S(I)).Requery
    Next
    Exit Function
Err_OtvoriFormu:
    MessageBox "Ne mogu da otvorim formu"
End Function

Ovaj parametar OsveziPolja je u formatu "POLJE1;POLJE2" (ili moze biti prazno). Po zatvaranju otvorene forme ova procedura ti osvezi polja koja si nabrojao u ovom parametru.

^{12.11.2004. u 17:44}