Zoeken op schijf variabel maken

Status
Niet open voor verdere reacties.
O

Offthefield

Gebruiker
Lid geworden
27 apr 2005
Berichten
369
Ik ben bezig met een macro om het zoeken op de schijven variabel te maken,
in de onderstaande macro, wordt alleen gezocht op de c: schijf in : "c:\BESTANDEN"

Code: 
Private Sub ComboBox1_Change()
On Error Resume Next
[D1] = ComboBox1.Value
Const myDir = "c:\BESTANDEN\"
        With Image1
            .Picture = LoadPicture(myDir & IIf(Dir(myDir & Range("D14")) = "", "9999.jpg", Range("D14")))
            .PictureSizeMode = 1
        End With
End Sub

Nu kan ik met combobox5 (zonder kan ook) een bestandlocaties plaatsen (bv. c:\BESTANDEN\, d:\BESTANDEN\ ect.) , deze staat in B1 (hieronder een deel van de macro die aangepast wordt), maar nu werkt niet?

Code: 
[D1] = ComboBox1.Value
[B1] = ComboBox5.Value
Const myDir = "[B1]"

Wat doe ik fout en heeft iemand een oplossing?


Alvast hartelijk dank
 
Haal de " tekens om [B1] weg.
 
Lees eens bij de hulp van de VBEditor het lemma 'const'
 
edmoor, snb

Wederom bedankt, ik heb bepaalde deel van de macro gewijzigd in de hier onderstaande code
en hij werkt, top!!!

Code: 
[D1] = ComboBox1.Value
[B1] = ComboBox5.Value
myDir = [B1]
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan