son kayiti diger tabloya alma

[ouzstyle]

acemilik silsilesi

arkadaslar merhaba
önce sorunum tek sanıyordum ama cokmus
iki tablom var hareket ve musteri
amacı kişiye taksit yapmak ve taksitleri raporda hazırlayacagım
senet e dokmek .

aboneno ortak alanları ilişkisi tamam
hareket tablosu müşteri tablosunun alt formu
müşteri eklediğim zaman parasal hareketlerini alt forumdan giriyorum
her sey normal ve güzel

bundan sonra rapora geliyo iş
raporda hareket tablomdaki tl lerin toplamı
ve son kayittaki sontarih alanı bana lazım

raporda ilişkili hareket alt formumdaki
misal 12 kaydın son kaydının
tarihini kullanmak istiyorum
napıcam bunun için
...

 

[gulsum1]

cevap

sana bu birinci örnek burda başka bir yerdeki veritabanının tablosunun son kaydını alıyorum
ve o tabloya kayıt yapıyorum

Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim klasor


klasor = "D:\PROGRAMLAR\EVRAK KAYIT.mdb"

With conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.Open klasor
End With

With rst
.ActiveConnection = conn
.Open "2007GİDEN", LockType:=adLockOptimistic
rst.MoveLast

SAYI1.Value = .Fields("NO") + 1

End With


rst.Close

conn.Close

 

[gulsum1]

cevap

rapor alt bilgisinde

koyduğun bir metin kutusu içine

=topla([tl]

buda tarih

=Last([tarih])

 

[ouzstyle]

tamamdır
tesekkur ederim
cevap gelene kadar sorguda yapıp raporu
o şekilde olusturdum kolaymış aslında