Ahmed.IQ

حل هذه المشكلة بسيط لكن كان مسببلي مشكلة في الاول ,
 
اولاً قمت بعمل جميع الحقول في Detail Can Grow =  yes
ثم في خصائص التقرير في الاعلى اختر Arrang وبعدها قمت بتحديد جميع الحقول في Detail  ثم اخترت Tabular والنتيجة تم حل المشكلة حيث اصبحت الحقول تاخذ نفس القياس  كما في الصورة .
 

اخي العزيز . بمساعدة احد الاخو من باكستان كان لدي هوفة في الكود وهو من قام بتصحيحها ارجو منك الدعاء له لانه هو من ساهم بحل المشكلة الرئيسية .
الحل هو ارسال sendkey  الى المتصفح كوكل كروم وسوف يقوم بعمل الازم الكود من جزئين الاول تعريف والاخر الكود
Option Explicit #If VBA7 Then Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) #Else Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) #End If وهنا سنقوم بوضع الكود المرفق في الزر الذي سيقوم بجلب لك الهستري الخاص بمتصفح كروم 
Shell "C:\Program Files\Google\Chrome\Application\chrome.exe -url chrome:\history", vbMaximizedFocus Sleep 2000 SendKeys "chrome://history/~" اتمنى ان اكون قد وفقت بالاجابة 

الموضوع سهل في  ال form /footer راح تعمل حقل غير منظم وتجعل مصدر الحقل هذا دالة اسمها count وهذه الدالة تعتمد مثلا على حقل معين مثل id راح يحسب كل حقل فيه قيمة داخل ال id يجب ان لا يكون فارغ مثلا لو عندك عشر حقول id في النموذج 3 فاضي وسبعة فيهم قيمة سوف يظهرلك الناتج ب 7 لو كانت جميع حقول ال id فيها قيمة سوف يظهر عندك في هذا الحقل العدد 10 . الاخوان بدل ان يحددو حقل معين واقصد هنا الاخ سامي الحداد استخدم الدالة بهذا الشكل 
=Count(*) في هذه الحالة سيعتد على السجلات المتوفرة ويعدلها لك بدون الاعتماد على حقل بعينة .. تم وضع هذا الحقل في نموذج الموظفين لو فتحت النموذج الخاص بالموظفين بوضع التصميم سترى ذالك .
 
اما الحقل الذي يظهر لك النتائج عدد السجلات في نموذج البحث الشامل فهو قام فقط بجعل مصدر الحقل الحقل الاخر في نموذج الموظفين عن طريق الكود التالي
=EMP.Form!txtCount  

تفضل جرب هذا الكود ,,,
 
On Error Resume Next Dim LogUser As New CUser If trycount > 3 Then MsgBox " Of a good Muslim is his leaving alone what does not concern him", vbOKOnly + vbMsgBoxRight + vbInformation, "Warning!" MsgBox " The program will be closing now ,,, Please check designer ", vbOKOnly + vbMsgBoxRight + vbInformation, "Warning!" DoCmd.Quit ElseIf IsNull(Me.user) Then MsgBox ("Please, you must enter your user name ") Me.user.SetFocus ElseIf IsNull(Me.pass) Then MsgBox (" Please, you must enter your password ") Me.pass.SetFocus ElseIf Len(Trim(Me.pass)) > 20 Then MsgBox (" Shall not exceed twenty password letter or number") Me.pass.SetFocus '------- Mohamed Essam ------ secreted user to enter the activation model and the abolition of shift team and hide and show tables --------- ElseIf [user] = "sadmin" And [pass] = "sadmin" Then DoCmd.Close DoCmd.OpenForm "MSysEdit" ElseIf [user] = "adminx" And [pass] = "adminx" Then DoCmd.Close DoCmd.OpenForm "UsersAbility", acNormal '------- Mohamed Essam ------ secreted user to enter the activation model and the abolition of shift team and hide and show tables --------- Else LogUser.UserName = Me.user LogUser.pass = Me.pass If LogUser.Valid Then Set MyUser = LogUser If Me.user = "خالد" Then DoCmd.Close DoCmd.OpenForm "main1", acNormal Else DoCmd.Close DoCmd.OpenForm "frmend" End If Else MsgBox " User name or password is incorrect. Please try again ,,,", vbOKOnly + vbMsgBoxRight + vbInformation, "Warning!" trycount = trycount + 1 End If End If End Sub  

لازم تعمل شرط في الكومبوبكس نفسه لما تعملها ان كود اليوزر يساوي كود اليوزر الذي تم التسجيل به .. كود اليوز ممكن تخزنه في متغير ولما تفتح النموذج تخزن القيمة وتحط الشرط ان كود المستخدم في الكومبوبوكس يساوي الحقل الي خزنا فيه كود المستخدم