- 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
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