Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
03/11/2009 15:39
Konu Sahibi
ensar236
Yorumlar
4
Okunma
1683
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

ensar236

Aktif Üye
Aktif Üye
68
22/10/2009
15
Çorum
Ofis 2007
19/06/2018,13:09
Çö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.

Kullanici Avatari

cuneyt

Aktif Üye
Aktif Üye
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.



Kullanici Avatari

Nurullah_Serdar

FaTSaLı
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

Kullanici Avatari

Seruz

Uzman
Uzman
SE.... UZ....
1.561
7
30/10/2008
814
Tekirdağ
BT Şefi
Ofis XP
05/06/2018,09:01
Çö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

Kullanici Avatari

Nurullah_Serdar

FaTSaLı
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


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Word Şablonu Hazırlama Yardım murat dikme 36 686 09/06/2018, 15:01 ozanakkaya
Çözüldü Access'den Word'e Aktarma alperalper00 13 8.815 28/04/2018, 15:43 samettopcu
Çözüldü Access Veritabaninda Gömülü Word Şablonu mmert06 6 363 10/04/2018, 23:46 mmert06
Çözüldü Access de form içerisinde Word sayfası gibi ekran açma bibib 1 174 01/04/2018, 11:21 ozanakkaya
Çözüldü Word Yazdırma Kayıtlarını Tutabilecek Bir Program Yardımmm duygu899 5 154 24/03/2018, 13:09 A.Kadir.

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.