Hente filnavne ind i tabel fra mappe på c:\

"men jeg kan ikke få det til at fungere."

what problem are you having?

Jeg har forsøgt mig med følgende kode, men når jeg compile får jeg følgende fejl: User-defined type not defined ved nr. 2 linie: Dim cnn As ADODB.Connection.

Function HentFilListe(FilMappe As String)

Dim cnn As ADODB.Connection
Dim rsFilNavne As ADODB.Recordset
Dim strQuery As String
Dim FilNavn As String
Dim FilMappe As String

Set cnn = CurrentProject.Connection
Set rsFilNavne = New ADODB.Recordset

FilNavn = "C:\winfinans\"

strQuery = "SELECT * FROM Filnavne order by mdb asc"
rsFilNavne.Open strQuery, cnn, adOpenStatic, adLockOptimistic

If rsFilNavne.RecordCount > 0 Then
rsFilNavne.MoveFirst
FilNavn = Dir(FilMappe & "*.mdb")  ' Hent det første filnavn.
Do Until FilNavn = ""
With rsFilNavne
.AddNew
!mdb = FilNavn
.Update
End With

FilNavn = Dir    ' Hent næste datafilnavn.
rsFilNavne.MoveNext
Loop

Else
MsgBox "Der findes ingen filer i " & FilMappe, vbExclamation, "Ingen filer"
End If

rsFilNavne.Close
cnn.Close

End Function

You need a referecne to ADO.

In tools Reference you should be able to find Mocrosoft ActiveX Data Objects  2.8 or there abouts.

På Thomas Jepsen's hjemmeside MakeITEasy.dk ligger der en funktion indlæs filnavne:

http://www.makeiteasy.dk/Home.asp

Hej terry,

Nu kan jeg godt få lov at compile.Jeg har lavet koden i en mappe, modules, i vb. Når jeg skal kopiere den over til det sted den skal bruges, nemlig i tilknytning til knappen i formularen, skal jeg vælge et eller andet 'ved klik'. Men det kan da ikke være en hændelse når det er en funktion, eller hvad?

Hej mugs,

Tak for tippet. Jeg forsøger og vender tilbage...

en hændelse når det er en funktion

Jo - En hændelsesprocedure kan være både en Function eller en Sub.

Nu ser min kode således ud:

Private Sub Importer_Click()

Dim cnn As ADODB.Connection
Dim rsFilNavne As ADODB.Recordset
Dim strQuery As String
Dim FilNavn As String

Set cnn = CurrentProject.Connection
Set rsFilNavne = New ADODB.Recordset

FilNavn = "C:\winfinans\"

strQuery = "SELECT * FROM Filnavne order by mdb asc"
rsFilNavne.Open strQuery, cnn, adOpenStatic, adLockOptimistic

If rsFilNavne.RecordCount > 0 Then
rsFilNavne.MoveFirst
FilNavn = Dir(FilMappe & "*.mdb")  ' Hent det første filnavn.
Do Until FilNavn = ""
With rsFilNavne
.AddNew
!mdb = FilNavn
.Update
End With

FilNavn = Dir    ' Hent næste datafilnavn.
rsFilNavne.MoveNext
Loop

Else
MsgBox "Der findes ingen filer i " & FilMappe, vbExclamation, "Ingen filer"
End If

rsFilNavne.Close
cnn.Close

End Sub


Men når jeg klikker på knappen i formularen får jeg en fejlmedelelse: Kan ikke finde inputtabellen eller forespørgslen filnavne. Og når jeg debugger viser den gult ved: rsFilNavne.Open strQuery, cnn, adOpenStatic, adLockOptimistic

Isnt the name of the table "001tblFilNvn"?

In the SQL you have ""SELECT * FROM Filnavne ..."!

I can also see another problem in your code

First you have

FilNavn = "C:\winfinans\"

Then you have which overwrites FilNavn

FilNavn = Dir(FilMappe & "*.mdb")  ' Hent det første filnavn.

I havent tested your code but I think you should have

FilMappe = "C:\winfinans\"

Jeg har nu skiftet to liner ud med:

strQuery = "SELECT * 001tblFilNvn order by mdb asc"
rs001tblFilNvn.Open strQuery, cnn, adOpenStatic, adLockOptimistic

Men det virker ikke?

Jeg er ingen ørn til vb.
Er der en af jer som kan skrive den nøjagtige kode?

If you can send me your db then I'll take a look for you.

ekspertenATsanthell.dk

AT = @

Hej terry,

Tak - det gør jeg.

Private Sub Command0_Click()
On Error GoTo Error_Command0_Click
  Const strFilmappe = "C:\Temp\"
  Dim rst As ADODB.Recordset
  Dim strSQL As String
  Dim FilNavn As String
 
  Set rst = New ADODB.Recordset
  strSQL = "SELECT fldFilename FROM 001tblFilNvn"
 
  rst.Open strSQL, CurrentProject.Connection, adOpenStatic, adLockOptimistic

  FilNavn = Dir(strFilmappe & "*.mdb")

  Do Until FilNavn = ""
    With rst
      .AddNew
      !fldFilename = FilNavn
      .Update
    End With
    FilNavn = Dir
  Loop

  rst.Close
  Set rst = Nothing

Exit_Command0_Click:
  Exit Sub

Error_Command0_Click:
  Select Case Err.Number
    Case 3219
    Case 3021
    Case 2501
    Case Is < 0
      Resume Next
    Case Else
      MsgBox Err.Number & ": " & Err.Description, vbOKOnly + vbCritical, "Error in procedure 'Command0_Click'"
  End Select
  Resume Exit_Command0_Click

End Sub

Al din sortering og movefirst m.m. er unødvendig kode.
Dir tager filnavne 'in no particular order' så du har først noget ud af at sortere bagefter og det gør du bare i den query du bygger på din tabel.

Min kode har fejlcheck for eksisterende filnavne så hvis der ikke er nye, så dukker der ikke flere op i tabellen.
Der er ingen check for om filer er slettet.

Dim cnn As ADODB.Connection
Dim rsFilNavne As ADODB.Recordset
Dim strQuery As String
Dim FilNavn As String

Set cnn = CurrentProject.Connection
Set rsFilNavne = New ADODB.Recordset

FilMappe = "C:\winfinans\"

strQuery = "SELECT * FROM 001tblFilNvn order by Filnavne asc"
rsFilNavne.Open strQuery, cnn, adOpenStatic, adLockOptimistic

If rsFilNavne.RecordCount > 0 Then
rsFilNavne.MoveFirst
FilNavn = Dir(FilMappe & "*.mdb")  ' Hent det første filnavn.
Do Until FilNavn = ""
With rsFilNavne
.AddNew
!Filnavne = FilNavn
.Update
End With

FilNavn = Dir    ' Hent næste datafilnavn.
rsFilNavne.MoveNext
Loop

Else
MsgBox "Der findes ingen filer i " & FilMappe, vbExclamation, "Ingen filer"
End If

rsFilNavne.Close
cnn.Close


And as Hugo points out the code could be slightly different, but this works.

DET VIRKER, TERRY!

TAK! Du skal have dine points!

øh hvordan er det lige at man tildeler points?

You should be able to select from a list of those who have given an answer

Thanks Dorthe

Hugo points out that you could optimize the code a little by removing the ORDER BT inthe SQL and also .MoveNext on the recordset which isnt really necessary when you are just adding records.

Hej Terry og Hugo,

Tak for det ekstra tip.