- DAO ile sorgudan kayıt tarama işine girersen bu kod hata verir. Sorguda ölçüt olduğu için parametre soracaktır.
strSQL = "S_RISK"
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
Kodunu
Dim qdf As QueryDef
Set qdf = CurrentDb.QueryDefs("S_RISK")
qdf![Forms!frm_risk!Metin60] = [Forms]![frm_risk]![Metin60]
Set rs = qdf.OpenRecordset()
Kodu ile değiştir,
Dim rs As DAO.Recordset kodunu da
Dim rs As Recordset kodu ile değiştir.
Bu haliyle worde veri aktarmaya hazır.
Koddaki aktarma işi sıkıntılı,
intColumns kodu sorgudaki sütun sayısıdır. Tablo oluştururken en fazla 62 sütun oluşturabilirsin. Sorgu tasarımının değiştirilmesi gerekli.
For i = 1 To rs.Fields.Count
docTable.Cell(1, i).Range.Text = rs.Fields(i - 1).Name
Next i
şeklindeki kodun da oluşturulan tabloya uyumlu hale getirilmesi gerekli.
Word belgenizin içeriğinde ne olacak, satır ve sütunlar ne olacak anlaşılmadığı için aktarım konusunda fikrim yok. Rapor görünümü yetersiz.
Örnek word belgesi oluşturun, içindeki veriler tutarlı olsun, aynı veriyi copy/paste ile yapıştırmayın. Farklı PROJE_ID değerlerinde word belgesindeki hangi alanlar sabit, hangi alanlar değişken belirleyin, değişken alanları kırmızıya boyayın.
İnceleyen ne olduğunu anlasın. Word belgenize göre farklı çözümler üretilebilir. Önceki mesajlarımda da belirttiğim gibi, iş sıkıntılı,