Setfocus

[VHU]

Geachte,

Ik heb een formulier met een subformulier. Als ik in het hoofdformulier op het veld klantnaam klik gaat een ander een formulier personalia open. ik vul deze form in en als ik dan op de knop sluiten klik kom ik terug in mijn hoofdformulier. Nu wil ik de focus onmiddelijk naar het subformulier verplaatsen,
De knop sluiten in de form personalia is via een gebeurtenisprocedure

Hoe kan ik dat verkrijgen?

Ik heb dit via macro "NaarBesturingselementGaan" geprobeerd maar dat lukt niet

 

[Bartuls]

Even een regeltje code toevoegen bij de code waarmee je je detail formulier sluit.
Je moet dan een .SetFocus doen voor het control op het subformulier.
Hoe je precies de verwijzing naar het control op het subformulier doet is beschreven op onderstaande sites:
http://www.functionx.com/access/Lesson27.htm
http://support.microsoft.com/kb/209099
http://www.mvps.org/access/forms/frm0031.htm

 

[VHU]

Even een regeltje code toevoegen bij de code waarmee je je detail formulier sluit.
Je moet dan een .SetFocus doen voor het control op het subformulier.
Hoe je precies de verwijzing naar het control op het subformulier doet is beschreven op onderstaande sites:
http://www.functionx.com/access/Lesson27.htm
http://support.microsoft.com/kb/209099
http://www.mvps.org/access/forms/frm0031.htm

 

[VHU]

Dank voor deze linken,

De twee laatste heb ik al gevonden via de help lijn office en windows,

Mijn probleem is waar zet ik welke code.?

 

[Bartuls]

Het antwoord geef je zelf al:

De knop sluiten in de form personalia is via een gebeurtenisprocedure

Daar dus, vlak voordat je het formulier personalia sluit.

 

[VHU]

Geachte,

Dank u voor het antwoord, zover was ik ook al maar :

deze gebeurtenis staat onder de knop sluiten
de eerste Setfocus lukt goed, maar dan krijg ik het volgende foutmelding : object vereist

???


Private Sub knpSluiten_Click()
On Error GoTo Err_knpSluiten_Click

Forms!frmAlleAutos!AutoDialoognummer.SetFocus
SubFormulier!frmOptielijnen.SetFocus
SubForm!frmOptielijnen!OLCodeOptie.SetFocus
DoCmd.Close

Exit_knpSluiten_Click:
Exit Sub

Err_knpSluiten_Click:
MsgBox Err.Description
Resume Exit_knpSluiten_Click

End Sub

MVG

 

[Bartuls]

Forms!frmAlleAutos!AutoDialoognummer.SetFocus
SubFormulier!frmOptielijnen.SetFocus
SubForm!frmOptielijnen!OLCodeOptie.SetFocus

Je kunt maar op één object de focus zetten. Drie maal een SetFocus onder elkaar is dus niet echt zinvol!
In principe krijgt de laatste dan de focus.

SubFormulier!frmOptielijnen.SetFocus is onmogelijk. Je kunt nooit direct op deze manier de Focus op een object in een subformulier zetten.

Forms!NaamHoofdformulier!SubformControl.Form!NaamSubformulier.Object.SetFocus

 

[VHU]

Geachte,

Dank u voor uw hulp.
Maar ik krijg nu de melding

"Kan het veld SubformControl niet vinden waarnaar verwezen wordt in de expressie"

Ik heb nu een paar zaken geprobeerd via de help van vba maar ik kom er niet uit.


Private Sub knpSluiten_Click()

On Error GoTo Err_knpSluiten_Click

Forms!frmAlleAutos!SubformControl.Forms!frmOptielijnen.Object.SetFocus
DoCmd.Close

Exit_knpSluiten_Click:
Exit Sub

Err_knpSluiten_Click:
MsgBox Err.Description
Resume Exit_knpSluiten_Click

End Sub