Select spørgsmål

Altså der er et filnavn og et nr i hver record bare så i ikke er i tvivl

Følgende burde virke fra VB. Om der er smartere måder fra VBA (som køres fra Access, går jeg ud fra), ved jeg ikke:

  Dim recFiler As Recordset 'Recordset med filer og navne
  Dim FilNavn as string    'Aktuel fil der skal slettes
  Dim Nummer                'Nr på fil der skal slettes 

  Nummer = val(inputbox("Filnummer på fil der skal slettes"))

  'Recordset med alle numre og filer dannes
  'nr : tabel med numre
  'fil: tabel med filer
  'Filer: Tabelnavn

  Set recFiler = m_DB.OpenRecordset _
    ("SELECT nr, fil FROM Filer ORDER BY nr", dbOpenSnapshot)
   
  'Der loopes gennem Recordsettet og filer slettes

  Do While Not recFiler.EOF
    if Nummer = recFiler!nr then
      FilNavn = recFiler!fil
      if vbyes = Msgbox("Slet filen : " & FilNavn, VbYesNo) then
        kill Filnavn 
      end if
    end if
    recFiler.MoveNext
  Loop

Det er forudsat, at HELE stien gemmes i FilNavn. Ellers virker 'Kill FilNavn' ikke... Så står der kun selve filnavnet i din tabel, skal der altså stå f.eks.

Kill "c:\MappeMedFiler\" & FilNavn

/Martin

PS. Jeg har valgt at loope gennem hele recordsættet - hvis databasen er meget stor, kan det tage lidt tid. Alternativt kan du bare direkte nappe den post fra databasen hvor nr=Nummer. Men min løsning har åbnet muligheden for at slette flere filer på een gang :o)

Den finder ingen records af en eller anden grund.

fandt fejlen.
If Nummer = Val(recFiler!deletenr) Then
Der manglede Val() kommandoen.
Men tak for hjælpen :)