Skip to main content

AccessTr.neT


Forma Otomatik Resim ekleme

Forma Otomatik Resim ekleme

#1
FORMA OTOMATİK RESİM EKLEME

1-formunuza bir resim kutusu ekleyeceksiniz birde tckimlik nolarının geldiği metinkutusu

Private Sub Form_Current()
Resim0.Picture = "C:\resimlerim\" & Me.TCKİMLİKNO & ".JPG"
End Sub

2-Private Sub Form_Current()
On Error GoTo HATA
If IsNull(Me.TCKIMLIKNO) Then
Me.FotoDosyasi.Caption = ""
Me.Foto.Picture = ""
Else
Me.FotoDosyasi.Caption = Me.Application.CurrentProject.Path & "\" & Me.TCKIMLIKNO & ".jpg"
Me.Foto.Picture = Me.Application.CurrentProject.Path & "\" & Me.TCKIMLIKNO & ".jpg"
End If
Exit Sub
HATA:
Me.Foto.Picture = ""
End Sub

Not;Alıntıdır....
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Forma Otomatik Resim ekleme - Yazar: Puletin - 01/11/2008, 13:06
Cvp: Forma Otomatik Resim ekleme - Yazar: bayFARUK - 01/11/2008, 13:16
Cvp: Forma Otomatik Resim ekleme - Yazar: Puletin - 01/11/2008, 13:35
Cvp: Forma Otomatik Resim ekleme - Yazar: cuneyt - 01/11/2008, 20:23
Cvp: Forma Otomatik Resim ekleme - Yazar: chopper07 - 14/11/2008, 21:31
Cvp: Forma Otomatik Resim ekleme - Yazar: ceyhanatl - 07/03/2009, 12:15