Sn. BalckEagle'nin veritabanina resim ekleme konusuna vermiş olduğu örneği kendi ihtiyacıma göre uyarladım.
Ancak Rapora getirilecek resimleri Form üzerindeki seçenek düğmelerinden kumanda etmek için ne gibi bir düzenleme yapmak gerekiyor?

Ehliyet ve Kimlik resimlerini birlikte veya sadece ehliyet getirildiği zaman mevcut yerleşimde sıkıntı yok ancak sadece kimlik gelsin istediğimizde sanırım birde yerleşim problemi çıkabilir. Bu sıkıntıları nasıl aşabiliriz?

Kısaca ehliyet resimleri varsa kimlik yerleşim yeri şu anki halinde, sadece kimlik resimlerini rapor alırsak üst koordinatları "0" olacak şekilde ayarlayabilirmiyiz? (Kenarlık Stilini daha sonra saydam yapacağım)

"İşyerinde şu an paydos edeceğim için konuyu eveden takip edeceğim"

Sanırım gizleme olayını buldum. Henüz denemedim ama dahaönce metin kutularının gizlenip gösterilmesi olayında kullandığımız "visible=True veya False" olayı vardı onu deneyeceğim ama sayfa düzenini nasıl yapacağım konusunda fikrim yok.

Private Sub Report_Current()



Select Case Me.Tbl_Personel

 Case EhliyetÖn = -1

 ehliyet1c = True

 

 Case EhliyetArka = -1

 ehliyet2c = True

 

 Case KimlikÖn = -1

 kimlik1c.Visible = True

 

 Case KimlikArka = -1

 kimlik2c.Visible = True

 

 Case Else

 ehliyet1c = False

 ehliyet2c = False

 kimlik1c.Visible = False

 kimlik2c.Visible = False

End Select



End Sub

Yukarıdaki kodları bir kaç farklı şekilde denedim ama ne yaptıysam beceremedim. Demek ki bulduğumu zannetmişim.

Sorunum cozulmustur. Cozum ve guncellenmıs ornek daha sonra eklenecektır

Formun Açıldığında olayına

Private Sub Report_Open(Cancel As Integer)

With Forms.frm_Isci

 ehliyet1c.Visible = .Onay575

 ehliyet2c.Visible = .Onay577

 kimlik1c.Visible = .Onay589

 kimlik2c.Visible = .Onay591

 

 If .Onay575 + .Onay577 = 0 Then

 kimlik1c.Top = 0

 kimlik2c.Top = 0

 End If

 

End With

End Sub

Yazıldığında işlem tamam oluyormuş.

1. Mesajdaki örnneği güncelleyecektim ancak daha önce sayfanın altında bulunan eklentiyi güncelle butonunu bulamadım.