سؤالين _ واحد بالتقرير _ والثاني بالتاريخ

السلام عليكم و رحمة الله و بركاتة

بالنسبة لسؤالك الأول

لعرض سجلات بين تاريخين فان مبتغاك في جمل sql

"select * from table where datefield between #"+date1+"# and #"+date2+"#"

اما بالنسبة للسؤال الثاني

فلو كنت تعمل ببرنامج كريستال ريبورت فلا ترهق نفسك لأن الكريستال يجب ربطة أما بجدول أو استعلام

و لكن يمكنك عمل ترقيم تلقائي في جدول أو اسعلام و ارسالة للكريستال ريبورت

في النهاية أتمني لك التوفيق

الجملة مرة أخري لأني اعتقد ان السابقة أصابها لخبطة

select * from table where datefield between #"+date1+"# and #"+date2+"#

الريبورت بأستخدم data Report

المشكلة مش عارفه أرقم الحقول

يعني

1-

2-

.

.

وهذه الأرقام غير موجودة بقواعد البيانات

الرجاء مساعدتي

يا أبطال

أخوانى الأعزاء

يمكنكم عمل Formula فى الكريستال ووضعها فى أى عمود لتقوم بعمل ترقيم متتالى للسجلات المعروضه و صيغتها كالتالى :

RecordNumber

أنا أريد الdata Report

الرجاء أسعافنا

الرجاء أن تسعفوني

ترقيم النواتج .........أسعفوني

يمكنك ذلك من خلال عمل فيلد وهمي تضعي فيه الترقيم ومن ثم تحولينه للفورم

وهذا هو الكود

Private Sub cmdOpenReport_Click()

Dim Con As adodb.Connection
Set Con = New adodb.Connection

Con.CursorLocation = adUseClient

Con.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& App.Path & "\db1.mdb;"


Dim Rs As adodb.Recordset
Set Rs = New adodb.Recordset


' الصيغة الأصلية للإستعلام
' SELECT Main.Name, Main.Jop, Main.Address _
  FROM Main;

'  الصيغة الجديد للإستعلام و يظهر فيها وجود حقل جديد
'  تسند له قيمة فارغة ، كما أننا استخدمنا أمر التجميع 

' SELECT '' AS [No], Main.Name, Main.Jop, Main.Address _
  From Main _
  Group By '', Main.Name, Main.Jop, Main.Address;


' نشغل الاستعلام
Rs.Open "SELECT '' AS [No], Main.Name, Main.Jop, Main.Address " & _
"From Main " & _
"Group By '', Main.Name, Main.Jop, Main.Address;", _
Con, adOpenStatic, adLockOptimistic

' NO الآن الحقل الأول يحمل قيمة فارغة و جعلنا اسمه


Rs.MoveFirst

' نعمل تكرار من بداية السجلات إلى نهاياتها
While Not Rs.EOF = True
    '  نحمل الحقل الفارغ قيمة = موقع السجل
    Rs.Fields("No").Value = Rs.AbsolutePosition ' =i
    Rs.Update
    Rs.MoveNext
Wend
    
' نسند كائن السجلات إلى أداة التقرير    
Set DataReport1.DataSource = Rs
' نعرض التقرير
DataReport1.Show

End Sub

على فكره هذا الحل منقول من أعمال أحد المبدعين بمنتدى VB4ARAB

على هذا الرابط

http://www.vb4arab.com/vb/showthread.php?s...%E1%DE%C7%C6%ED

omani

بشكر الأخوة على الرد

وبارك الله فيهم

وكثير بشكر الأخ omani

وجزاه الله ألف خير على الجواب الشافي

وشكرا