IIF construction werkt niet

Status
Niet open voor verdere reacties.
O

Offthefield

Gebruiker
Lid geworden
27 apr 2005
Berichten
369
Ik wil een IIF constructie maken van de onderstaande regel :

Me.OLEObjects("Image" & i).Object.Picture = LoadPicture(Bestandsnaam(i))

Deze werkt goed, als er in kolom B een artikelnummer staat (en van het artikelnummer ook een JPG bestaat)

Nu wil ik een IFF contructie maken, als kolom B leeg is!! en dan moet er artikel 9999.jpg neergezet worden

ik kwam tot de volgende regel, maar deze geeft een error!!

Me.OLEObjects("Image" & i).Object.Picture = LoadPicture(IIf(Bestandsnaam(i) = "", "9999.jpg", Bestandsnaam(i)))

Heeft iemand een idee wat er fout is aan de IFF-contructie?

Code: 
Private Sub CommandButton3_Click()
''
Dim i As Integer
Dim Bestandsnummer(3) As Integer, Bestandsnaam(3) As String
'
For i = 1 To 3
'' test van 3 regels
        Bestandsnaam(i) = "c:\DOCUMENTEN\" & Cells(i + 8, 2).Text & ".jpg"
        ''
        Me.OLEObjects("Image" & i).Object.Picture = LoadPicture(IIf(Bestandsnaam(i) = "", "9999.jpg", Bestandsnaam(i)))
        ''Me.OLEObjects("Image" & i).Object.Picture = LoadPicture(Bestandsnaam(i))
        Next i
   
End Sub

Alvast bedankt voor het meedenken
 
Bestandsnaam(i) is niet leeg het pad en .jpg staat er telkens in
 
Verplaats je IIF naar het toewijzen.
Code: 
    For i = 1 To 3
        Bestandsnaam(i) = IIf(Cells(i + 8, 2).Value = "", "c:\DOCUMENTEN\9999.jpg", "c:\DOCUMENTEN\" & Cells(i + 8, 2).Value & ".jpg")
        Me.OLEObjects("Image" & i).Object.Picture = LoadPicture(Bestandsnaam(i))
    Next i
 
OctaFish,

Dit is precies wat ik wilde!

Wederom hartelijk dank voor de snelle reactie
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan