Skip to main content

AccessTr.neT


Rapora seçenekle resim getirmek

Rapora seçenekle resim getirmek

Çözüldü #1
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"
.rar Resim Ekleme.rar (Dosya Boyutu: 128,62 KB | İndirme Sayısı: 44)
Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Son Düzenleme: 22/11/2011, 21:08, Düzenleyen: iscinar.
Cevapla
Çözüldü #2
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.
Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Son Düzenleme: 21/11/2011, 23:34, Düzenleyen: iscinar.
Cevapla
Çözüldü #3
Sorunum cozulmustur. Cozum ve guncellenmıs ornek daha sonra eklenecektır
Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Cevapla
Çözüldü #4
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.
Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Son Düzenleme: 22/11/2011, 20:55, Düzenleyen: iscinar.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da