Kako putem openArgsa prenijeti naziv ili broj aktivnog(fokusiranog)polja!Ž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"!
romano
