Dim A, B As String
A = DLast("[adi]", "Tablo1")
B = DLast("[soyadi]", "Tablo1")
Dim MyObject As Object
Set MyObject = GetObject(CurrentProject.Path & "\Sonveri.xls")
MyObject.Sheets("Sayfa1").Range("A2").Value = A
MyObject.Sheets("Sayfa1").Range("B1").Value = B
bu kodlar güzel tablo ve sorguyu excele göndermek isteyen arkadaşlar kullanabilir... Sonveri.xls dosyası işlemi yaparken açık olmalıdır....
Ama benim istediğim raporda DCount kullandığım bir metin kutusunu excelde G15 kutusuna aktarmak...
