AccessTr.neT

Tam Versiyon: Market takip programı
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
arkadaşlar bir marked takip programı yapıyorum.takıldığım bir kaç yer oldu onları size sorayım istedim..

1) her kayda farklı resim eklemek istiyorum nasıl yapabilirim kodları var ama çalıştıramıyorum..

2) ekte belirttiğim dosyada asama1 bir formunda kişinin T.C. kimlik numarasını seçeceğim veya gireceğim bilgilerini sıralatıcak..

önerilerinizi ve yardımlarınızı bekliyorum...

projeödevi.rar
resim eklemenin çalışabilmesi için müsteri tablosuna sno adında otomatik sayı alanı eklendi, birincil anahtar kaldırıldı. Resim alanı not olarak değiştirildi.

2. soru için yeni konu açınız.

sled_projeödevi.rar
2. sorunu ben okulda yapıverem gardaşım Lol Lol Lol
çok teşekkür ederim Sn. ozanakkaya yardımınız için ...
aynı kod ile gerekli değişiklikleri yapıp ürün formuna yapıyorum olmuyor acaba modul mü eklicez bidaha ?
-Ürün tablosunu tasarım görünümünde aç,
-ürünresmi alanın ole nesnesi olan veri türünü not olarak değiştir,

-Ürünler formunu tasarım görünümünde aç,
-UrunResim adında metin kutusu ekle, metin kutusunun denetim kaynağını ürünresmi olarak belirle,
-İlişkili nesne çerçevesini silip ürünresmi adında resim denetimi ekle.(Forma metin kutusu eklediğin yer)


-Formun geçerli olduğunda olayına

On Error GoTo err_Form_Current

If Not Me!UrunResim = "" Or Not IsNull(Me!UrunResim) Then
Me!ürünresmi.Picture = Me!UrunResim
Else
Me!ürünresmi.Picture = ""
End If

exit_Form_Current:
Exit Sub

err_Form_Current:
MsgBox Err.Description
Resume exit_Form_Current


Aynı formun açıldığında olayına

On Error GoTo Err_Form_Open

If IsNull(Me!UrunResim) Or Me!UrunResim = "" Then
Else
Me!ürünresmi.Picture = Me!UrunResim
End If
Exit_Form_Open:
Exit Sub

Err_Form_Open:
MsgBox Err.Description
Resume Exit_Form_Open

kodu ekle.
çok teşekkür ederim sizin sayenizde mantığını anladım Img-grin
Sayfalar: 1 2