alt formdan seçilen alana göre üst forma resim gelmesi

[herdogan]

Merhabalar;
fotoden isimli formda resim ekleme, gösterme bölümü var.
Birde sınıf2 isimli bir form var. Formda sınıf alanı seçilince sınıf listesi açılıyor. Bu listeden bir öğrencinin no alanına girildiğinde form üzerinde o öğrencinin resmi gelebilir mi? fotoden formunu alt form olarak eklemeyi denedim olmadı.

 

[Taruz]

Merhaba..

Alt formunuzun(öğrenci alt formu) kaynağına foto alanını da ekleyiniz.. Sonrasında da No metin kutusunun Girilidiğinde olayına bu konu yazınız..:

[COLOR=#0600ff]On[/COLOR] [COLOR=#0600ff]Error[/COLOR] [COLOR=#0600ff]Resume[/COLOR] [COLOR=#0600ff]Next[/COLOR]
 [COLOR=#0600ff]If[/COLOR] [COLOR=#0600ff]Not[/COLOR] [COLOR=#0600ff]IsNull[/COLOR][COLOR=#000000]([/COLOR][COLOR=#000000][[/COLOR]foto[COLOR=#000000]][/COLOR][COLOR=#000000])[/COLOR] [COLOR=#0600ff]Then[/COLOR]
  Forms![COLOR=#000000][[/COLOR]sınıf2[COLOR=#000000]][/COLOR]![COLOR=#000000][[/COLOR]Resim8[COLOR=#000000]][/COLOR].Picture [COLOR=#008000]=[/COLOR] [COLOR=#000000][[/COLOR]foto[COLOR=#000000]][/COLOR]
    [COLOR=#0600ff]Else[/COLOR]
    Forms![COLOR=#000000][[/COLOR]sınıf2[COLOR=#000000]][/COLOR]![COLOR=#000000][[/COLOR]Resim8[COLOR=#000000]][/COLOR].Picture [COLOR=#008000]=[/COLOR] [COLOR=#fb0000]""[/COLOR]
 
  [COLOR=#0600ff]End[/COLOR] [COLOR=#0600ff]If[/COLOR]
      Forms![COLOR=#000000][[/COLOR]sınıf2[COLOR=#000000]][/COLOR]![COLOR=#000000][[/COLOR]Resim8[COLOR=#000000]][/COLOR].[COLOR=#0600ff]Requery[/COLOR]
 
[COLOR=#0600ff]Exit[/COLOR] [COLOR=#0600ff]Sub[/COLOR]

 

[herdogan]

Sayın Taruz;
Yazdıklarınızı uyguladım. Olmadı.Örnek üzerinde göstermeniz mümkünmü acaba

 

[Taruz]

Örneğinize uygulanmış hali ektedir.. Önceki mesajımda resim nesnesini ekleyin demeyi unutmuşum.. Uygulayamamanız doğal

 

[herdogan]

Çok teşekkür ederim sayın Taruz. Elinize sağlık

 

[assenucler]

Hata nedeni ne olabilir?

Sayın Taruz;

Günaydın..

Dosyada "fotoden" form açılırken aşağıdaki hata mesajını alıyorum.

Hatalı yaptığım nedir?

Teşekkürler...

 

[modalı]

Sayın assenucler,

İlgili fotoğraf yerinde mi? (BÜŞRA.jpg belirtilen yolda mı?)

 

[herdogan]

Kodları şu şekilde değiştiriniz
Private Sub Form_Current()
On Error GoTo Form_Current_Err
If IsNull([foto]) Then
Forms!fotoden!Resim8.Picture = ""
Else
Forms!fotoden!Resim8.Picture = [foto]
End If

Form_Current_Exit:
Exit Sub

Form_Current_Err:

Forms!fotoden!Resim8.Picture = ""

Resume Form_Current_Exit
End Sub

 

[assenucler]

Sayın modalı;

Merhaba...

Hocam dikkatsizliğin bu kadarı olur... Teşekkürler.



Sayın herdogan;

İlginiz ve yanıtınız için size de teşekkürler.