Salakhetdinov Shamil
mcp2004 at mail.ru
Tue Mar 25 09:19:04 CDT 2014
Hi Charlotte -- WithEvents could be used here, I'm sure, but I'd not recommend to use it :) I'd code: Parent form: ========= Private Sub Form_Load() Me.{{subform control name}}.Form.InitSubform("{{Initial record key}}") End Sub Public Sub LoadRecord(ByVal recordKeyValue As String) ' TODO: load parent form record End Sub Subform: ======= Public Sub InitSubForm(ByVal recordKeyValue As String) selectRecord(recordKeyValue) End Sub Private Sub txtSearchValue_Change() If (Nz(txtSearchValue.Text, "") <> "") Then selectRecord(txtSearchValue.Text) End if End Sub Private Sub selectRecord(ByVal recordKeyValue As String) Me.Parent.LoadRecord(RecordKeyValue) ' TODO: ... select record in subfom End Sub -- Shamil Tue, 25 Mar 2014 06:54:25 -0700 from Charlotte Foust <charlotte.foust at gmail.com>: >No you didn't, and I also abandoned them in the solution I came up with. > So far I haven't had any luck with WithEvents in 2013. The sink never >seems to recognize the raised event, but I haven't been using custom >classes. > >The subform isn't bound to the parent form. It uses a recordset for >navigation (it allows a text entry to search for another record) and when >it finds a match, it tells the parent form to load that record. The parent >form in turn passes a key to which record the subform should be pointing to >when the form first loads. > >Charlotte > > >On Mon, Mar 24, 2014 at 3:39 PM, Salakhetdinov Shamil < mcp2004 at mail.ru >wrote: > >> Charlotte -- >> >> But I haven't proposed to use WithEvents, have I? :) >> >> <<< and allowed the subform to search in it's (snapshot) recordset for the >> desired record>>> >> Well, subform loads before parent form but how does your subform get >> search/filtering criteria to search its (snapshot) recordset by? >> >> -- Shamil >> >> Mon, 24 Mar 2014 15:27:29 -0700 from Charlotte Foust < >> charlotte.foust at gmail.com >: >> >Because I was determined to make it work the other way, of course! LOL >> > >> >Actually, I eventually worked out that way of doing it so that the people >> >who will be maintaining it are more likely to understand than WithEvents. >> > I added a loaddata routine to the parent form, removed any master/child >> >links on the subform, and allowed the subform to search in it's (snapshot) >> >recordset for the desired record and pass the key into the loadData >> routine >> >on the parent form. It isn't elegant but these guys are engineers, not >> >database developers, and they'll be able to understand this. >> > >> >Charlotte. >> > >> > >> >On Mon, Mar 24, 2014 at 1:48 PM, Salakhetdinov Shamil < mcp2004 at mail.ru >wrote: >> > >> >> Hi Charlotte -- >> >> >> >> Why not just define a >> >> >> >> Public Sub ProcessEvent(ByVal eventName As String, ParamArray >> eventArgs()) >> >> MsgBox eventName & ", Params Count = " & UBound(eventArgs) + 1 ' >> test >> >> End Sub >> >> >> >> in the Parent form and call it from a subform like that >> >> >> >> Me.Parent.ProcessEvent "Test event", "Prm1", 123.45 ' test call >> >> -- Shamil >> >> >> >> >> >> Mon, 24 Mar 2014 13:23:54 -0700 from Charlotte Foust < >> >> charlotte.foust at gmail.com >: >> >> >I know I've done this before but it probably required a class, which I >> >> >hesitate to use in this app. Has anyone else had problems raising and >> >> >sinking events between forms in Access 2010/2013? >> >> > >> >> >Charlotte