Skip to main content

AccessTr.neT


Formdan Worde Veri Aktarmada Sorun

Formdan Worde Veri Aktarmada Sorun

#7
Bütün hepsini kontrol ettim hocam ama hatayı bulamadım. Şimdi kodları kısa işlemler yptırarak alanı daraltıp hata bulmayı deneyeceğim.

Birde şöyle bir durum var, Bu kodu aldığım yerde Referanslar için Microsoft Word Object 6.0 gibi bir referans istiyordu. Bende Word Object 11 var . Acaba bu referans numaraları farklı olunca hata verebilir mi? Teşekkürler
Cevapla
#8
sayın Akifff,

bir uygulamayı çalıştırdığınızda eğer referans dosyası gerekli olursa,bunu ilgili kod sayfasında bir uyarı ile belirtmektedir.kod sayfasındaki referans tablosunun sol tarafında MISSING ibaresi yazılıysa,bu sizin kullandığınız sürüme uygun olmadığı ve kendi sürümünüze uygun olanını işaretleyip eklemeniz gerektiğini gösterir.

dolayısı ile de,referans farkından dolayı oluşan bir hatanın yanı sıra;bu hata,yanlış yazımdan kaynaklı olduğu görülmektedir.
Bu nedenle,tekrarlamak üzere hatırlatmak adına,

Alıntı:ya form üzerindeki ilgili TCNo metin denetim kutusunun adını değiştirmiş olabilirsiniz de,kodlara eski halini yazmışsınızdır,ya da,tam tersi;bir değişim olmadı da,siz kod sayfasına farklı yazmışsınızdır.

son olarak,farklı kaydet işlemini tekrar denemeye çalışabilirsiniz.

Bilginize…iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#9
Hocam siz haklı çıktınız, bir kaç alan adında hata var gibi görünüyor. Kodu aşağıdaki şekilde bölüm bölüm aktif ederek çalıştırdım. Mesela aşağıdaki kodda üç alanı güzel bir şekilde word e aktarıyor. TCNo yu aktifleyince hata veriyor, veya aynı şekilde DogumYeri alanını aktif edince hata veriyor. Sonuna kadar yaparak bir sonuca ulaşmayı hedefliyorum. Saygılar. Img-grin 


