[ pepsiredstar @ 04.09.2008. 11:20 ] @
Imam jedan problem. Naime na jednoj formi napravio sam cmdButton koji mi poziva drugu formu gde obavljam pretragu. U toj formi imam dugme prikazi koje vraca podatke koji mi trebaju u prethodnu formu. Problem je kako da zatvorim formu u kojoj sam vrsio pretragu a da ne zatvorim formu iz koje sam je pozvao? Probao sam sa DoCmd.Close ali ne ide, jer mi on zatvara formu iz koje sam pozvao pretragu, a ostavlja otvorenu formu gde je obavljena pretraga. Kod dugmeta prikazi je sledeci:

Private Sub cmdPrikazi_Click()

DoCmd.OpenForm "frmNalog", acNormal, , "sifra_naloga=" & Me.txtNalog.Value

End Sub

Forma koja ne treba da se zatvori je "frmNalog".

Nadam se da ste razumeli sta sam hteo da kazem.
[ domaci_a_nas @ 04.09.2008. 12:13 ] @
Probaj sa F2 da iz VBA editora da pozoveš Object Browser. Tamo možeš naći validne argumente za sve funkcije. U tvom slučaju, možeš (ali ne moraš) da navedeš tip i naziv objekta koji zatvaraš, tako da tvoj kod izgleda :

DoCmd.Close acForm, "frmNalog"
[ Miro35 @ 04.09.2008. 12:37 ] @
tebi izgleda kad sa forme frmNalog pozivaš formu za pretragu zatvara formu frmNalog,a to netreba tako da bude.Ovo je moja pretpostavka jer i ja imam takvo pretrazivanje.Znači na dugmetu u formi frmNalog sa kojim pozivaš formu za pretragu nemoj stavljati DoCmd.Close.
[ Catch 22 @ 04.09.2008. 12:41 ] @
Probaj ovaj kod, prepravi ga po vlastitim potrebama

Code:

'+----------------------------------------------
' Zatvara sve forme osim forme "PODLOGA" i forme
' iz koje se poziva procedura
' U kodu kontrole upisati: Call OsimMene(Me)
'+------------------------------------------------
Public Function OsimMene(frmName As Form)

Dim intx As Integer
   Dim intCount As Integer
   intCount = Forms.Count - 1
   
   
   For intx = intCount To 0 Step -1
        If Forms(intx).Name <> frmName.Name And Forms(intx).Name _
        <> "PODLOGA" Then
            DoCmd.Close acForm, Forms(intx).Name
            'Forms(intx).Visible = False 'Ako zelis samo da sakrijes sve forme umesto zatvaranja
        End If
   Next
End Function

[ pepsiredstar @ 04.09.2008. 12:45 ] @
hvala na savetima. pokusacu da da resim problem
[ pepsiredstar @ 04.09.2008. 13:18 ] @
hvala domaci_a_nas! Implementirao sam tvoje resenje i funkcionise. Izvinjanjavam se Catch22, ali slab sam po pitanju modula tako da ne znam na koji nacin da prepravim tvoj kod da kod mene radi. U svakom slucaju ti hvala!. Proucicu tvoj kod da nekako shatim module.