[ rribaric @ 02.12.2004. 17:12 ] @
Imam nekoliko polja cbosifra1,cbosifra2,cbosifra3........ Želio bih da u ovisnosti koje je od njih aktivno(fokusirano)da putem .OpenArgs prenesem u sljedeću formu broj 1,2,3..... ili ime polja ovisi o situaciji. Dali tko ima kakav prijedlog. Konkretno imam polja gdje unosim relacije za putne naloge;nih može biti više za isti dan a to znači i više šifara relacije. Šifrarnik sam napravio u vidu listboxa u kojem kad kliknem na određeni zapis(relaciju) cod radi sljedeće gasi formu Sifrarnik a u formi unosa putnog naloga u polje cbosifra1 upisuje sifru relacije! Ovo su ta dva koda: Private Sub lstsearch_dblClick(Cancel As Integer) 'Ako je double-clicks u listi, 'taD showRecord button was clicked If Not IsNull(lstsearch) Then ShowRecord_Click End If End If End Sub Private Sub ShowRecord_Click() 'Find a selected record, then close the search dialog box Rem provijerava dali je aktiviran record Dim stDocName As String stDocName = "stranaB" If IsNull([Forms]![artK_maska]!IDD) Then MsgBox "Niste odabrali komitenta" Exit Sub Else If IsFormOpenDM(stDocName) Then ' TU JE PROBLEM ŠTO KAD IZ BILO KOJEG POLJA AKTIVIRAM 'SIFRARNIK PROMIJENE I UPIS SE UVIJEK ODNOSE NNA Cbosifra1 'Ja bi u ovisnosti koje je polje aktivno trebao mijenjat cbosifra1,cbosifra2......... Forms!StranaB!cbosifra1 = Me.lstsearch.Column(1) Else Forms!PregledB!cbosifra1 = Me.lstsearch.Column(1) End If 'Close the dialog box DoCmd.Close acForm, Me.Name, acSaveNo ' Forms!ulazelementi.Refresh 'provjerava što je otvoreno i u ovisnosti o tome refresha subformu 'ovo radimo zbog toga što unosartikla pozivamo i s forme unosulaza i pregled If IsFormOpenDM(stDocName) Then Forms!StranaB!cbosifra.Refresh Else Forms!PregledB.Refresh End If End If End Sub Problem je što uvijek mjenja polje cbosifra1,iako treba promijenit cbosifra2 koje je aktivno! Nadam se da sam dobro prezentirao problem! I slažem se sa «zidarom» da je "Svako resenje radja nove probleme"! |