+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Rapora seçenekle resim getirmek (/konu-rapora-secenekle-resim-getirmek.html)
Rapora seçenekle resim getirmek - iscinar - 21/11/2011
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"
Cvp: Rapora seçenekle resim getirmek - iscinar - 21/11/2011
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 SubCvp: Rapora seçenekle resim getirmek - iscinar - 22/11/2011
Sorunum cozulmustur. Cozum ve guncellenmıs ornek daha sonra eklenecektır
Cvp: Rapora seçenekle resim getirmek - iscinar - 22/11/2011
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
1. Mesajdaki örnneği güncelleyecektim ancak daha önce sayfanın altında bulunan eklentiyi güncelle butonunu bulamadım.