Hjælp til problem med data i underformular

Man kan gøre det, når underformularer skal anvendes på forskellig vis hver for sig, at man laver en underformular for hver brug og så skifter mellem dem ligesom det sker når der anvendes faner. Det er egenskaben kildeobject (eng: sourceobject ) for kontrolelementet der skal kune indeholde en valgt underformular der skal ændres ved en hensigtsmæssig hændelse. (i vba)

bvirk,

Ja det kunne da være en løsning, men hvordan pokker laver man en hoved formular med underformular som skiftes på bagrund af en ændring i f.eks et tekst felt.


Jeg mener hvordan gør man i praktisk med at lave 2 underformular i samme hoved formular uden at de er synlige begge på samme tid.

hvad er kode for at åbne en form i et object??

Her er en lille demo hvor der skiftes subform ved at taste på en af to etiketer. Det kan sikkert også laves så det at man skriver tekst i et felt skifter subform:
https://drive.google.com/open?id=0B7nnvgTdhUrbU1VTZjhKR19OS1k

Tak for demo,

Jeg har nu prøvet mig frem og tilbage, men syns snart det er lige meget hvad jeg gør så vil den ikke.

Er jo kun en praktikant, og jeg har prøvet meget, men her er hvad jeg sidst har prøvet

Men her er hvad jeg sidst prøvede:

Private Sub Kundenavn_Change()
 
    If Kundenavn = "Kunde1" Then

        Me.UnderordnetObjekt28 = "subfrmDetaljer1"
        Else
    Me.UnderordnetObjekt28 = "subfrmDetaljer2"
   
       

      End If
End Sub
     
Jeg er helt nede på knæ og bønfalder om at blive ledt på rette vej.....jeg er helt sikker på at jeg har fået skruet nogle forkerte ting sammen.

Som sagt, har prøvet flere forskellige så blev nok forvirret til sidst, da jeg skrev.

sidste forsøg var sådan her

Private Sub Kundenavn_Change()
 
    If Kundenavn = "Copenhagen Sensor Technology A/S" Then

        UnderordnetObjekt28.SourceObject = "subfrmDetaljer1"
        Else
        UnderordnetObjekt28.SourceObject = "subfrmDetaljer2"
   
       

 
    End If
End Sub

men det er kun subfrmDetaljer2 der indlæses

Så fandt jeg ud af det......utroligt som man kan stirre blindt på problemet uden at se at der mangler noget.......

den skulle se sådan ud for at virke

Private Sub Kundenavn_Change()

    If Kundenavn.Text = "Copenhagen Sensor Technology A/S" Then

      subform.SourceObject = "subfrmDetaljer1"
        Else
        subform.SourceObject = "subfrmDetaljer2"
   
       

 
    End If
End Sub

underobject28 er omdøbt til subform, men det var text der manglede efter "Kundenavn

Blot et bud
Har feltet i subform(ene) som er bundet til et felt på hovedformen samme navn i subfrmDetaljer1 og subfrmDetaljer2. Det kan godt lade sig gøre at de har forskelligt navn, men så skal man sørge for noget - enten explicit eller vha. relationer.

Et simpelt eksempel med udgangspunkt i min demo database. Lad os antage at feltet 'sagsid' i tabel 'arbejde' blev omdøbt 'sid' - og den ikke var relateret til feltet 'id' i tabel 'sager'. For at det skulle spille skulle formular 'sager' have kodemodul:

Private Sub Form_Open(Cancel As Integer)
    korsel_Click
End Sub

Private Sub arbejde_Click()
    mySubform.SourceObject = "arbejde"
    mySubform.LinkChildFields = "sid"
End Sub


Private Sub korsel_Click()
    mySubform.SourceObject = "korsel"
    mySubform.LinkChildFields = "sagsid"
End Sub

de 2 subformular er lavet ud fra samme tabel, jeg har bare udeladt det ene felt i en af dem

Det spiller nu foreløbig, som det skal.....der skal lige laves lidt detaljer på formularende, men ellers køre det som det skal , takker mange gange for gode eksempler.

Velbekommen
Ser at du efterfølgende udelader 'me.' prefixing af statements - ja 'me.' er virkningsmæssigt overflødig i formes og raporters objektklassemodul - overflødig når det bare prefixes objekter - anden brug af 'me' kan være smart nok!
Når jeg ser andre svarere konsekvent bruger det tænker jeg faktisk at de ikke er klogere - på den anden side, omend overflødigt virkningsmæssigt, er det en synsmæssig Tag-ning af kodelinierne: 'denne kode tilhører et objektklassemodul'
Det er lidt synd at når forelskelse i objekt dropdown'en blokere for brug af name completion dropdown'en (ctrl-space), grundet at man ikke tilegner sig et forhold til stavning af navne på ting -- et forhold der også utilsigtet animeres af guidernes nødvendigvis intetsignende objektnavngivning - f.eks 'Tekst53'
'Me' er vba's navn for dette:
https://en.wikipedia.org/wiki/This_%28computer_programming%29

Et simpelt eksempel:
Et KLASSE MODUL (class module i project explorer vinduet) indeholer

Public name
Public tel

Function init(n, t)
    name = n
    tel = t
    Set init = Me
End Function


Dette kan anvendes af kode i et STANDARD MODUL (module i project explorer vinduet)

' to omit a syntactic limitation in vba
Function o(obj): Set o = obj: End Function

Sub showMyObjCall()
    personInfo o(New Person).init("kurt hansen", "12345678")
End Sub

Sub personInfo(personObj)
    Debug.Print "name=" & personObj.name
    Debug.Print "telphone=" & personObj.tel
End Sub

Hej bvirk,

Tak for dit indslag, super med lidt yderligere forklaring.

Ja, jeg brugte jo først Me.  uden egentlig at vide hvad det gjorde, dog havde jeg fået den opfattelse at den på en eller anden måde arbejdede hurtigere i kode indlæsning eller hvordan man siger det. kan dog godt se på din forklaring at det nok snare hænger sammen med hvor man laver sin kode henne.

mht til dit tidligere indslag #8
så ser det faktisk ud til at jeg nu har det problem som du omtaler, dog har feltet samme navn i begge subforms, men i den ene hvor jeg bruger en kombi boks til at kalde værdier frem til de andre felter, der står det pludselig blankt på den subform. underligt for det virkede første gang, så jeg er lidt bange for at der er lavet en fejl et sted som får uheldig udfald på lige det felt i den subform. Det handler nok om hvordan de 2 subforms er lavet og relationer, men lidt svært at forklare må jeg nok indrømme uden egentlig at kunne henvise til noget.