Openargs nog niet onder de knie...

[btl]

Goedemorgen,

Ik ben aan het stoeien om enkele gegevens uit formulier 1 (verslag) over te nemen in formulier 2 (acties). Gebaseerd op de info van vooral Octafish gebruik ik:

Dim stDocName As String
 Dim stLinkCriteria As String
DoCmd.Close
stDocName = "F_vervolgacties"
DoCmd.OpenForm "F_vervolgacties", , , , acAdd, acDialog, stLinkCriteria
stLinkCriteria = Me.Id.Value & "|" & Me.Account.Value & "|" & Me.Contactpersoon.Value
End SubEenmaal in het nieuwe formulier de volgende:

Private Sub Form_Load()
'------------------------------------------------------------------------------------------------
'Inlezen van de variabelen
'------------------------------------------------------------------------------------------------
If Not IsNull(Me.OpenArgs) Then
    Dim strLijst() As String
    On Error Resume Next
    strLijst = Split(Me.OpenArgs, "|", -1)
    Me.[Verslagid] = strLijst(0)
    Me.[Account] = strLijst(1)
    Me.[Contactpersoon] = strLijst(2)
End If

En dan...werkt het niet, vast door iets wat ik doe. Maar
* nieuw formulier openen lukt prima
* de gegevens overnemen niet dus, krijg een foutmelding bij de regel (stLinkCriteria = Me.Id.Value & "|" & Me.Account.Value & "|" & Me.Contactpersoon.Value)

Wat doe ik fout???

 

[OctaFish]

Je gaat jezelf voor het hoofd slaan, vrees ik

stDocName = "F_vervolgacties"
stLinkCriteria = Me.Id.Value & "|" & Me.Account.Value & "|" & Me.Contactpersoon.Value
DoCmd.OpenForm "F_vervolgacties", , , , acAdd, acDialog, stLinkCriteria

 

[btl]

Dag OctaFish,

Een typisch gevalletje bomen en bos :d

De code is nu:

Private Sub Knop102_Click()
Dim stDocName As String
 Dim stLinkCriteria As String
DoCmd.Close
stDocName = "F_acquisitieverslag"
stLinkCriteria = Me.Id.Value & "|" & Me.Account.Value & "|" & Me.Contactpersoon.Value
DoCmd.OpenForm "F_vervolgacties", , , , acAdd, acDialog, stLinkCriteria
End Sub

Ik krijg opnieuw een foutmelding op dezelfde regel (stlinkcriteria).

Moet bij "stdocname = f_acquisitieverslag" het huidige formulier staan of het nieuwe (te openen) formulier? In de vorige post had ik de nieuwe neergezet. Maar ook met de huidige naam lukt het niet . Ook als ik minder gegevens samenvoeg (bv. alleen Id & "|") krijg ik dezelfde melding.

Ideeën waar het aan kan liggen?

 

[OctaFish]

Ik hoop dat je een goede hoofdpijn verzekering hebt; kijk eens naar onderstaande code van jou:

[B]DoCmd.Close[/B]
stDocName = "F_acquisitieverslag"
stLinkCriteria = [B]Me.[/B]Id.Value & "|" & [B]Me.[/B]Account.Value & "|" & [B]Me.[/B]Contactpersoon.Value

Je haalt hier waarden op uit een gesloten formulier!

stDocName = "F_acquisitieverslag"
stLinkCriteria = Me.Id.Value & "|" & Account.Value & "|" & Contactpersoon.Value
DoCmd.Close

 

[btl]

Yes voor elkaar! Super bedankt... (ik zal het afsluiten)