Skip to main content

AccessTr.neT M.


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

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
...........
#3
(21/09/2018 21:36)ozanakkaya Adlı Kullanıcıdan Alıntı: 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ı: 3)
Cevapla
#4

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

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
...........
#5
(22/09/2018 08:58)ozanakkaya Adlı Kullanıcıdan Alıntı:

Visual Basic Code
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

Visual Basic Code
If Len([resim]) > 0 Then

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

End If

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
...........

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

Yorum yapmak için üye olmanız gerekiyor

ya da