Kod:
Private Sub Komut350_Click()
   
   If IsNull(Ad) Then
       MsgBox "Lütfen Ad Giriniz"
       Me.Ad.SetFocus
       Exit Sub
   End If
   If IsNull(Soyad) Then
       MsgBox "Lütfen Soyad Giriniz"
       Me.Soyad.SetFocus
       Exit Sub
   End If
   'If IsNull(TCNo) Then
    '   MsgBox "Lütfen Tc Numarasını Giriniz"
     '  Me.[TC No].SetFocus
      ' Exit Sub
   'End If
   'If IsNull(DogumYeri) Then
    '   MsgBox "Lütfen Doğum Yerini Giriniz"
     '  Me.DogumYeri.SetFocus
      ' Exit Sub
   'End If
   If IsNull(DogumTarihi) Then
       MsgBox "Lütfen Doğum Tarihini Giriniz"
       Me.DogumTarihi.SetFocus
       Exit Sub
   End If
   'If IsNull(GirisTarihi) Then
    '   MsgBox "Lütfen İşe Giriş Tarihini Giriniz"
     '  Me.GirisTarihi.SetFocus
      ' Exit Sub
   'End If
   'If IsNull(ADRES) Then
    '   MsgBox "Lütfen Adres Giriniz"
     '  Me.ADRES.SetFocus
      ' Exit Sub
   'End If
   'If IsNull(CEPTELEFON) Then
    '   MsgBox "Lütfen Cep Telefonunu Giriniz"
     '  Me.CEPTELEFON.SetFocus
      ' Exit Sub
   'End If
   'If IsNull(SABITTELEFON) Then
    '   MsgBox "Lütfen Sabit Numara Giriniz"
     '  Me.SABITTELEFON.SetFocus
      ' Exit Sub
   'End If
   If MsgBox("D İ K K A T" & Chr(13) & _
    "Bilgiler Şablona Yazdırılacak. Onaylıyor musunuz?", vbInformation + vbOKCancel) = vbOK Then
 Else
      Exit Sub
    End If
   
   Dim WordApp As Word.Application
   Dim strTemplateLocation As String
   strTemplateLocation = CurrentProject.Path & "/MakinistBelirsizSozlesme3.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
     
       ' Word belgemizdeki Yer İmleri ile formdaki alanları eşitleyip yer imlerini uygun kayıtlarla değiştireceğimiz kodlar başlıyor.
 
  With WordApp.Selection
 
    If IsNull(Adı) Then
    .GoTo what:=wdGoToBookmark, Name:="Ad"
    .TypeText ""
    Else
     .GoTo what:=wdGoToBookmark, Name:="Ad"
    .TypeText [Ad]
    End If
   
   
    If IsNull(Soyad) Then
    .GoTo what:=wdGoToBookmark, Name:="Soyad"
    .TypeText ""
    Else
     .GoTo what:=wdGoToBookmark, Name:="Soyad"
    .TypeText [Soyad]
    End If
   
   
    'If IsNull(ADRES) Then
    '.GoTo what:=wdGoToBookmark, Name:="Adres"
    '.TypeText ""
    'Else
    ' .GoTo what:=wdGoToBookmark, Name:="Adres"
    '.TypeText [ADRES]
    'End If


    ' If IsNull(CEPTELEFON) Then
    '.GoTo what:=wdGoToBookmark, Name:="CepTel"
    '.TypeText ""
    'Else
    ' .GoTo what:=wdGoToBookmark, Name:="CepTel"
    '.TypeText [CEPTELEFON]
    'End If
   
     If IsNull(DogumTarihi) Then
    .GoTo what:=wdGoToBookmark, Name:="DoğumTarihi"
    .TypeText ""
    Else
     .GoTo what:=wdGoToBookmark, Name:="DoğumTarihi"
    .TypeText [DogumTarihi]
    End If
     'If IsNull(DogumYeri) Then
    '.GoTo what:=wdGoToBookmark, Name:="DoğumYeri"
    '.TypeText ""
    'Else
    ' .GoTo what:=wdGoToBookmark, Name:="DoğumYeri"
    '.TypeText [DogumYeri]
   ' End If
    ' If IsNull(GirisTarihi) Then
    '.GoTo what:=wdGoToBookmark, Name:="GirisTarihi"
    '.TypeText ""
    'Else
    ' .GoTo what:=wdGoToBookmark, Name:="GirisTarihi"
    '.TypeText [GirisTarihi]
    'End If
   '  If IsNull(SABITTELEFON) Then
   ' .GoTo what:=wdGoToBookmark, Name:="SabitTel"
   ' .TypeText ""
   ' Else
   '  .GoTo what:=wdGoToBookmark, Name:="SabitTel"
   ' .TypeText [SABITTELEFON]
   ' End If
   '  If IsNull(TCNo) Then
    '.GoTo what:=wdGoToBookmark, Name:="TcNo"
    '.TypeText ""
    'Else
    ' .GoTo what:=wdGoToBookmark, Name:="TcNo"
    '.TypeText [TC No]
    'End If

  End With
   
  DoEvents
  WordApp.Activate
   
  Set WordApp = Nothing
  Exit Sub

ErrHandler:
Set WordApp = Nothing

End Sub

Cevapla
#10
sayın Akifff,

öncelikle,sorunun çözümüne ulaşmanız sizin adınıza iyi bir gelişme.gerekli kontrolleri yapıp düzenlemelerde bulunduktan sonra,uygulamanızın sorunsuz bir halini konunuzda ekleyecek olursanız (elbette ki,takdir ve tercih sizindir),bu konuda benzer araştırmalarda bulunacak olan üyelere de alternatif bir konu ve uygulama örneği imkanı sağlamış olursunuz.

Son olarak,ilgili kodlarınız incelendiğinde fark edilen bir hususu belirterek bir tavsiyede bulunmak isterim.Uygulamalarınızda tablo oluştururken alan adlarını büyük harf olarak tanımlamayınız.benzer hususta başka tavsiye gereksinimi olup olmadığını,uygulamanızı inceleme imkanı olmadığı için belirtemem fakat ancak kodlardan yola çıkarak ilk etapta edindiğim bir izlenimi paylaşmak istedim sadece.bilginize.

İyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#11
Hocam tavsiyeleriniz için teşekkür ederim. Bu şekilde sizlerin formdaki arkadaşların yardımlarıyla ilerleyebiliyoruz yoksa zor olurdu her şey.

Alan adları ile ilgili hata verdiğini biliyordum, fakat alan adları formdakilerle birebir aynı. Birden fark ettim ki bu kodlama formdaki metin kutusunun denetim kaynağı adlarını içeriyor. Halbuki metin kutusunun Ad değerini baz alması gerekli. CEPTELEFON denetim kaynağı Metin kutusunun adı Metin_544 gibi olunca hata veriyor. Şimdi isimleri tek tek düzelterek diğer arkadaşlarında kullanabilmesi için forma eklerim tabi kide. Saygılarımla. Img-grin
Düzenlenmiş Hali Ektedir Arkadaşlar. 
.rar RVS 29.07.2015.rar (Dosya Boyutu: 460,8 KB | İndirme Sayısı: 3)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task