Skip to main content

AccessTr.neT


Seçime Göre Resim Gösterme Ve Worde Aktarma

Seçime Göre Resim Gösterme Ve Worde Aktarma

Çözüldü #1
Merhaba arkadaşlar.

Formdaki bilgileri girdikten sonra hazırla dediğimizde worde aktarıyor sorunsuz çalışıyor.

ilaveten yapmak istediğim şu

herhangi bir tabloyla ilişkisi olmayan formda "anlaşmayı yapan" açılır kutusundaki seçeneklere göre a, b, c resimlerini göstermek ve bu resimlerden hangisi görünüyorsa onu hazırla dediğimizde word dosyasında da göstermesini istiyorum.

çalışma ektedir.
.rar sözleşme.rar (Dosya Boyutu: 189,75 KB | İndirme Sayısı: 7)
derzulya, proud to be a member of AccessTr.neT since 09-03-2009.
Cevapla
#2
Merhaba, eklediğiniz uygulamada tablo olmadığı için açılan kutuda hangi veriler görünüyor bilmiyorum.

taslak isimli word belgesine resim adında yerimi ekleyip,

Visual Basic Code
     .GoTo what:=wdGoToBookmark, Name:="not"
     .TypeText [not]

kodunun altına;

Visual Basic Code
     .GoTo what:=wdGoToBookmark, Name:="resim"
     GResimYolu = CurrentProject.Path & "\Resimler" & "\a.jpg"
     Set newPicture = WordApp.Selection.InlineShapes.AddPicture(FileName:=GResimYolu, LinkToFile:=False, SaveWithDocument:=True)
     newPicture.LockAspectRatio = msoTrue
     newPicture.Height = 150
     newPicture.Width = 100


Kodu eklerseniz a.jpg dosyasını word belgesine ekleyecektir.

a.jpg yerine açılan kutudaki veriye göre tanımlama yaptırabilirsiniz.

"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
Yok anlatamadım. Sadece A resmi değil. anlaşmayı yapan açılır kutusunda a b c var. hangisi seçilirse o resim gelsin istiyorum.
derzulya, proud to be a member of AccessTr.neT since 09-03-2009.
Cevapla
#4
(21/09/2020 12:49)derzulya Adlı Kullanıcıdan Alıntı: Yok anlatamadım. Sadece A resmi değil. anlaşmayı yapan açılır kutusunda a b c var. hangisi seçilirse o resim gelsin istiyorum.

Ben doğru anladım, mesajımın sonunda "a.jpg yerine açılan kutudaki veriye göre tanımlama yaptırabilirsiniz." şeklinde ibare mevcut.

açılan kutudaki veri elma ise elma, armut ise armut resminin gönderilmesi için

Visual Basic Code
 GResimYolu = CurrentProject.Path & "\Resimler" & "\a.jpg"



Visual Basic Code
GResimYolu = CurrentProject.Path & "\Resimler" & "\" & me.anlasmayi_yapan & ".jpg"


Benzeri kod yazılacak.

"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
tamamdır ben anlamamışım teşekkür.
derzulya, proud to be a member of AccessTr.neT since 09-03-2009.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task