22-01-2016, 10:19 (En son düzenleme: 22-01-2016, 15:10 londolor.)
Arkasaşlar ben K.Çekmece Belediyesi Temizlik İşleri bünyesinde memurum bu tarz bir programa ihtiyacımız var dosyayı güncelledim ben Tek Tablodan 1 tabloda birkaç altformla misal carfursa a ait kesilen cezalar 1 formda yapılan sözleşmeler bir formda ama aynı tabloda olsun ayrıca her alt forma ayrı ayrı fotoğraf ekleyebileyim istiyorum son olarak raporlamada hem genel rapor hemde sadece o şirkete ait raporlama yapabilmek istiyorum yol gösterirseniz çok sevinirim yapılan iş kamu yararına kullanılacaktır.
Sn londolor;
Tablonun tasarim degisikligine ihtiyaci var gibi duruyor. 2015, 2016 ve sonraki yillar icin tabloda yeni alanlar eklenmesi sorun cikarabilir. Mudurlukler ile m3 haneleri de sutun halinde degilde satir gibi dusunulurse form veya sonra ki raporlama islemlerinde kriter belirleyerek veri suzdurebilirsiniz.
Resim ile ilgili proseduru asagida ki kodlar ile degistirebilirsiniz.
Private Sub Form_Current()
On Error GoTo hata
If Me.resim = "" Then Me.cerceve.Picture = CurrentProject.Path & "\resimyok.jpg" Else Me.cerceve.Picture = Me.resim
If Me.resim = "" Then Me.cerceve2.Picture = CurrentProject.Path & "\resimyok.jpg" Else Me.cerceve2.Picture = Me.resim2
If Me.resim = "" Then Me.cerceve3.Picture = CurrentProject.Path & "\resimyok.jpg" Else Me.cerceve3.Picture = Me.resim3
Exit_hata:
Exit Sub
hata:
MsgBox "Resim bulunamadý.." _
& Chr(10) & "Resim dosyanýz silinmiþ," _
& " yeri veya ismi deðiþmiþ olabilir..", vbInformation, "Hata"
Me.cerceve.Picture = ""
Me.cerceve2.Picture = ""
Me.cerceve3.Picture = ""
Resume Next
End Sub
Bide üstat bu Resim yoku yapamıyorum Siz bi dosya ksayolu açsanız masaüstü ben aynı isimle bi klasör açsam mesela C:\Users\huseyin.yaman\Desktop\arşiv bu olsa resimlerin olduğu yer koda nasıl yansıtıcam bunu
