Mainform/subform

[jgriek]

Ik heb een mainform (mainformId is AutoNummering) en subform (subformId).
Na invoer van gegevens op mainform krijg ik een autonummer.
Na invoer van gegevens op subform krijg ik hetzelfde nummer als autonummer.
Tot zover goed.
Op het subform staat een knop:
stLinkCriteria = "[subformId]=" & Me![subformId]
DoCmd.OpenForm frmOpmerkingen, , , stLinkCriteria

waarmee ik een Pop-up formulier (frmOpmerkingen) met Memo-tekstveld open welke op dezelfde query gebaseerd is als het subformulier.
Zolang er gegevens in het subformulier staan werkt dit prima, maar als er verder nog geen gegevens in het subformulier (en wel in maiform) staan en ik roep het form frmOpmerkingen op krijg ik de foutmelding:
Syntaxisfout(operator ontbreekt) in query-expressie[subformId]=.
Dit vind ik ook logisch, maar hoe krijg ik het voor elkaar dat ik op deze manier toch het memoveld kan invoeren?
Iemand een idee?
Joop

 

[Guus2005]

Vul je variabele met een zinnige waarde voordat je je subform opent. Als dat niet kan zorg dan dat het form niet opent.

if Len(Nz(Me![subformId]))>0 then
    stLinkCriteria = "[subformId]=" & Me![subformId]
    DoCmd.OpenForm frmOpmerkingen, , , stLinkCriteria
else
    msgbox "Kan subform niet openen. Niet genoeg gegevens."
endif

Enjoy!

 

[jgriek]

oplossing

Ik vind dit een mooie oplossing.
Inmiddels had ik al het volgende bedacht en het werkt:
If (Not IsNull([Forms]![mainform]![Id])) Then
Me.subformId = [Forms]![subform]![Id]
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Else
Exit Sub
Niet temin toch bedankt voor de oplossing!
Joop