Avatar billede jhavn Nybegynder
14. april 2008 - 21:09 Der er 2 kommentarer

Mappeoversigt i en formular (mugs)

Hej Mugs
Du gave dette svar for et stykke tid siden, jeg har kigget lidt på dit svar og kan ikke få det til at virke, nok fordi jeg har rodet med det. Du skriver at du vil kigge på et direkte link (hyberlink), kunne du lokkes til at kigge på det igen

Her er hvad jeg har lavet af ulykker

Private Sub Kombinationsboks41_BeforeUpdate(Cancel As Integer)
Function GetFiles()
Dim stName As String
Dim tmpList As String
On Error GoTo err_FillFiles
stName = Dir("d" & ":" & "\" & "mappe" & "\" & vcpr & "\*.*")
Do While stName <> ""
On Error Resume Next
If (GetAttr(stdir & stName) And vbDirectory) <> vbDirectory Then
'File Already open?
If Err.Number = 5 Then Err.Clear
If stName <> "." Or stName <> ".." Then
'FileList.Add Item:=(stName)
tmpList = tmpList & stName & ";"
End If
End If
'Get Next entry
stName = Dir
Loop
GetFiles = Left(tmpList, Len(tmpList) - 1)
exit_FillFiles:
Exit Function
err_FillFiles:
If Err.Number = 71 Then
MsgBox AccessError(Err.Number) _
& "  Prøv venligst igen.  ", vbCritical + vbOKOnly, _
"Fejl ved læsning af drev " & stdir
End If
Resume exit_FillFiles
End Function
Avatar billede mugs Novice
14. april 2008 - 21:12 #1
Kan du give et link til det oprindelige spørgsmål?
Avatar billede jhavn Nybegynder
14. april 2008 - 21:15 #2
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester