Kako da na dvoklik misa...

Interesuje me kako da na dvo klik misha mi se otvori nova forma (verovatno bi bila modal i popup) iz koje bih mogao da izaberem vrednost i da mi onda access tu vrednost upise u polje osnovne forme.

Naime, ako ste gledali primer sa kalendarom na: http://www.praktikum.co.yu/office/access/acc_036.htm mene interesuje kako da napravim nesto slicno onom calendaru: ali, meni bi trebalo da otvori listu sa ucenicima, a da mi gore, gde je ovde mesec/godina, meni bude razred i odeljenje, tako da bih listajuci imao pregled svih djaka nekog odeljenja i njihve sifre. Nakon klika na njih i potvrdjivanja (ili dvoklika), da mi tu sifru unese u za to namenjeno polje.

P.S. Ne mora forma da se poziva dvoklikom, moze i preko dugmeta pored tog text box-a, kako god je lakse uraditi :D

Napravio sam "malu" formu i resio "listanje" po razredu i odelenju, sad mi je jos ostalo da napravim da klikom na Ok pridruzim sifru iz te forme u glavnu formu...

Svaka pomoc je dobrodosla...

Ovako pozoves s glavne forme , koju cemo nazvat "Glavna"

DoCmd.OpenForm "UnosDjaka", acPreview, , , , acDialog

Ako trebas neku vrijednost , recimo ime djaka sa forme Glavna
da prebacis u formu UnosDjaka , a na formi Glavna textbox se zove ImeDjaka

ovo dolje pises u formi UnosDjaka , gdje ti treba, na On Open , ili na klik ili dvoklik


ime=Forms!Glavna!ImeDjaka

ili kontra

Forms!Glavna!ImeDjaka = nestosaforme Unosdjaka

Eto
jel pomoglo

Pa i nisam bash uspeo... Naime, imam jednu formu "fcitaociknjiga" na kojoj "Brcitaoca" (combobox) treba da povucem iz druge forme klikom ili dvoklikom da povucem izabrni record (isto polje koje se zove BrCitaoca). Ta druga forma se zove "probna". Ako nekome nije problem, da li bi mogao da mi pomogne. Pretpostavljam da bi kod ovoga probna!Brcitaoca trebalo na on click staviti nesto: fcitaociknjiga!Brcitaoca=probna!Brcitaoca Da li sam blizu?

P.S. Trebalo bi napomenuti da u sklopu probne forme postoji i sfcitaoci, u kojoj se i nalazi brCitaoca

OVO JE PRIMJER ZA UNOS ZAPOSLENOG AKO NIJE U TABELI UNESEN

NOTINLIST

Private Sub EmployeeID_NotInList(NewData As String, Response As Integer)
MsgBox "Double-click unosi zaposlenog na listu."
Response = acDataErrContinue
End Sub

DBLKLICK NA COMBOBOX

Private Sub EmployeeID_DblClick(Cancel As Integer)
On Error GoTo Err_EmployeeID_DblClick
Dim lngEmployeeID As Long

If IsNull(Me![EmployeeID]) Then
Me![EmployeeID].Text = ""
Else
lngEmployeeID = Me![EmployeeID]
Me![EmployeeID] = Null
End If
DoCmd.OpenForm "Employees", , , , , acDialog, "GotoNew"
Me![EmployeeID].Requery
If lngEmployeeID <> 0 Then Me![EmployeeID] = lngEmployeeID

Exit_EmployeeID_DblClick:
Exit Sub

Err_EmployeeID_DblClick:
MsgBox Err.Description
Resume Exit_EmployeeID_DblClick
End Sub

UNESI SVOJE VRIJEDNOSTI ATRIBUTA I NEMOJ IĆI PREKO QRY-A.

pozdrav.

Hvala na pomoci :D Ali, ili si se ti nesto zeznuo (pomesao topice), ili ja ne znam o cemu ti pricas :D


Bio bih zahvalan ako bi neko znao kako da resim problem...

Zar je moguce da ovo niko ne zna? A cak sam video i da na ovaj forum svracaju i neki likovi sa praktikum.co.yu

Probao sam odgovor koji mi je Trtko postavio, ali nisam uspeo s tim...

Zakači program, pa da probamo uraditi.
pozdrav.

Mozda ce ti pomoci :

DoCmd.OpenForm FormName:="Glavna", whereCondition:="BrCitaoca=" & Me!BrCitaoca

Pozdrav

Potpis

Prizemlje kuce 85m2.
Izolacija 5-10cm stiropor,PVC stolarija.
Panasonic: cs/cu-re12qke
Gree Lomo x2 klime : gwh12qc

Ako je Lista u pitanju

DoCmd.OpenForm FormName:="Glavna", whereCondition:="BrCitaoca=" & Me![Lista].Column(1)

Potpis

Prizemlje kuce 85m2.
Izolacija 5-10cm stiropor,PVC stolarija.
Panasonic: cs/cu-re12qke
Gree Lomo x2 klime : gwh12qc

Ni to mi nije pomoglo... Postavio sam primer, pa se oprobajte...

Evo saljem ti rijesenje
Prvo ti mora biti startovana forma Fcitaociknjiga
pa sa nje pozivas formu Probna i onda na klik ( ili na imeprezime ili na sifru ili na cijeli red) dobijes podatke


Pozdrav Trtko

Ja opet imam drugaciji problem:

ne mogu da otvorim ni jedan attachment koji ste postavili. Pojavi se poruka da moram prvo snimiti fajl pa ga onda otvoriti, ali i kad tako uradim opet isto...

Potpis

----There is no place like 127.0.0.1-----

A koji Access koristis.

Neznam stvarno zasto ti ne otvara

MS OFFICE 2000 i to legalan...

Potpis

----There is no place like 127.0.0.1-----

A ne znam zasto nemozes otvoriti , ja sam tvoj primjer radio u accessu 2002 ali sam ga snimio
u 2000.
Ali evo sto moras staviti u KOD na formi PROBA

i mora ti raditi

Private Sub BrCitaoca_Click()
' DoCmd.OpenForm FormName:="fcitaociknjiga", whereCondition:="BrCitaoca=" & Me!BrCitaoca
Forms!fcitaociknjiga!BrCitaoca = BrCitaoca

End Sub

Private Sub Form_Click()
Forms!fcitaociknjiga!BrCitaoca = BrCitaoca
Forms!fcitaociknjiga!Napomene = PrezimeIme
End Sub

Private Sub PrezimeIme_Click()
'DoCmd.OpenForm FormName:="fcitaociknjiga", whereCondition:="BrCitaoca=" & Me!BrCitaoca
' Mozes staviti i na subformu ili kamo vec zelis

Forms!fcitaociknjiga!Napomene = PrezimeIme

End Sub


Pozdrav Trtko


E da ne zaboravimo , formu PROBA pozoves sa forme FCITAOCIKNJIGA