Feltet må kun opdateres første gang

når feltet [batchnr] får focus første gang skal værdien gemmes i feltet [ostetank], herefter må feltet kun opdateres manuelt

Private Sub Batchnr_BeforeUpdate(Cancel As Integer)
Me!o_id = Me!Ostetank

Private Sub Batchnr_GotFocus()


if Me!p_type = -1 Then
        If IsNull(Me!Ostetank) Or Me!Ostetank = 0 Then
        Me!Ostetank = 200
        End If
        If Me!o_id = 100 Or Me!o_id = 200 Or Me!o_id = 300 Or Me!o_id = 400 Then
        Me!Ostetank = Me!o_id + 200
        End If
        If Me!o_id = 500 And Me!Ostetank < 1 Or Me!o_id = 600 And Me!Ostetank < 1 Then
        Me!Ostetank = Me!o_id - 400
        End If
   
    Me!o_id = Me!Ostetank
   
    End If


If Me!p_type = 0 Then
    If IsNull(Me!Ostetank) Or Me!Ostetank = 0 Then
    Me!Ostetank = 200
    End If
    If Me!o_id = 100 Or Me!o_id = 200 Or Me!o_id = 300 Or Me!o_id = 400 Or Me!o_id = 500 Then
    Me!Ostetank = Me!o_id + 100
    End If
    If Me!o_id = 600 Then
    Me!Ostetank = Me!o_id - 500
    End If
   
    Me!o_id = Me!Ostetank
   
End If

/niels