formulier correct sluiten

[STORMT]

Ik heb een access 2003 bestand.
Hierin bestaat het formulier “FRM nietingeschreven”. Vanuit dit formulier wordt “FRM aanvraagverwerken”geopend, waarbij het aanvraagnummer uit “FRM nietingeschreven” wordt meegenomen en gegevens van dit aanvraagnummer wordt dan getoond.

Ik zou willen dat “FRM ingeschreven” wordt gesloten als ik naar “FRM aanvraagverwerken”.
Dit krijg ik niet voor elkaar.
Hieronder de code van de knop om “FRM aanvraagverwerken” te openen.



Private Sub Knop25_Click()
On Error GoTo Err_Knop25_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "FRM aanvraagverwerken"

stLinkCriteria = "[aanvraagnummer]=" & "'" & Me![aanvraagnummer] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Knop25_Click:
Exit Sub

Err_Knop25_Click:
MsgBox Err.Description
Resume Exit_Knop25_Click

End Sub


Heeft iemand een tip om dit op te lossen?
BVD

 

[OctaFish]

Zoiets bijvoorbeeld:

Private Sub Knop25_Click()
Dim stDocName As String, stLinkCriteria As String

         stDocName = "FRM aanvraagverwerken"
         stLinkCriteria = "[aanvraagnummer]=" & "'" & Me![aanvraagnummer] & "'"
         DoCmd.OpenForm stDocName, , , stLinkCriteria
[B][COLOR="blue"]         DoCmd.Close acForm, “FRM nietingeschreven” [/COLOR][/B]

End Sub

Overigens: probeer de volgende keer code in de Code tag te zetten

 

[STORMT]

Octafish,

Bedankt voor jouw snelle reactie.
Het werkt!!

Wat bedoel met gebruik in je code een tag?

 

[OctaFish]

Zoals je kunt zien, staat mijn code in een aparte opmaak. Zo zie je sneller wat code is en wat tekst. Dat doe je door je code te selecteren, en vervolgens op de knop <Code> (de knop met het # teken) te klikken.
Als de vraag is opgelost, mag je hem ook nog op opgelost zetten! Doe je met een linkje rechts ondering...