Ga naar inhoud

Database

Sary

Door Sary
in Archief Microsoft Office

 Delen

Aanbevolen berichten

Sary Meewerkend lid

Sary

Geplaatst:
Geplaatst:

Beste experten,

 

Ik wil volgende path linken aan mijn database. moet ik dan de volledige url kopiëren?
 

https://puratosgroup.sharepoint.com/:x:/r/sites/O365-DEPT-Labo-belcolade/Shared Documents/General/Database 2022.xlsm 2.xlsm?d=w3d457f0cd5cb4797b9534dd0ce8b5702&csf=1&web=1&e=O40hla

 

 

 

 

Private Sub OB_00_Click()
LB_00.Clear
  mijnfolder = ThisWorkbook.Path & "\Vroege" & "\"
    mijnbestand = Dir(mijnfolder & "\*.Doc*")
        Do While mijnbestand <> ""
            LB_00.AddItem mijnbestand
        mijnbestand = Dir
    Loop
End Sub

 

 

Sary Meewerkend lid

Sary

Geplaatst:
  • Auteur
Geplaatst:
  Op 29/5/2022 om 21:20, Sary zei:

Beste experten,

 

Ik wil volgende path linken aan mijn database. moet ik dan de volledige url kopiëren?
 

https://puratosgroup.sharepoint.com/:x:/r/sites/O365-DEPT-Labo-belcolade/Shared Documents/General/Database 2022.xlsm 2.xlsm?d=w3d457f0cd5cb4797b9534dd0ce8b5702&csf=1&web=1&e=O40hla

 

 

 

 

Private Sub OB_00_Click()
LB_00.Clear
  mijnfolder = ThisWorkbook.Path & "\Vroege" & "\"
    mijnbestand = Dir(mijnfolder & "\*.Doc*")
        Do While mijnbestand <> ""
            LB_00.AddItem mijnbestand
        mijnbestand = Dir
    Loop
End Sub

 

 

Vergroten  

Nog ter info:

 

Ik heb dit zo gedaan maar dit zal niet kloppen..

 

Private Sub OB_00_Click()
LB_00.Clear
  https://puratosgroup.sharepoint.com/:x:/r/sites/O365-DEPT-Labo-belcolade/Shared Documents/General/Database labo/Database 2022.xlsm 2.xlsm?d=w3d457f0cd5cb4797b9534dd0ce8b5702&csf=1&web=1&e=RqGNo6
    mijnbestand = Dir(mijnfolder & "\*.Doc*")
        Do While mijnbestand <> ""
            LB_00.AddItem mijnbestand
        mijnbestand = Dir
    Loop
End Sub

Sary Meewerkend lid

Sary

Geplaatst:
  • Auteur
Geplaatst:
  Op 29/5/2022 om 23:05, Sary zei:

Nog ter info:

 

Ik heb dit zo gedaan maar dit zal niet kloppen..

 

Private Sub OB_00_Click()
LB_00.Clear
  https://puratosgroup.sharepoint.com/:x:/r/sites/O365-DEPT-Labo-belcolade/Shared Documents/General/Database labo/Database 2022.xlsm 2.xlsm?d=w3d457f0cd5cb4797b9534dd0ce8b5702&csf=1&web=1&e=RqGNo6
    mijnbestand = Dir(mijnfolder & "\*.Doc*")
        Do While mijnbestand <> ""
            LB_00.AddItem mijnbestand
        mijnbestand = Dir
    Loop
End Sub

Vergroten  

Mag afgesloten worden

Gast
Dit topic is nu gesloten voor nieuwe reacties.
 Delen
Ga naar topic overzicht
Logo

OVER ONS

PC Helpforum helpt GRATIS computergebruikers sinds juli 2006. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen. Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!

SITEMAP

×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.