Waarde in ander form zetten

[doncuomo]

Hoi,

Als ik op een knop druk in mijn form wil ik dat hij een nieuw form aanmaakt en automatisch de waarde invult van max +1. Maar hij pakt hem niet. Alles wat onder else staat is eigenlijk onbelangrijk

Weet iemand waarom dit het niet doet?

Private Sub Command10_Click()
On Error GoTo Err_Command10_Click

If IsNull(Me.Combo2) Then

    
    DoCmd.OpenForm "Rubrieken_Aanpassen", acNormal
    
     Dim maximum2 As Integer
     
    maximum2 = (DMax("rubrieknummer", "dbo_rubriek") + 1)
    
    DoCmd.GoToRecord , , acNewRec
    
    rubrieknummer.Value = maximum2

  
    
Else


    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Rubrieken_Aanpassen"
    
    stLinkCriteria = "[rubrieknummer]=" & Me![Combo2]
    DoCmd.OpenForm stDocName, , , stLinkCriteria


    
    End If

 

[OctaFish]

Heb je al geprobeerd te controleren met een Msgbox of de DMAX wel wordt opgehaald en aan de variabel toegewezen?

Michel

 

[Floor E]

Sla het record eerst op alvorens een nieuwe aan te maken:

DoCmd.RunCommand acCmdSaveRecord

En verander
maximum2 = (DMax("rubrieknummer", "dbo_rubriek") + 1)
in
maximum2 = (DMax("rubrieknummer", "dbo_rubriek") ) + 1

Laatste tip, plaats alle variabelen bij elkaar, boven in (dus meteen onder Private sub enz enz)