أهلا بك ضيفا عزيزا على اخوانك واخواتك اعضاء الساحه العمانيه
وأهلا بكل استفساراتك واسألتك اخي العزيز،،

بالنسبه لسؤالك ،، فاعطنا شيئا من الوقت ،، (فليس لدي خبره كافيه في برنامج الاكسس)
او في انتظار احد خبراء الساحه في مجال الاكسس،،،

كل التحيه لك اخي العزيز ،،،
وفي انتظار مشاركاتك المميزه معنا،،

حياك معنا ..

بس لو توضح أكثر نفيدك ... يعني تريد في رأس التقرير تاريخ معين وفي ذيل التقرير تاريخ أم عمود كامل يبدأ بتاريخ معين وينتهي بتسلسل إلى أخر الصفحة ..

اذا وضحت بتحصل الإجابة إن شاء الله ...

اعذرنا على التأخير ... تفضل الشرح والحل مجرب بيشتغل معك 100 %..

أفتح الفيجوال بيسك واختار مشروع جديد ومنها اختار DataProject

من تفرعات النوافذ اختار DataEnvironment وغير اسمها حسب ما تريد شي سهل .. مثلا deNWind

وفي قسم الإتصالات connecion

روح على الخيارت واعمل اتصال مع قاعدة البيانات الخاصة بك .. (الي في الصورة)

اضغط على ال connnection واختار add command يعني بتضيف أمر

سميها مثل ما تريد (مثلا OrdersByDate ) ..

اللحين اضغط على الأمر باليسار واختار الخيارات properties


اللحين بتشوف خانة للإختيار مكتوب عليها sql statment اضغط عليها واكتب في الصندوق

"Select * from Orders where OrderDate = ?"

طبعا orders اسم جدولك ..

واضغط على tab باسم parameter وبتلاحظ انه التقط علامة الإستفهام عطيها اسم مثلا OrdDate

وغير نوعيتها الى date

وتأكد على انها بصيغة input parameter

اللحين احفظ عملك


واختر التقرير مالك وسميه rptOrders

وتأكد انه خاصية ال data source تشير الى eNwind

وخاصية ال data member تشير الى OrdersByDate

وضيف بعض التجميلات على التقرير .. واحفظ عملك

طبعا هذا كله احنا في الفيجوال بيسك ما رحنا للأكسس ..

اللحين على يمينك فوق بتشوف كلمة forms اختر الفورم الي تحت وسميه مثلا myform

في نافذة الفور اعمل زر button مثلا واكتب عليه اظهر النتائج وسميه cmdReport وعطله باستخدام خاصية enabled حولها الى false


واعمل خانة تكست text وسميها txtDate

واللحين روح الكود واعمل كوبي بيست للآتي ..


Private Sub txtDate_Change()
'Enable the commandbutton only when the textbox is not empty
cmpReport.Enabled = (Len(txtDate.Text) > 0)
End Sub

Private Sub cmdReport_Click()
If Not IsDate(txtDate.Text) Then
'Exit if the value is not a valid date
Dim msg as string
msg = "Please enter a valid date"
msgbox msg, vbExclamation, "Error!"
'of course in a real program you will do something
'smarter than MsgBox
With txtDate
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Exit Sub
End If

'If it got here it is OK to ga ahead with the report
deNWind.OrdersByDate CDate(txtDate.Text)

'Display the DataReport in a nonmodal maximized window
rptOrders.WindowState = vbMaximized
rptOrders.Show vbNonModal, Me
End Sub


واذا بغيت تاريخين غير في ال sql الي كتبته فوق وفي كل خطوة اعملها مرتين ...

وهذا بيطلعلك تقرير حسب التواريخ الي بيدخلها المستخدم في الفورم ..


واعذرني ترى استخدم البرنامج باللغة الإنجليزية وصعب اترجم المصطلحات ...


تحياتي لك وبالتوفيق ..

ملاحظة برفق لك ملف فيه الأكواد لأنها بتكون ملخبطة هنا ..

السلام عليكم ...

هذا عنوان أفضل موقع عربي - برأيي - لتعليم الأوفيس ، بما فيه الآكسس ، بكل ما فيها من طرق فنية ومبتكرة ومحترفة ....

officena.com

سجل في المنتدى ... وابدأ بالتعلم الذاتي ... هذا هو العالم الجديد ... التعلم الذاتي

أخوكم محمد