probleem met button

[fransdelta]

heb op een start formulier een button geplaatst die een formulier moet openen waar nieuwe bomen kunnen ingevoerd worden.

nu opend deze button wel het formulier maar laat geen invoeren toe. en is ook niet leeg

code eigenschap van button:

Private Sub btnOpenNieuweBoom_Click()
Dim stDocName As String

stDocName = "frmNieuweBoom"
DoCmd.OpenForm stDocName
DoCmd.GoToRecord , "frmNieuweBoom", acNewRec

"frmNieuweBoom " is een copie gemaakt van het "frmTotaalBomen"

of is er misschien een andere manier om dit te doen

Bedankt voor de hulp

 

[fransdelta]

Al opgelost
is dus weer een bewijs dat je door zoeken alles kan oplossen