[Access 97] subformulier automatisch updaten

Pagina: 1
Acties:

  • Tomatoman
  • Registratie: November 2000
  • Laatst online: 08:06

Tomatoman

Fulltime prutser

Topicstarter
Op een formulier heb ik twee subformulieren. Het ene subformulier (frmParamDivisie) bevat een combobox waar een divisie geselecteerd kan worden, het andere subformulier (frmParamKsnplaats) bevat een combobox waar alle kostenplaatsen binnen die divisie in verschijnen.

Als een andere divisie wordt gekozen, moet de combobox met kostenplaatsen opnieuw worden gevuld. Hoe doe ik dat? :?

Het volgende probeersel werkt niet - de lijst met kostenplaatsen wordt niet bijgewerkt.
code:
1
2
3
4
5
6
7
// code in frmParamDivisie:
Private Sub ComboDivisie_AfterUpdate()
    If Not (IsNull(Forms!frmHoofdformulier) Or _
      IsNull(Forms!frmHoofdformulier!frmParamKsnplaats)) Then
      Forms!frmHoofdformulier!frmParamKsnplaats.Requery
    End If
End Sub

Een goede grap mag vrienden kosten.


Verwijderd

Je verwijzingen naar de formulieren zijn niet goed volgens mij. Naar het aktieve form verwijs je altijd met Me. Naar andere forms kun je het makkelijkste verwijzen met Forms("frmNaam"). Naar subformulieren kun je het beste verwijzen met Forms("frmHoofdformulier")!subformcontrolnaam.
Dat is dus niet de naam van je subformulier maar de naam die je je subformcontrol hebt gegeven!

Als je nou in de form_AfterUpdate event van het subformulier Divisie de volgende tekst zet:
code:
1
Forms("frmHoofdformulier")!frmSubform.Requery

dan komt alles goed!