AccessTr.neT
Köprü Ekleme Uygulaması - 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ığı: Köprü Ekleme Uygulaması (/konu-kopru-ekleme-uygulamasi.html)

Sayfalar: 1 2

Köprü Ekleme Uygulaması - notrino - 21/09/2018

Merhabalar,

Ekli resimde standart bir Excel sayfasında köprü ekleme menüsünün açılmış halini görüyorsunuz. Bu sayede ilgili hücreye, istediğim nesnenin path'ini atayabiliyorum. Access'te böyle bir şey bulamadım. Yani gerek form üzerinden veri girişinde gerekse tablo üzerinden böyle bir pencere açamıyoruz. Amacım otomatik atama yapmak falan değil, sadece bu menü açılsın yeter, ben "Görüntülenecek metin" kısmında oluşan dosya path'ini elimle de kopyala yapıştır yapabilirim. Nasıl çözülebilir? Tşk.

[Resim: do.php?imgf=153753697498981.jpg]

Cvp: Köprü Ekleme Uygulaması - ozanakkaya - 21/09/2018

Formdaki Butona Metin Kutusundaki Köprüye Gitmesi İçin Komut Vermek

Cvp: Köprü Ekleme Uygulaması - notrino - 22/09/2018

(21/09/2018, 21:36)ozanakkaya yazdı: Formdaki Butona Metin Kutusundaki Köprüye Gitmesi İçin Komut Vermek

Merhaba,
Tam o şekilde değil aslında. Ekli dosyalarımda detaylı ifade edeceğim. Şöyle ki;
Formda yeni kayıt oluşturduğunuzda resim alanını tıklayınca köprü ekleme makrosu çalışıp menüyü açıyor. Buraya kadar problem yok. Ben istiyorum ki bu köprü metni, formumdaki metin15 metin kutusunda köprü olarak değil, metin olarak görünsün. Formun geçerli olduğu olay yordamına şu kodu ekledim;
Kod:
Me.Metin15=Me.resim
Ancak ekli resimden de görüleceği üzere ilgili köprü metni, metin15 kutusu içinde iki kez kendini tekrarlamış. Araya # işareti atarak kendini tekrarlamış. Bana diyeze kadar olan ilk kısım lazım. Nasıl çözülür?

[Resim: do.php?imgf=153759437800791.jpg]

Cvp: Köprü Ekleme Uygulaması - ozanakkaya - 22/09/2018 

Me.Metin15 = Mid([resim], InStr([resim], "#") + 1, (InStr(InStr([resim], "#") + 1, [resim], "#") - InStr([resim], "#")) - 1)


Cvp: Köprü Ekleme Uygulaması - notrino - 22/09/2018

(22/09/2018, 08:58)ozanakkaya yazdı: 
Me.Metin15 = Mid([resim], InStr([resim], "#") + 1, (InStr(InStr([resim], "#") + 1, [resim], "#") - InStr([resim], "#")) - 1)

Teşekkürler,

Ancak formda yeni kayda git dediğimde hata veriyor (Run time error 94, invalid use of Null)

Cvp: Köprü Ekleme Uygulaması - ozanakkaya - 22/09/2018 

If Len([resim]) > 0 Then



    Me.Metin15 = Mid([resim], InStr([resim], "#") + 1, (InStr(InStr([resim], "#") + 1, [resim], "#") - InStr([resim], "#")) - 1)



End If