rowsourse van gesloten bestand

[Theophiel]

Hallo beste forumleden,

Graag had ik wat hulp van jullie gekregen voor mijn probleem met een formulier.

Ik haal met een combobox mijn gegevens uit een andere worksheet, dit lukt me zolang deze DB openstaat.

In rowsource schrijf ik

'[Database renners 1.0.xlsm]Geboortedatum'!A1:A250

hoe moet ik deze regel verder aanpassen als C en dropbox en de map training de locatie is?

alvast bedankt op voorhand!

 

[Jack Nouws]

Wazige vraag zonder vb

 

[HSV]

Die hoef je niet aan te passen als DB open staat.

 

[Theophiel]

bedankt voor de reacties,

Ik haal met een combobox van workbook" tijdrijden"de namen van renners uit een lijst "Geboortedatum! A1:A250" van workbook "Database renners" , nu is het mijn vraag hoe het verder moet wanneer ik gegevens wil halen vanuit de gesloten database "Database renners met als locatie C\dropbox\training\Database renners. Rowsource indien mogelijk met Sub Userform_Initialize omdat ik nog niet eruit ben hoe het werkt met een andere PC via dropbox.

Ik zal een voorbeeldbestandje aanmaken .

Alvast bedankt op voorhand!

 

[Theophiel]

Dag beste forumleden,

Ik hoop met onderstaande een duidelijk beel te geven van wat ik wil bereiken

Ik haal met een combobox van workbook" tijdrijden"de namen van renners uit een lijst "Geboortedatum! A1:A250" van workbook "Database renners" , nu is het mijn vraag hoe het verder moet wanneer ik gegevens wil halen vanuit de gesloten database "Database renners met als locatie C\dropbox\training\Database renners. Rowsource indien mogelijk met Sub Userform_Initialize zodat ik het pad later nog kan aanvullen omdat ik nog niet eruit ben hoe het werkt met een andere PC via dropbox.

hierbijgevoegd twee bestandjes.



Bekijk bijlage training.xlsmBekijk bijlage Database renners 2.2.xlsm
Alvast bedankt op voorhand!

 

[snb]

Gebruik geen rowsource om een combobox/listbox te vullen.
Wat is erop tegen een werkboek te openen ?

 

[Theophiel]

hallo snb,

Bedankt voor je reactie,

Het werkboek openen kan natuurlijk ook, ik volg mijn ervaring van excel 2007 toe had ik regelmatig de foutmelding "onvoldoende gegeugen".
Misschien kan het wel geopend worden als alleen lezen?

welk is de betere manier om een combobox te vullen?

alvast bedankt!

 

[Theophiel]

hallo snb,

Bedankt voor je reactie,

Het werkboek openen kan natuurlijk ook, ik volg mijn ervaring van excel 2007 toe had ik regelmatig de foutmelding "onvoldoende gegeugen".
Misschien kan het wel geopend worden als alleen lezen?

welk is de betere manier om een combobox te vullen?

alvast bedankt!

 

[snb]

Sub Userform_initilaize()
   with getobject("G:\OF\Database renners2.2.xlsm")
     sn=sheets(1).cells(1).currentregion
     .close 0
   end with

   listbox1.list=sn
End Sub

Zie ook: http://www.snb-vba.eu/VBA_Fill_combobox_listbox.html

 

[Theophiel]

Van harte bedankt snb!
ik ga dit later op de dag invoegen, ook bedankt voor de link!

 

[Theophiel]

Dag snb,
ik heb de code ingevoegd en aangepast maar krijg hem niet werkende

Sub Usersform_Initialize()
     With GetObject("C:\Users\Theophiel\Dropbox\Database renners2.2.xlsm")
     sn = Sheets("Geboortedatum").Cells(1).CurrentRegion
     .Close 0
   End With

 CBxRenner.List = sn
    
End Sub

zou je me kunnen zeggen wat er nog fout loopt?

Alvast bedankt op voorhand!

 

[snb]

punt vergeten:

Sub Usersform_Initialize()
With GetObject("C:\Users\Theophiel\Dropbox\Database renners2.2.xlsm")
sn = .Sheets("Geboortedatum").Cells(1).CurrentRegion
.Close 0
End With

CBxRenner.List = sn

End Sub

 

[Theophiel]

Hallo snb,

Helaas lukt het me niet dit werkende te krijgen, het pad van het bestand klopt nochthans. Ik krijg ook geen foutmelding.
Bekijk bijlage training.xlsm

zou je me nog wat kunnen verder helpen?

Alvast bedankt op voorhand!

 

[Theophiel]

Na 2 volle dagen forums zitten afschuimen heb ik uiteindelijk een oplossing gevonden die werkt:

Private Sub Userform_Initialize()
    With GetObject("C:\Users\Theophiel\Dropbox\Database renners 2.2.xlsm")
        CBxRenner.List = .Sheets(1).Cells(1).CurrentRegion.Value
        .Close 0
    End With


End Sub