Database

[Sary]

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]

1 uur geleden, 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

 

 

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]

Op 30/5/2022 om 01: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

Mag afgesloten worden