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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

ensar236

Aktif Üye
Aktif Üye
 46
 68
 17
 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ı: 21)
ensar236, 22-10-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

cuneyt

Aktif Üye
Aktif Üye
CÜ.... AY....
 44
 321
 23
 29/10/2008
91
 İstanbul
 muhasebe
 Ofis 2016 64 Bit
 06/09/2018,10:36
Çö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
 36
 568
 21
 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....
 47
 1.562
 7
 30/10/2008
814
 Tekirdağ
 BT Şefi
 Ofis XP
 09/09/2018,11:08
Çö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
 36
 568
 21
 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 Son Yorum
Çözüldü Hafıza da açık kalan word bibib 4 89 11/09/2018, 15:40
Son Yorum: bibib
Çözüldü Access Veritabaninda Gömülü Word Şablonu mmert06 7 573 25/08/2018, 17:15
Son Yorum: bibib
Çözüldü Word Şablonunda Satır Silme bibib 11 333 03/08/2018, 09:25
Son Yorum: ozanakkaya
Çözüldü Rapor Önizlemeyi Worde Gönderme bibib 12 427 28/07/2018, 02:46
Son Yorum: bibib
Çözüldü Word Boyama İşlemi mertkose 22 857 05/07/2018, 12:48
Son Yorum: mertkose

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