Skip to main content

AccessTr.neT


Köprü Ekleme Uygulaması

Köprü Ekleme Uygulaması

Çözüldü #1
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]
Cevapla
#2
Formdaki Butona Metin Kutusundaki Köprüye Gitmesi İçin Komut Vermek
Cevapla
#3
(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]
.zip kopru_ekle.zip (Dosya Boyutu: 61,43 KB | İndirme Sayısı: 6)
Cevapla
#4
Me.Metin15 = Mid([resim], InStr([resim], "#") + 1, (InStr(InStr([resim], "#") + 1, [resim], "#") - InStr([resim], "#")) - 1)
Cevapla
#5
(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)
Cevapla
#6
If Len([resim]) > 0 Then

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

End If
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task