Form da ki ay metin kutularinin kayit kaynagini bosaltin ce metin kutularinin basina "A" harfi koyun. Ornek: 12 ay = A14...........A14 ila A3 arasi
Asagidaki kodu form acilisina kaydedin.
Private Sub Form_Open(Cancel As Integer)
Dim Kyt As Recordset, SW As Long
Set Kyt = Me.RecordsetClone
Kyt.MoveFirst
For SW = 3 To Kyt.Fields.Count - 1
Me.Controls("A" & CLng(Kyt.Fields(SW).Name) + 2).ControlSource = ""
Me.Controls("A" & CLng(Kyt.Fields(SW).Name) + 2).ControlSource = "=[" & Kyt.Fields(SW).Name & "]"
Next SW
Kyt.Close: Set Kyt = Nothing
End Sub
farklı bir kaynaktan yardım alınarak yukarıda ki gibi sorun halloldu. ihtiyacı olan arkadasları faydalı olabileceği düşüncesiyle paylaşıyorum. kolay gelsin
Çapraz Sorgu Toplamı #Ad? Hatası
Bu Konudaki Yorumlar |
Çapraz Sorgu Toplamı #Ad? Hatası - Yazar: polak_68 - 04/11/2014, 16:55
Cvp: Çapraz Sorgu Toplamı #Ad? Hatası - Yazar: Yunus Bozkurt - 04/11/2014, 19:12
Cvp: Çapraz Sorgu Toplamı #Ad? Hatası - Yazar: polak_68 - 05/11/2014, 00:08
|
Konuyu Okuyanlar: 1 Ziyaretçi