AccessTr.neT
Market takip programı - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Market takip programı (/konu-market-takip-programi--14580.html)

Sayfalar: 1 2

Market takip programı - sametx20 - 30/04/2012

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


Cvp: takip programı - ozanakkaya - 30/04/2012

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


Cvp: takip programı - fero - 30/04/2012

2. sorunu ben okulda yapıverem gardaşım Lol Lol Lol

Cvp: Market takip programı - sametx20 - 30/04/2012

ç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 ?

Cvp: Market takip programı - ozanakkaya - 30/04/2012

-Ü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.

Cvp: Market takip programı - sametx20 - 01/05/2012

çok teşekkür ederim sizin sayenizde mantığını anladım Img-grin