Word'a gönderme
Tarih
03/11/2009 15:39
Konu Sahibi
ensar236
Yorumlar
4
Okunma
1261
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



ensar236
Aktif Üye
Kullanici Avatari
Aktif Üye
63
22/10/2009
15
Çorum
Ofis 2007
01/12/2016,11:33
Çözüldü 
Merhaba arkadaşlar,
Word' da şablon oluşturdum, şablon ekte form üzerinden yararlandığım bilgiler ile aşağıdaki kodları girdim, bütonu tıkladığım zaman word açılıyor ancak bilgiler gelmiyor, word sayfası siyah açılıyor. nerede hata yaptığımı bulamadım yardımı oluranız sevinirim.

Private Sub Komut207_Click()

If IsNull(ADI) Then
MsgBox "ADI Boş Olamaz!"
Me.ADI.SetFocus
Exit Sub

End If
If IsNull(NÜF_KÖY_MAH) Then
MsgBox "NÜF_KÖY_MAH boş olamaz!"
Me.NÜF_KÖY_MAH.SetFocus
Exit Sub
End If
If IsNull(BABA_ADI) Then
MsgBox "BABA_ADI boş olamaz!"
Me.BABA_ADI.SetFocus
Exit Sub
End If
If IsNull(ANNE_ADI) Then
MsgBox "ANNE_ADI boş olamaz!"
Me.ANNE_ADI.SetFocus
Exit Sub
End If
If IsNull(CİNSİYETİ) Then
MsgBox "CİNSİYETİ boş olamaz!"
Me.CİNSİYETİ.SetFocus
Exit Sub
End If
If IsNull(DOĞUM_YERİ) Then
MsgBox "DOĞUM_YERİ boş olamaz!"
Me.DOĞUM_YERİ.SetFocus
Exit Sub
End If
If IsNull(DOĞ_TARİHİ) Then
MsgBox "DOĞ_TARİHİ boş olamaz!"
Me.DOĞ_TARİHİ.SetFocus
Exit Sub
End If




If MsgBox("BİLGİLER. " & Chr(13) & _
"WORD'A GÖNDERİLİYOR..", vbInformation + vbOKCancel) = vbOK Then
Else
Exit Sub
End If
' Word Şablonundan yeni belge oluşturma.
Dim WordApp As Word.Application
Dim strTemplateLocation As String

' Şablonun bulunduğu yer



strTemplateLocation = CurrentProject.Path & "\AÇIK KİMLİK.dot"
On Error Resume Next
Set WordApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Set WordApp = CreateObject("Word.Application")
End If
On Error GoTo ErrHandler


WordApp.Visible = True
WordApp.WindowState = wdWindowStateMaximize
WordApp.Documents.Add Template:=strTemplateLocation, NewTemplate:=False

' Her satırı uygun olan kayıt ile değiştirmek.
With WordApp.Selection
If IsNull(ADI) Then
.Goto what:=wdGoToBookmark, Name:="ADI"
.TypeText [ADI]
Else
.Goto what:=wdGoToBookmark, Name:="ADI"
.TypeText [ADI]
End If
If IsNull(SOYADI) Then
.Goto what:=wdGoToBookmark, Name:="SOYADI"
.TypeText [SOYADI]
Else
.Goto what:=wdGoToBookmark, Name:="SOYADI"
.TypeText [SOYADI]
End If
If IsNull(İL) Then
.Goto what:=wdGoToBookmark, Name:="İL"
.TypeText [İL]
Else
.Goto what:=wdGoToBookmark, Name:="İL"
.TypeText [İL]
End If
If IsNull(İLÇE) Then
.Goto what:=wdGoToBookmark, Name:="İLÇE"
.TypeText [İLÇE]
Else
.Goto what:=wdGoToBookmark, Name:="İLÇE"
.TypeText [İLÇE]
End If
If IsNull(NÜF_KÖY_MAH) Then
.Goto what:=wdGoToBookmark, Name:="NÜF_KÖY_MAH"
.TypeText [NÜF_KÖY_MAH]
Else
.Goto what:=wdGoToBookmark, Name:="NÜF_KÖY_MAH"
.TypeText [NÜF_KÖY_MAH]
End If

