Database

[Skyhighatrist]

Mislim da bi mogao da iskoristiš event onGotFocus na svakoj formi i lost fokus na prvoj...Skinuo ovo sa neta, odavde, i malo prilagodio, trebalo bi da radi... NIsam proveravao...

Dodavanje rekorda u sve tabele sam uspešno rešio - hvala!Aj' ako ti nije teško jedno 4dummies uputstvo za

Napraviš globalnu promenljivu ID_main

pa onda

kojoj dodeliš, na lost focus na prvoj formi, id koji je tamo...

a onda naravno i

na ostalim na ongotfocus setuješ id

Znači baš 4dummies, recimo gde ću sa kodom

Sub Form_GotFocus() 
With Me.RecordsetClone .FindFirst "[ID] = " & ID_main 
	If Not .NoMatch Then
	Me.Bookmark = .Bookmark 
	End If 
End With 
End Sub

pičim novi Sub Form ispod Sub Form_AfterUpdate?Bio sam na gornjem linku, ne treba da ti kažem da se samo frustriram kad krenem da čitam

[radisa]

Dodavanje rekorda u sve tabele sam uspešno rešio - hvala!Aj' ako ti nije teško jedno 4dummies uputstvo za pa ondaa onda naravno i Znači baš 4dummies, recimo gde ću sa kodom

Sub Form_GotFocus() 
With Me.RecordsetClone .FindFirst "[ID] = " & ID_main 
	If Not .NoMatch Then
	Me.Bookmark = .Bookmark 
	End If 
End With 
End Sub

pičim novi Sub Form ispod Sub Form_AfterUpdate?Bio sam na gornjem linku, ne treba da ti kažem da se samo frustriram kad krenem da čitam

Ajmo redom... Pazi, ovo nisam baš 100% siguran da će da radi, ali poznajući MS i njihov način baratanja formama, trebalo bi da hoće... A iskreno, mene mrzi da da sad pišem sve da bi proveravao...Dakle,1. Globalna promenljiva...kad otvoriš kod, imaš sa desne strane forme i još jedan folder iznad... Desni klik na folder, pa insert module...U modul, koji je prazan, i koji neka se sad zove Module1, kao što access sam i predlaže...

Dim ID_main As Integer

Public Sub Set_id_main(a)
ID_main = a
End Sub

Public Function Get_id_main() As Integer
get_id_main = ID_main
End Function

Time si napravio promenljivu kojoj može da se pristupi od svugde iz accessa, preko set i get funkcija...Dalje, kad smo ovo napravili, potrebno je da kad izlazimo sa tekuće forme, zapamtimo šta je bio tekući rekord, jel' tako?Taj tekući rekord ćemo da stavimo u ID_main, u eventu on_lost_focus(za sad samo u prvoj formi, a posle ću ti objasniti još nešto :) )...

Private Sub Form_LostFocus()
Module1.Set_id_main(ID)
End Sub

Otvorićeš sve ostale forme i staviti u svaku u event on_got_focus sledeći kod

Private Sub Form_GotFocus()
With Me.RecordsetClone .FindFirst "[ID] = " & module1.Get_id_main()
If Not .NoMatch Then
Me.Bookmark = .Bookmark 
End If 
End With 
End Sub

Znači, sad će se desiti da kad god uđeš u drugu formu, sam ode do onoga šta je u ID_main...I to bi bilo ono što si pitao... :)A sad ono još nešto...Ali, sad imaš problem, otišao si u drugu formu, i tamo poremetio rekord, jer si nešto gledao, a tebi će i dalje da bude u ID_main ono sa prve forme? Jel' ti to odgovara, ili treba da si i ostale forme pomeraju?<učitelj_mode>Ako teba, probaj sam da smisliš šta treba da uradiš, rešenje ti je tu...(ako ovo radi :) )</učitelj_mode>Uzgred, možda ovo može i jednostavnije nekako, ali ja volEm da programiram... Ako neko ima ideju, nek se javi...

Edited February 7, 2012 by radisa

[Skyhighatrist]

Private Sub Form_GotFocus() With Me.RecordsetClone .FindFirst "[iD] = " & Module1.Get_id_main() If Not .NoMatch Then Me.Bookmark = .Bookmark End If End WithEnd Sub

Compile error: Expected: end of statementi selektuje tačku ispred FindFirst :(

[radisa]

Compile error: Expected: end of statementi selektuje tačku ispred FindFirst :(

Sorry...

Sub Form_GotFocus() 
With Me.RecordsetClone
.FindFirst "[ID] = " & ID_main 
If Not .NoMatch Then 
	Me.Bookmark = .Bookmark 
End If 
End With 
End Sub

Edited February 8, 2012 by radisa

[JozoMujica]

Lupi enter pre tačke, pa nek ide život.edit, preteče me Radiša. :D

Edited February 8, 2012 by gotivac

[Skyhighatrist]

Sad je sve super, ništa ne zakukava, samo - ne radi :P Baviću se kasnije, isproveravaću još jedared sve gde, šta...Thanks guys!

[radisa]

Sad je sve super, ništa ne zakukava, samo - ne radi :P Baviću se kasnije, isproveravaću još jedared sve gde, šta...Thanks guys!

Ajde, probaću večeras da napravim nešto slično pa da vidimo kako da nabudžimo...Samo ako budem imao snage... :(

[Skyhighatrist]

E, nemoj da se cimaš mnogo, pričam malopre telefonom sa drugarom koji mi je (možda) otvorio oči: keywords su subforms i tab control umesto navigation forma. Nisam sad u prilici da se bavim time, ali popodne/predveče ću da probam, pa javljam rezultate...

[Skyhighatrist]

Zaboravih da potvrdim ovo ozgo: sve probleme sam rešio tako što sam izbacio navigation form, i u osnovnu formu uvalio ostale tabele kao subforme kroz tab control. Sve radi kao zmaj (zasad). :)