Ga naar

[malawi]

Hallo

Hoe kan ik met een button naar een bepaalde record in een ander formulier afhankelijk van een veldnaam.

Malawi

 

[OctaFish]

Als ik het goed begrijp, wil je een tweede formulier openen op basis van een actief record op het eerste formulier? Zo ja: gebruik de parameter OpenArgs om bij het openen van het tweede formulier het ID veld van het eerste record mee te nemen naar het tweede record, en gebruik op het tweede formulier de OpenArgs parameter om het record op te zoeken.

 

[malawi]

Ja, ehm hoe zet ik dit om in VBa. Dit lukt mij helaas nog niet.

Malawi

 

[OctaFish]

Een voorbeeldje is zo nagebouwd, bijvoorbeeld in Noordenwind.

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

Overigens is dit voorbeeld nog simpeler, want deze filtert het tweede formulier op de waarde uit de eerste. De truc die ik hierboven aanhaalde zou het formulier met alle records openen, en de juiste opzoeken.

 

[malawi]

Ik heb het omgezet in mijn database, maar werkt niet.

Private Sub Ga_naar_aanvraag_Click()
stDocName = "Frmaanvraag"
    stLinkCriteria = "[Aanvraagnummer]=" & "'" & Me![Aanvraagnummer] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub

Tevens wil ik vervolgens het huidige formulier afsluiten. "Afdeling"

Wat gaat er niet goed.

 

[OctaFish]

Niet elk voorbeeldje kun je zomaar overnemen
Waarschijnlijk is [Aanvraagnummer] een getal. In dat geval mogen er geen quootjes omheen staan.

     stLinkCriteria = "[Aanvraagnummer]=" & Me.Aanvraagnummer

Een formulier sluiten zou ik zo doen:

DoCmd.Close AcForm, Me.Form.Name

 

[malawi]

Dit werkt naar volle tevredenheid. Bedankt.

Malawi