If IsNull(BABA_ADI) Then
.Goto what:=wdGoToBookmark, Name:="BABA_ADI"
.TypeText [BABA_ADI]
Else
.Goto what:=wdGoToBookmark, Name:="BABA_ADI"
.TypeText [BABA_ADI]
End If
If IsNull(ANNE_ADI) Then
.Goto what:=wdGoToBookmark, Name:="ANNE_ADI"
.TypeText [ANNE_ADI]
Else
.Goto what:=wdGoToBookmark, Name:="ANNE_ADI"
.TypeText [ANNE_ADI]
End If
If IsNull(CİNSİYETİ) Then
.Goto what:=wdGoToBookmark, Name:="CİNSİYETİ"
.TypeText [CİNSİYETİ]
Else
.Goto what:=wdGoToBookmark, Name:="CİNSİYETİ"
.TypeText [CİNSİYETİ]
End If
If IsNull(DOĞUM_YERİ) Then
.Goto what:=wdGoToBookmark, Name:="DOĞUM_YERİ"
.TypeText [DOĞUM_YERİ]
Else
.Goto what:=wdGoToBookmark, Name:="DOĞUM_YERİ"
.TypeText [DOĞUM_YERİ]
End If
If IsNull(DOĞ_TARİHİ) Then
.Goto what:=wdGoToBookmark, Name:="DOĞ_TARİHİ"
.TypeText [DOĞ_TARİHİ]
Else
.Goto what:=wdGoToBookmark, Name:="DOĞ_TARİHİ"
.TypeText [DOĞ_TARİHİ]
End If
If IsNull(BÖLÜM) Then
.Goto what:=wdGoToBookmark, Name:="BÖLÜM"
.TypeText [BÖLÜM]
Else
.Goto what:=wdGoToBookmark, Name:="BÖLÜM"
.TypeText [BÖLÜM]
End If
If IsNull(SINIF) Then
.Goto what:=wdGoToBookmark, Name:="SINIF"
.TypeText [SINIF]
Else
.Goto what:=wdGoToBookmark, Name:="SINIF"
.TypeText [SINIF]
End If
If IsNull(ÇORUM_ADRESLERİ) Then
.Goto what:=wdGoToBookmark, Name:="ÇORUM_ADRESLERİ"
.TypeText [ÇORUM_ADRESLERİ]
Else
.Goto what:=wdGoToBookmark, Name:="ÇORUM_ADRESLERİ"
.TypeText [ÇORUM_ADRESLERİ]
End If




End With

DoEvents
WordApp.Activate

Set WordApp = Nothing
Exit Sub

ErrHandler:
Set WordApp = Nothing

End Sub


Ek Dosyalar
.rar   AL.rar (Dosya Boyutu: 6,97 KB / İndirme Sayısı: 20)
ensar236, 22-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


cuneyt

Kullanici Avatari
Onursal
321
29/10/2008
81
İstanbul
Ofis 2007
08/06/2016,10:56
Çözüldü 
Access örnek uygulamayı ekleyebilirmisin.
Belki tam olarak görmek soruna daha çabuk ulaşmamızı sağlar.
Cevapla


Nurullah_Serdar
FaTSaLı
Kullanici Avatari
Aktif Üye
568
22/11/2008
189
Giresun
Ofis 2007
01/07/2013,13:21
Çözüldü 
If IsNull(ADI) Then 'Eğer Adı Alanı Boşsa
.Goto what:=wdGoToBookmark, Name:="ADI" 'Şablondaki Adı Yerine
.TypeText [ADI] 'Formdaki Adı Alanını Yaz Demişsin. Burası "" olacak.
Else
.Goto what:=wdGoToBookmark, Name:="ADI"
.TypeText [ADI]
End If

yazdığın kodda ilk göze çarpan hata burada.
İyiki Varsın Access Img-grin
Cevapla


Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.544
7
30/10/2008
804
Tekirdağ
Ofis XP
02/12/2016,15:18
Çözüldü 
Güncel
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla


Nurullah_Serdar
FaTSaLı
Kullanici Avatari
Aktif Üye
568
22/11/2008
189
Giresun
Ofis 2007
01/07/2013,13:21
Çözüldü 
sayın ensar236 sorununuzla ilgili bilgi verirmisiniz.
İyiki Varsın Access Img-grin
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Pdf olarak mail gönderme Serkan Çevik 8 150 Dün, 15:17 Serkan Çevik
  Raporu Word'e resimli gönderme ates2014 51 1.193 01/12/2016, 21:06 atoz112
Çözüldü word access bağlantısı Pislik_77 25 8.567 23/11/2016, 01:46 ozanakkaya
Çözüldü raporu word veya excele raporda göründüğü gibi gönderme kesoka 9 2.327 30/09/2016, 14:27 ates2014
  Accessdeki raporu excele gönderme ates2014 12 494 05/08/2016, 15:34 ates2014


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya