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...
Market takip programı
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.
2. soru için yeni konu açınız.
2. sorunu ben okulda yapıverem gardaşım
ç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 ?
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
Aynı formun açıldığında olayına
kodu ekle.
-ü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
Konuyu Okuyanlar: 1 Ziyaretçi