Export u EXCELL How?

Imam Formu sa subformom. U formi su mi polja koja su u stvari filtar na osnovu koga se prikazuju podaci u formi.
Pri promeni vrednosti polja u formi poziva se procedura koja u zavisnosti od vrednosti polja postavlja vezu master i child field ali i poziva jednu od dve subforme za prikaz.
Na desni taster sam postavio dugme Analize with Microsoft excell ali mi on izbacuje samo vrednosti iz forme. Moje pitanje je da li postoji neka mogucnost da na taj nacin izbacim sadrzinu subforme u excell ili cu morati da radim na neki drugi nacim. Molim da mi neko ko je mozda vec ima ovakvo resenje pomogne.

Umesto da exportujes formu u Excel, probaj da exportujes report, lakse je. Ovako: za tvoju kombinaciju forma-subforma, mozes da napravis report. P kad kliknes neko dugme, otvori se u preview report koji pokazuje tacno one rekorde koje zelis. Onda taj report posaljes u excel. Samo pazi, obicno ono sto Access automatski prebaci u Excel mije bas onako kako si zeleo da bude, pa cesto nema druge nego programirati celiju po celiju.

Mislim da cu sa tim imati dosta problema jer ja imam Formu gde u proceduri provera zavisno od toga sta sam stavio u poljima forme postavljam source za subformu na jednu ili drugu ili trecu subformu. To mi je u stvari izvestaj, odatle stampam klikom na dugme PRINT gde u kodu kazem:

Private Sub print_Click()
On Error GoTo Err_print_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.PrintOut acPrintAll, , , acLow
Exit_print_Click:
Exit Sub

Err_print_Click:
MsgBox Err.Description
Resume Exit_print_Click
End Sub

Bilo bi mnogo lepo kad bih mogao da na takav neki nacin nadjem i onu opciju iz menija Office Links Analize with Microsoft Excell ali ne znam niti mogu da nadjem koji bi to broj bio. Kada kazem koji broj mislim na ono acEditMenu, XX, acMenuVer70 znaci umesto XX bi trebao da dodje broj po kome bi access mogao da prepozna da se radi bas o odredjenoj naredbi, ali ja nikako ne mogu da nadjem koji bi to broj bio. Bio bi dovoljan savet gde bih to mogao da pronadjem i svi moji problemi bi nestali.

Razmisljao sam da ako tako ne uspem napisem nesto u kodu kao set Focus na subformu pa da radim nesto sa recordsetom i mislim da bi tako moglo da prodje ali to je koplikovaniji nacin.

Unapred zahvalan na pomoci.

Evo mozda ce ti ovo pomoci.
Ja sa tim filtriranjima radim ovako.
Napravim te forme i subforme i njihove relacije.
Onda napravim query koji je vezan za tabele kao i forma.
U query-u pod criteria vezes se za polje iz forme koje je uslov za filtar
npr. "Forms![IME_FORME]![IME_POLJA] "
Naravno ovo u query-u stavljas pod isto polje tabele kao sto je i u formi.
I tako mozes koliko hoces kriterijuma kao i u formi. Tako ce taj query filtrirati iste podatke kao i forma.
A njega mozes izvoziti gdje hoces.
Ja napravim report koji je vezan za taj query a stampu reporta pokrecem iz forme.
p.s. Normalno ovaj query radi samo kad je ta forma otvorena.

Hvala ti Bobane ali tako imam mnogo Query-ja i mnogo formi ali evo ti kod za proceduru provera pa ga probaj videces i sam koliko je to dobra stvar. Zahtev da se iz te forme izvezu rezultati u Excell, koji pokusavam da ispunim nije svakidasnji i prvi put nailazim na takav (Ne bio mi u kozi sta mi sve ljudi traze). Problem je dakle kada ja pustim izvoz izvozi mi podatke iz forme a ne iz subforme pa pokusavam da to resim na kraci nacin a ne da pisem proceduru za postavljanje fokusa i selektovanje recorset-a pa export.

Private Sub provera()


Me.izvestaj_Balans_Stavka.SourceObject = "Izvestaj_Balans_Stavka"
Me.izvestaj_Balans_Stavka.LinkChildFields = ""
Me.izvestaj_Balans_Stavka.LinkMasterFields = ""


If Me.ID_Projekat = 0 And Me.ID_Donator = "0" Then
Me.izvestaj_Balans_Stavka.SourceObject = "Izvestaj_Balans_Stavka"
Me.izvestaj_Balans_Stavka.LinkChildFields = ""
Me.izvestaj_Balans_Stavka.LinkMasterFields = ""
ElseIf Me.ID_Projekat <> 0 And Me.ID_Donator = 0 Then
Me.izvestaj_Balans_Stavka.SourceObject = "Izvestaj_Balans_Stavka1"
Me.izvestaj_Balans_Stavka.LinkChildFields = "ID_Projekat"
Me.izvestaj_Balans_Stavka.LinkMasterFields = "ID_Projekat"
ElseIf Me.ID_Projekat <> 0 And Me.ID_Donator <> 0 And Me.Brojac = 0 Then
Me.izvestaj_Balans_Stavka.SourceObject = "Izvestaj_Balans_Stavka"
Me.izvestaj_Balans_Stavka.LinkChildFields = "ID_Projekat;ID_Donator"
Me.izvestaj_Balans_Stavka.LinkMasterFields = "ID_Projekat;ID_Donator"
ElseIf Me.ID_Projekat = 0 And Me.ID_Donator <> 0 Then
Me.izvestaj_Balans_Stavka.SourceObject = "Izvestaj_Balans_Stavka"
Me.izvestaj_Balans_Stavka.LinkChildFields = "ID_Donator"
Me.izvestaj_Balans_Stavka.LinkMasterFields = "ID_Donator"
Else
Me.izvestaj_Balans_Stavka.SourceObject = "Izvestaj_Balans_Stavka"
Me.izvestaj_Balans_Stavka.LinkChildFields = "ID_Projekat;ID_Donator"
Me.izvestaj_Balans_Stavka.LinkMasterFields = "ID_Projekat;ID_Donator"
End If
End Sub
I sada se ta procedura poziva on change nekog polja koje mozes da vidis gore u samoj proceduri.

Probaj ovo i videces koliko ti olaksava zivot u smislu da skracuje fixikaliju oko izrade query-ja i Reporta za svaki kriterijum. :-)