Skip to main content

AccessTr.neT


Etiketler
Yazar: derzulya - Cevaplar: 2 - İzleme: 481
Accessten Worde Atarken Worddeki Tabloda Bozukluk
Merhaba arkadaşlar.

Ekteki uygulamada girdiğim verileri worde atarak talimat oluşturuyorum. Uygulamaya toplu talimat diye yeni bir ekleme yaptım ve worddeki tabloya yer imleri ile gerekli yerleşimleri yaptım. EFT TALİMATI OLUŞTUR a tıkladığımda, tablomda başlık hariç 10 satır var. 9 satırı düzgün getiriyor ancak 10. satırda bilgiler karışıyor. bir türlü çözemedim. yer imlerini kontrol ettim, 10. satırı silip tekrar ekledim vs. çözümleri denedim ancak sonuca ulaşamadım. yardımcı olabilirseniz se
Yazar: derzulya - Cevaplar: 6 - İzleme: 1146
Worde Atarken Yinelenen Değer İki Kere Tr Yazıyor?
Merhaba arkadaşlar. Ekteki uygulamada bilgiler girilip worde atılırken IBAN numarası TRXxxxxxxxxx olarak çıkması gerekirken TRTRxxxxx olarak çıkıyor. kodlarda da ikinci tr nin oluştuğu yeri bulamadım. Nereden alıyor olabilir ikinci TR yi.


Bunu sadece Hesaplar arası TL transfer oluştur formunda yapıyor. Form adı bankasube2. Diğer formlarda sorunsuz çalışıyor. Birkaçgün öncesine kadar bu formdada düzgün çalışıyordu ama nedense artık bu şekilde sorunla karşılaşıyorum.

Yardımcı olabilirseniz
Yazar: suayip - Cevaplar: 7 - İzleme: 994
Zengin Metin Alanındaki Biçim Özellikleri Worde Aktarma
Formumuzdaki zengin metin alanındaki yazı stili, renk gibi biçimsel özellikleri Worde aynı şekilde aktarabiliyor muyuz?Denemelerimde mesela metin alanında kırmızı renkle yazılmış "metin" ifadesini " <font color=red>metin</font>" şeklinde worde aktarıyor.Metin alanındaki bilgileri aynı şekilde worde aktarmak mümkün mü ?Kodlarla gerçekleştirilebilir mi?
Yazar: derzulya - Cevaplar: 9 - İzleme: 1049
Accessten Worde Atarken Hata!
Merhaba arkadaşlar. Accessten worde atarken hata veriyor. kodun neresinde sıkıntı var bakabilir misiniz. Dosyada ektedir.

[code]Private Sub Komut67_Click()
'Eksik alan ve kaydedilmemiş kayıt kontrolü.
   If IsNull(firma_adi) Then
     MsgBox "Firma Adı Boş Olamaz!"
     Me.firma_adi.SetFocus
     Exit Sub
   End If
     
   If MsgBox("HATIRLATMA.. " & Chr(13) & _
     "Bilgileri Doğru Yazdığına Eminmisin", vbInformation + vbOKCancel) = vbOK Then
  Else
       Exit Sub
     End If
Yazar: derzulya - Cevaplar: 4 - İzleme: 650
Seçime Göre Resim Gösterme Ve Worde Aktarma
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.
Yazar: derzulya - Cevaplar: 5 - İzleme: 625
Seçenek Kutusundaki Değeri Seçildiğinde Worde Atma
Merhaba arkadaşlar..

ekteki uygulamada Masraflar Alıcıya ait diye bir seçenek var. worde yer imi olarak atadım, yer iminide worde yerleştirdim. ancak seçeneği seçtiğimde worde o ibareyi yazmasını istiyorum. Yapamadım. Yardımcı olabilir misiniz.

yer imi adı masrafait , şablon dosya origins/efttalimat.docx
Yazar: bibib - Cevaplar: 3 - İzleme: 539
Worde Gönderilen Metni Sütunu Hesaplayarak Yazdırmak
Arkadaşlar ve hocalarım worde 27 karakter ile sınırlanmış İsim Soyisim gönderiyorum ismin bir altındaki satıra da bu ismin ünvanını gönderiyorum.

göndermekte ve yazdırmakta problemim yok fakat başaramadığım ve araştırıp bulamadığım konu bunları yazdırırken isim soyisim altına gelen ünvan ya ileride yada geride oluyor bir türlü oralatamadım
isim kısa veya uzun olursa ileride veya geride kalıyor
 
sütunu tek tek karakter olarak sayfım (86) karakter boşluk olarak saydım (160) boşluk var
bun
Yazar: dd2708 - Cevaplar: 0 - İzleme: 202
Excelden Worde Tablo Aktarmak
merhabalar konunun pek hakımı değilim ama excelde bir tabloyu resim formatında yada normal tablo seklinde atmak istiyorum ama calısma sayfas1 de buton yaptım bu buton yardımıyla tabloyu otomatık olarak aktarabilirmiyiz ekte dosyaları koyuyyorum . 

Sub wordtabloekle()

Dim wrd As Word.Application
Dim dok As Word.Document
Set wrd = New Word.Application

wrd.Visible = True

Set dok = wrd.Documents.Add

With wrd.Selection
.Style = "Başlık 1"
.TypeParagraph
.Style = "normal"
Sheets("