Seri girişlerde aradaki rakamların raporda görüntülenmesi

[unsal99]

Arkadaşlar merhabalar;

Çok acil yardımınıza ihtiyacım var. Müşteri Kart girişi şeklinde bir program geliştiriyorum. Burada bir müşteriye ait kart girişlerinde formda iki düğme olacak. Bir tanesi tek giriş diğeri seri giriş şeklinde.

Bu seri girişlerde örneğin 10000100 ile 10000250 ye kadar yazdığında o iki rakam arasındaki rakamlar o müşteriye ait olacak. Yani rapor alındığında 10000150 numaralı kart da o müşterinin raporunda görünmesi gerekiyor.

Bunu nasıl yapabilirim? Bana bu konuda da yardımcı olursanız çok sevinirim.

Saygılar ve iyi çalışmalar;
unsal99
:yardim:

 

[modalı]

Sayın unsal99,

Bir örnek ekleyebilirseniz daha çabuk sonuca ulaşabilirsiniz.

İyi çalışmalar

 

[gulsum1]

buna benzer benim taksit kodum var onu kullan zaten başka bir yol ilede yapılmaz yapılamaz yani bir kişiye belirli bir seri aralığını atayacaksan başka yolu yok o kodu incele
yukarda başka yolu yok dedim ama başka yollarda aklıma geliyor ama hepsi tek tek atar yani sen şu sayıdan bu sayıya kadar şu kişye ekle dersen her sayıyı eklediğinde düğmye tekrar tıklarsın taki dediğin son sayı gelene kadar ama benim kodum ile tek dokunşta istersen o kişiye 10001-15500 kadar sayıyı atayabilirsin ha unutmadan birde şu var bu sayıları atarken yazdığın aralığıda önceden kontrol edecek eğer daha önce yazılmış bir sayı yakaladığında sana şu sayı var ancak şundan başlayabilirsiniz diyecek eğer yapamazsan örneğini ekle yaparız

 

[unsal99]

Merhaba Gulsum1;

İlk önce yardımın için çok teşekkür ederim. Verdiğin taksit kodu örneğini nereden bulabilirim?

Tekrar teşekkür ederim.
Saygılar;
unsal99

 

[gulsum1]

seri giriş yapmak

kod bu
Private Sub Komut6_Click()
Dim Rs As New ADODB.Recordset
Rs.Open "kart", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Rs.EOF <> True Then
Do
If Rs("no") = no.Value Then
Rs.Delete
End If
Rs.MoveNext
Loop Until Rs.EOF
End If
z = kartnobas.Value
d = kartnobit.Value
For i = z To d Step 1
n = no.Value
Rs.AddNew
Rs("no") = n
Rs("kartno") = i
Rs.Update
Next i
Set Rs = Nothing
Set conn = Nothing
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
End Sub

burda müşteri diye bir tablo ve kart diye bir tablo var
müşteri formuna kart formunu altform olarak ekledim
sonra müşteri formuna bir adet başşlangıç numarası için bir adetde bitiş numarası için metin kutusu koydum ona numaraları yazıp karta numaraları ata dediğim zaman kişinumarasını formdan alıyor onu kart tablosu ile karşılaştırıyor sonra eğer daha önce o kişiye kartgirilmişse onu siliyor ve yeni nuraları ekliyor

 

[gulsum1]

seri giriş yapmak

kod bu
Private Sub Komut6_Click()
Dim Rs As New ADODB.Recordset
Rs.Open "kart", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Rs.EOF <> True Then
Do
If Rs("no") = no.Value Then
Rs.Delete
End If
Rs.MoveNext
Loop Until Rs.EOF
End If
z = kartnobas.Value
d = kartnobit.Value
For i = z To d Step 1
n = no.Value
Rs.AddNew
Rs("no") = n
Rs("kartno") = i
Rs.Update
Next i
Set Rs = Nothing
Set conn = Nothing
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
End Sub

burda müşteri diye bir tablo ve kart diye bir tablo var
müşteri formuna kart formunu altform olarak ekledim
sonra müşteri formuna bir adet başşlangıç numarası için bir adetde bitiş numarası için metin kutusu koydum ona numaraları yazıp karta numaraları ata dediğim zaman kişinumarasını formdan alıyor onu kart tablosu ile karşılaştırıyor sonra eğer daha önce o kişiye kartgirilmişse onu siliyor ve yeni nuraları ekliyor ve alt formu güncelliyor

form daha önceki yazımı aktarırken takılma oldu ondan iki defa gitmiş oldu
eklediğim örnekte hem uygulama hemde rapor örneği var

 

[unsal99]

kod bu
Private Sub Komut6_Click()
Dim Rs As New ADODB.Recordset
Rs.Open "kart", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Rs.EOF <> True Then
Do
If Rs("no") = no.Value Then
Rs.Delete
End If
Rs.MoveNext
Loop Until Rs.EOF
End If
z = kartnobas.Value
d = kartnobit.Value
For i = z To d Step 1
n = no.Value
Rs.AddNew
Rs("no") = n
Rs("kartno") = i
Rs.Update
Next i
Set Rs = Nothing
Set conn = Nothing
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
End Sub

burda müşteri diye bir tablo ve kart diye bir tablo var
müşteri formuna kart formunu altform olarak ekledim
sonra müşteri formuna bir adet başşlangıç numarası için bir adetde bitiş numarası için metin kutusu koydum ona numaraları yazıp karta numaraları ata dediğim zaman kişinumarasını formdan alıyor onu kart tablosu ile karşılaştırıyor sonra eğer daha önce o kişiye kartgirilmişse onu siliyor ve yeni nuraları ekliyor ve alt formu güncelliyor

form daha önceki yazımı aktarırken takılma oldu ondan iki defa gitmiş oldu
eklediğim örnekte hem uygulama hemde rapor örneği var

Çok teşekkür ederim Gulsum1. Gerçekten bu kod çok faydalı oldu.

Saygılar ve iyi çalışmalar;
unsal99

 

[gulsum1]

bu kod sana raporda ki&#351;inin t&#252;m kartnolar&#305;n&#305; g&#246;sterir fakat sen ki&#351;i tablosuna birde kart ba&#351;lang&#305;&#231;no ve kart biti&#351; no diye alan koyar ve formda girdi&#287;in ilk ve son kartnoyu bu alana ba&#287;larsan ve rapordada sadece ki&#351;iler raporu yaparsan sana kart aral&#305;&#287;&#305;n&#305; g&#246;sterir kart numaralar&#305;n t&#252;m&#252;n&#252; g&#246;stermene gerek kalmaz asl&#305;nda ki&#351;inin kart tablosundaki ilk ve son kayd&#305;ndaki numaralar&#305; alarak da bu i&#351; yap&#305;labilir ama bu y&#246;ntem uzun bir kod karma&#351;as&#305; ister