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

Derecelendirme: 0/5 - 0 oy
ensar236
Aktif Üye
Kullanici Avatari
Aktif Üye
68
22/10/2009
15
Çorum
Ofis 2007
21/05/2017,15:50
Çö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ü 
Sponsor Reklam
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.550
7
30/10/2008
814
Tekirdağ
Ofis XP
11/05/2017,16:26
Çözüldü 
Sponsor Reklam
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
  Form Da Döngü İle Mail Gönderme barcins 8 190 08/05/2017, 09:09 barcins
  Formdan Seçilenleri Diğer Formdaki Listeye Gönderme haziran4 4 118 07/03/2017, 07:59 haziran4
  Kriterlere Göre Toplu Mail Gönderme estapan 2 158 26/02/2017, 11:08 estapan
  Raporu PDF yapıp e-mail ile gönderme m_demir 4 200 10/02/2017, 19:26 m_demir
  Excele gönderme ates2014 18 350 04/02/2017, 23:59 ates2014


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status