Wisselen tussen twee subformulieren

[paul.jacobs]

Hallo
Heb de volgende uitdaging:

Heb een formulier met daarin 2 subformulieren.
In subformulier 1 zit een selectievakje
Als ik het vakje op 0 zet wil ik dat alleen de waarde van subformulier 2 vernieuwd wordt.
Is de waarde -1 wil ik dat hij niets doet.
Ik maak bijna alles met een macro maar hier kom ik helaas niet uit.
Ik heb Access 2007.
Alvast bedankt!

 

[Floor E]

In een macro weet ik het niet maar in VBA wel. Ik kan het wel even voor je maken als je een voorbeeldje post.

 

[paul.jacobs]

Ha floor.

Zou je me kunnen vertellen hoe ik via VB de focus verplaats van subformulier a naar subformulier b?
De rest krijg ik wel voor elkaar.

Paul

 

[Floor E]

Ik zal je op weg helpen maar ik doe het even via VBA.

'Formulier sluiten:

DoCmd.Close

Formulier openen:

DoCmd.OpenForm "Formuliernaam", , , stLinkCriteria

Specifiek veld op formulier verversen (ja kan hiermee vanuit formulier A in formulier B veld x verversen:

Forms![Formuliernaam].veldnaam.Requery

Focus leggen naar specifiek veld in je formulier

Veldnaam.SetFocus

Hoe maak je dit aan in VBA?

• Maak een nieuwe knop aan
• Klik op annuleren
• Rechter muisknop > eigenschappen > Tabblad overig > verander de knopnaam bij naam (begin met cmd en dan knopnaam cmdKnopnaam)
• Tabblad opmaak > Bijschrift > voer de tekst in die op de knop staat
• Tabblad > gebeurtenis > knopje met puntjes (helemaal rechts) > opbouw functie programma code > OK
• Kopier bovenstaande code en pas deze aan

Voorbeeld code:

Private Sub cmdFocus()
'Deze knop ververst de gegevens van formulier B en legt de focus op veld X

Forms![FormulierB].VeldnaamX.Requery  'Verversen van gegevens
DoCmd.Close 'Sluit huidig formulier
DoCmd.OpenForm "FormulierB", , , stLinkCriteria 'Open formulier B
VeldnaamX.SetFocus   'Leg de focus op veldnaamX in Formulier B

End Sub

 

[paul.jacobs]

Hallo

Nou hier kom ik niet uit vrees ik…
Heb even een voorbeeld gemaakt zoals het er uit ziet.
Wat ik wil is dat als je in het formulier links een vinkje uitzet de naam naar het formulier rechts gaat.

Hopelijk kan je hier wat mee…
Alvast bedankt
Bekijk bijlage voorb paul.zip

 

[Floor E]

Hallo Paul,
ik ben er toch langer mee bezig geweest maar ik ben eruit (ik ben zo iemand die de bedoeling helemaal uitzoekt).

Achteraf zijn het maar 4 regels code

Veel plezier ermee.

 

[paul.jacobs]

super!
dank je wel!
:thumb::thumb: