Finna saknade tal

for iX  = 25 to 55
  if ix = rst("nr") then
  ' Hit. DoNothing
  else
  strMissing = strMissing & rst("Nr") & ";"
  end if
next


Dette vil give en streng der indeholde de manglende numre adskilt
af semikolon. Det er IKKE testet.

Jag førsøker køra din kod med
For ix = DMin("KollKvitt", "KollKvitto", "TAXINR = Forms.Importera.Taxi") To
          DMax("KollKvitt", "KollKvitto", "TAXINR = Forms.Importera.Taxi")
men får kompileringsfel med ix som odefinierad variabel.

Hvis feltet forms.importera.taxi er et tal:
For ix = DMin("[KollKvitt]", "KollKvitto", "[TAXINR] = " & Forms.Importera.Taxi) To
          DMax("[KollKvitt]", "KollKvitto", "[TAXINR] = " & Forms.Importera.Taxi)

og hvis det er et tekstfelt:
For ix = DMin("[KollKvitt]", "KollKvitto", "[TAXINR] = '" & Forms.Importera.Taxi & "'") To
          DMax("[KollKvitt]", "KollKvitto", "[TAXINR] = '" & Forms.Importera.Taxi & "'")

KollKvitto ær en urvalsfråga som listar alla kvittonr i fæltet KollKvitt før taxibilen med taxinr=Forms.Importera.Taxi.
Jag vill alltså hitta de kvittonr som saknas mellan DMin och Dmax.

Skal det være i en urvalsfråga eller vil du have det som en tekststreng?

Jag vill helst ha svaret i en fråga.

Function FindLedigeTal(intStart As Integer, intSlut As Integer)
'*******************
' Finder ledige numre og afleverer
' resultatet som en streng
'
' Rettet 22-09-2007
'*******************
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strSQL As String
Dim strLedige As String
Dim iX As Integer

Set conn = CurrentProject.Connection
Set rst = New ADODB.Recordset

For iX = intStart To intSlut
strSQL = "SELECT Nummer FROM tblNummer Where Nummer = " & iX & ";"
'MsgBox strSQL
rst.Open strSQL, conn
If rst.BOF And rst.EOF Then
    ' No hit
    strLedige = strLedige & iX & ";"
    Else
    ' Hit
End If
rst.Close
Next
Set rst = Nothing
conn.Close
Set conn = Nothing

FindLedigeTal = strLedige
End Function

Funktionen modtager et start og et slut nummer og afleverer en semikolon separeret streng.

Tabellen hedder tblNummer og indeholder feltet nummer.

Sub cmd01_Click()
'*******************
' Finder ledige numre i en serie
' og skriver dem til en tabel
'
' Rettet 22-09-2007
'*******************
Dim conn As ADODB.Connection
Dim strSQL As String
Dim arrLedige
Dim iX As Integer

Set conn = CurrentProject.Connection

' Kald til funktionen FindLedigeTal() resultatet
' lægges i et array
arrLedige = Split(FindLedigeTal(25, 55), ";")

' Arrayet lægges i en tabel
For iX = 0 To UBound(arrLedige) - 1
    strSQL = "INSERT INTO tblLedigtNummer(Nummer) Values(" & arrLedige(iX) & ");"
    'MsgBox strSQL
    conn.Execute strSQL
Next

conn.Close
Set conn = Nothing

End Sub

Fin løsning. Jeg har også kun kunnet få det til at fungere ved at lave en tekststreng med semikolonsepererede tal. Det er lidt omstændigt, men det virker. Fin løsning.

Ved et klik på en knap laves et kald til funktionen FindLedigeTal() og den returnede tekststreng lægges i et array ved hjælp af funktionen Split().
Arrayet gennemløbes og data overføres til en tabel ved navn tblLedigtNummer der har et felt der hedder nummer.

jesperfjoelner:

Mjaeh, man kunne jo godt have lavet det som en funktion der lægger værdien af iX i en tabel, når der er et hul i nummerserien. Så havde man undgået teksstrengen og arrayet, men det var blevet sværere at læse og forstå. Tror jeg.

Hej ffsoft!
Jag har varit upptagen med annat och inte kunnat testa ditt førslag førræn nu.
Jag får ett kompileringsfel på Dim conn As ADODB.Connection med meddelandet :
"Egendefinierad typ har inte definierats". Vad ær galet?

Jag kanske skulle tillægga att kompileringsfelet kommer i functionen FindLedigeTal().

Løsningen er lavet til ADO og ikke til DAO.

Under Tools > Referencer skal du have kryds i Microsoft ADO 2.6 (eller lignenden)
Måske kan eksemplet laves i DAO i stedet, så du undgår en ny reference i databasen.

Jag har kryssat i Microsoft ADO 2.8 for DDL and Security, men får samma kompileringsfel.

Hvilken version af Access bruger du?? Det er testet i en Access 2000

Jag anvænder access 2003

stänger frågan