Birden fazla resim yüklemeden problem

Katılım
28 Haziran 2007
Mesajlar
246
Excel Vers. ve Dili
Excel 2003 Tr
Merhaba arkadaşlar aşağıdaki kodu çalıştıramadım. Şöyleki resimleri boşaltan satırları silince sadece ilk resmi yüklüyor. resimleri boşaltan kodlar varken de hiç birşey yüklemiyor. Yardımcı olur musunuz ?

Private Sub ALAN01_Change()
On Error Resume Next
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Picture = LoadPicture("d:\PERSONEL\resimler\" & alan01.Value & ".jpg")Foto1.PictureSizeMode = fmPictureSizeModeStretch
Foto1.Picture = LoadPicture("d:\PERSONEL\resimler\" & alan01.Value & "kimlikon.jpg")
Foto2.PictureSizeMode = fmPictureSizeModeStretch
Foto2.Picture = LoadPicture("d:\PERSONEL\resimler\" & alan01.Value & "kimlikarka.jpg")
Foto3.PictureSizeMode = fmPictureSizeModeStretch
Foto3.Picture = LoadPicture("d:\PERSONEL\resimler\" & alan01.Value & "ehliyet1On.jpg")
foto4.PictureSizeMode = fmPictureSizeModeStretch
foto4.Picture = LoadPicture("d:\PERSONEL\resimler\" & alan01.Value & "ehliyet1arka.jpg")
foto5.PictureSizeMode = fmPictureSizeModeStretch
foto5.Picture = LoadPicture("d:\PERSONEL\resimler\" & alan01.Value & "ehliyet2on.jpg")
foto6.PictureSizeMode = fmPictureSizeModeStretch
foto6.Picture = LoadPicture("d:\PERSONEL\resimler\" & alan01.Value & "ehliyet2arka.jpg")
foto7.PictureSizeMode = fmPictureSizeModeStretch
foto7.Picture = LoadPicture("d:\PERSONEL\resimler\" & alan01.Value & "ehliyet3On.jpg")
foto8.PictureSizeMode = fmPictureSizeModeStretch
foto8.Picture = LoadPicture("d:\PERSONEL\resimler\" & alan01.Value & "ehliyet3arka.jpg")
foto9.PictureSizeMode = fmPictureSizeModeStretch
foto9.Picture = LoadPicture("d:\PERSONEL\resimler\" & alan01.Value & "ehliyet4on.jpg")
foto10.PictureSizeMode = fmPictureSizeModeStretch
foto10.Picture = LoadPicture("d:\PERSONEL\resimler\" & alan01.Value & "ehliyet4arka.jpg")
foto11.PictureSizeMode = fmPictureSizeModeStretch
foto11.Picture = LoadPicture("d:\PERSONEL\resimler\" & alan01.Value & "pasaport1.jpg")
foto12.PictureSizeMode = fmPictureSizeModeStretch
foto12.Picture = LoadPicture("d:\PERSONEL\resimler\" & alan01.Value & "pasaport2.jpg")
foto13.PictureSizeMode = fmPictureSizeModeStretch
foto13.Picture = LoadPicture("d:\PERSONEL\resimler\" & alan01.Value & "pasaport3.jpg")
foto14.PictureSizeMode = fmPictureSizeModeStretch
foto14.Picture = LoadPicture("d:\PERSONEL\resimler\" & alan01.Value & "pasaport4.jpg")

KimlikOn = alan01.Value & "kimlikon"
KimlikArka = alan01.Value & "kimlikarka"
Ehliyet1On = alan01.Value & "ehliyet1On"
Ehliyet1Arka = alan01.Value & "ehliyet1arka"
Ehliyet2On = alan01.Value & "ehliyet2on"
Ehliyet2Arka = alan01.Value & "ehliyet2arka"
Ehliyet3On = alan01.Value & "ehliyet3On"
Ehliyet3Arka = alan01.Value & "ehliyet3arka"
Ehliyet4On = alan01.Value & "ehliyet4on"
Ehliyet4Arka = alan01.Value & "ehliyet4arka"
Pasaport1 = alan01.Value & "pasaport1 "
pasaport2 = alan01.Value & "pasaport2"
pasaport3 = alan01.Value & "pasaport3"
pasaport4 = alan01.Value & "pasaport4"
If Err.Number <> 0 Then
For i = 1 To 14
Controls("Image" & i).Picture = LoadPicture("")
Next i

End If
On Error GoTo 0
End Sub
 
Üst