تقرير يعطى عدد ادخالات المستخدمين بتاريخ معين ومربع نص فى النموذج يوضح ادخالات المدخل فى اليوم الحالى

ارجو من اهل المنتدى المساعدة للاهمية

up

الاخ ابوجمانه

لوسمحت تعطينا معلومات عن كيفية الدخول ، واسم المستخدم وكلمة سره ، واسم النموذج ، واسم الخانات اللي تريدنا ننظر فيها.

يعني كيف ممكن نساعدك بدون هالمعلومات!؟!؟

ويمكن لهذا السبب ، مجموعة من الاعضاء انزلوا البرنامج وما ردوا عليك!!

جعفر

عذرا اخوانى فلم الاحظ انى لم ارفق الاسم والباسورد

الاسم : ايمان

الباسورد : 1

نموذج الدخول : frm-UserLogon

المطلوب :

1- اظهار عدد السجلات للمستخدم الحالى فى اليوم الحالى ( عبارة عن عدد السجلات فى النموذج الفرعى + السجل فى النموذج الرئيسى )

2- عمل تقرير يوضح اجمالى عدد السجلات للمدخلين بين تاريخين

3- طباعة تقرير يحتوى على ( اسم المنشأة / اسم المالك / المسلسل / نوع المبنى / المساحة / عدد الطوابق ) وهذا لكل سجل فى ورقة مستقلة ويتم طباعة التقارير كما هو مبين بالصورة المرفقة

استمارة بيانات.doc

up

up

تم عمل التقرير ولكن مربع النص فى النموذج الرئيسى حاولت ولم استطيع ان اجد حلا له

ارجو المساعدة للاهمية

تفضل :)

وللعلم ، المعلومه التي اعطينتي:

الاسم : ايمان

الباسورد : 1

غير صحيح :(

ولأني اضطررت لإيقاف OnTimer في جميع النماذج حتى اعرف اشتغل بدون رجفة في الشاشة ، وتغييرات اخرى حتى استطيع الدخول بدون الاسم/الباسورد الخطأ ، لذا فد تجد انه ابسط لكن استخدام الكود واخاله في برنامجك مباشرة ، وعمل حقل نص في النموذج باسم Records_Number  :

Private Sub Form_Current()
On Error GoTo err_Form_Current

'make Reference to Microsoft DAOxxx object Library
Dim rst As DAO.Recordset
Set rst = Me.frmDescriptionUnit.Form.RecordsetClone
rst.MoveFirst

Counter = 0
Do Until rst.EOF
If rst!REGuser2 = Me.äÕ84 Then
If rst!DATREG2 = DateValue(Now()) Then
Counter = Counter + 1
End If
End If
rst.MoveNext
Loop

Me.Records_Number = Counter
Me.Xgov.SetFocus


Exit Sub
err_Form_Current:

If Err.Number = 3021 Then
Resume Next
Else
MsgBox Err.Number & vbCrLf & Err.Description
End If

End Sub

جعفر

62.البيانات.mdb.zip

اخى العزيز جعفر 

جزاك الله خيرا على المجهود الرائع ولكنى اريد ان يستمر العداد فى عد الوحدات يس لكل سجل فقط ولكن ان يعطى اجمالى الوحدات المدخلة خلال اليوم ككل وان يتم اعادة النعداد من الصفر خلال اليوم التالى

حياك الله اخي ابو جمانة :)

العداد يقرا من النموذج الفرعي فقط:

1. يقارن اذا اسم المستخدم موجود في النموذج الفرعي ،

2. واذا وجده ، يقارن تاريخ اﻻدخال بتاريخ اليوم ،

3. واذا وجده فيحسب له واحده ، ويكمل الحساب.

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

وﻻ يحسب مجموع مدخﻻت المستخدم اﻻ بعد ان يخرج من النموذج ويدخل مرة اخرى ، اي ﻻ يحسب اثناء إدخال المستخدم.

اﻻن وبعد قراءتك اعﻻه ، جرب ادخال المعلومات ، ثم الخروج من النموذج ،

ثم أخبرني ماذا تريد بالضبط وبالتفصيل لو سمحت. :)

جعفر