Tæl mellem numre

Forudsætninger:
- Dine start- og slutnumre ligger i tabellen "Tlf"
- Slut er større end start  ;o)
- Du har oprettet en ny tabel, "Numre", med et enkelt felt "Nummer" af typen Long

Antallet
Kan du finde i en forespørgsel:
- SELECT Tlf.NummerFra, Tlf.NummerTil, [NummerTil]-[NummerFra]+1 AS Antal FROM Tlf;
Eller i VBA:
- Debug.Print DLookup("NummerTil", "Tlf") - DLookup("NummerFra", "Tlf") + 1

Nummerserien kan du f.eks. danne i en tabel:

Sub VisNumre()
  Dim i As Long
 
  DoCmd.SetWarnings False
  DoCmd.RunSQL "DELETE * FROM Numre"  ' Tøm tabel
 
  For i = DLookup("NummerFra", "Tlf") To DLookup("NummerTil", "Tlf")
    DoCmd.RunSQL "INSERT INTO Numre(Nummer) SELECT " & i
  Next i
  DoCmd.SetWarnings True
 
  DoCmd.OpenTable "Numre"
End Sub

Bedre sent end aldrig  ;o)
Takker for point