Default Value - Standardværdi med kriterier

Jeg prøver:

Du har en formular, hvor du taster nye data ind.

Jeg har en cbo boks til  hovedindex, den fylder jeg sådan:

Private Sub Form_Load()
    For i = 1 To 99
        Select Case i
        Case Is < 9
            Me.cboHovedindex.AddItem "0" & i
        Case Else
            Me.cboHovedindex.AddItem i
        End Select
    Next
End Sub

Jeg har også en cmd butten til ny post, her er koden sådan:

Private Sub CmdTilføjPost_Click()
  DoCmd.GoToRecord , , acNewRec
  Dim NytNummer As Long
    If IsNull(DMax("Right([Lagernummer], 8)", "Vare", "Left([Lagernummer], 2) =" & Me.cboHovedindex)) Then
        NytNummer = 1
    Else
        NytNummer = DMax("Right([Lagernummer], 8)", "Vare", "Left([Lagernummer], 2) =" & Me.cboHovedindex) + 1
    End If
    Me.Lagernummer = Me.cboHovedindex & Format(NytNummer, "00000000")
 
End Sub


Vær opmærksom på at du skal have valgt i  Hovedindex, inden du trykker på ny post .


Håber det løser dit problem ;-))
kabbak

ret lige
    Case Is < 9

til   
Case Is < 10

Tak for svaret kabbak

Med lidt ændringer og indsættelse i fokuslinien, fik jeg det til at virke. Det kom til at se således ud:
 
Private Sub LAGERNUMMER_GotFocus()
  Dim NytNummer As String
 
  If IsNull(DMax("Right([Lagernummer], 8)", "T_LAGERNUMMER", "Left([Lagernummer], 2)
  =" & Me.HID_NUMMER)) Then
  NytNummer = "00000001"
     
  Else
 
  NytNummer = (DMax("Right([Lagernummer], 8)", "T_LAGERNUMMER", "Left([Lagernummer],
  2) =" & Me.HID_NUMMER)) + 1
  End If
   
  Me.LAGERNUMMER = Me.HID_NUMMER & Format(NytNummer, "00000000")
 
End Sub

Og dermed point til kabbak!

Send lige et svar kabbak

et svar ;-))