Tegelijkertijd een formulier sluiten en een andere openen

[Bentm]

Hoi,

Ik zou graag, via een knop, een formulier willen openen en tegelijkertijd hetzelfde formulier sluiten. Normaal is dit geen probleem, door naast de Open actie ook een DoCmd.Close in het stukje code te zetten. Echter, ik werk met een subform en de actie loopt niet. Ikweet niet precies hoe ik dan het foofdformulier moet sluiten. Heeft er iemand raad?

Private Sub Knop18_Click()
On Error GoTo Err_Knop18_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frmContactDetail"
    
    stLinkCriteria = "[ContactpersoonIDPK]=" & Me![ContactpersoonIDPK]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
  [COLOR="darkred"]  DoCmd.Close acForm, Me.Name[/COLOR]
    
Exit_Knop18_Click:
    Exit Sub

Err_Knop18_Click:
    MsgBox Err.Description
    Resume Exit_Knop18_Click
    
End Sub

Grt

 

[Bentm]

Sorry, voor de te snelle post.... ik heb het al uitgevogeld!

 

[raymin]

Hoi, zou je eens willen vertellen hoe precies? ik zit met precies hetzelfde probleem.

Ik ben wel een vreselijke beginner en zou ook wel willen weten hoe je de "normale" close in de knop kunt krijgen.

 

[Bentm]

Hey,
Ja, via een knop kun je met de wizard een formulier laten openen. Via bewerken kun je naar de VB code zien. Wanneer je bij de achterliggende code bent (welke je niet eens hoeft te snappen) type je DoCmd.Close asForm... dat moet voldoende zijn.

 

[OctaFish]

Bijna goed.... typfoutje vermoed ik

DoCmd.Close acForm, Me.Name

Deze regel zet je vóór de regel waarmee je het nieuwe rapport opent.

 

[raymin]

Super bedankt!

Wat een snel forum eigenlijk.. .