ابوخليل

تفضل .. ابقيت على التقرير الاصلي فقد تكون بحاجة لطباعة اسم محدد
وعملت لك زر جديد لطباعة الكل
كشوفات نهاية2.rar

وهذا تجميع حسب الموظف
حساب التأخيرات4.rar

مشاركة مع اخي موسى .. تفضل هذا يقوم بالمهمة
انقر نقرا مزدوجا على الصورة
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Image_DblClick(Cancel As Integer) ShellExecute Me.hwnd, "open", Import_pictures_path, "", "", 1 End Sub ان كان نظامك 64 اضف  PtrSafe  بعد Declare
 
in and out2.rar

ادرج في الجدول ترقيم تلقائي واجعله مفتاح للجدول وفي التقرير افرز حسب هذا الحقل
 

وعليكم السلام ورحمة الله وبركاته
Private Sub codeGovernorate_AfterUpdate() Forms!mpr!codeGovernorate = Me.codeGovernorate End Sub Private Sub coderanking_AfterUpdate() Forms!mpr!coderanking = Me.coderanking End Sub  
نقل قيمة2.accdb

تمام .. فتح الله عليك
شراء الخامات واخراجها شيء
وبيع الاصناف شيء آخر

السلام عليكم
تفضل اخوي عمر حسب طلبك
استخدمت مربعي نص من اجل تحقيق الفكرة
يمكنك التحكم بعرض الشريط يدويا مع مراعاة العرض داخل الكود
Private Sub Form_Open(Cancel As Integer) Me.box2.Width = 6600 End Sub Private Sub Form_Timer() On Error Resume Next If Me.box2.Width = 0 Then Me.TimerInterval = 0 Else Me.box2.Width = Me.box2.Width - Me.box1.Width \ Me.lx End If End Sub Private Sub أمر3_Click() Me.box2.Width = 6600 Me.TimerInterval = 50 End Sub  
88 _2.accdb

تفضل
Dim i As Integer, R As Integer Dim x As String, xx As String Dim rs As Recordset Set rs = Me.frm_T1.Form.RecordsetClone rs.MoveFirst R = rs.RecordCount For i = 1 To R If rs!newline = True Then x = rs!nots & " " & rs!TEXTT xx = " " & xx & " " & x End If rs.MoveNext Next Me.tsmya.Caption = xx  
test2.accdb

ما دمت قررت الاستعانة بالجداول المؤقتة ، فعندي لك طريقة افضل من عمليات انشاء و حذف الجداول
وانما يتم حذف البيانات حسب الضرورة
والطريقة انك تعمل جداول محلية دائمة تحمل حقول بنفس نوعية حقول المصدر  وتسميها بنفس الاسم او غيره لا فرق
تفضل المثال يتم حذف بيانات الجدول المؤقت قبل جلب البيانات الجديدة
انتبه لموقع قاعدة الجداول
 
Adb_Dat.rar

تفضل 
If Not (rst.BOF And rst.EOF) Then Do Until rst.EOF If rst.Fields(2).Value = 1 Then Me.Txt_namcity.AddItem (rst.Fields(0).Value & ";" & rst.Fields(1).Value) End If rst.MoveNext Loop End If  
combo5.rar

تمام عليك استاذ احمد .. طبعا ستعمل  حسب رغبة المستخدم  هل يريد زر واحد او اكثر
انظر هنا عملت حسب رغبتي انا وهي ان تتم مجموعة خيارات  من خلال زر واحد
بمعنى ان تركت الحقول خالية سوف يظهر الكل
وان اخترت تاريخين يفلتر ما بين التاريخين
وان اخترت اسم طالب يفلتر حسب اسم الطالب بناء على التواريخ وان ازلت التواريخ يظهر جميع غيابات الطالب المحدد
اخي الكريم ابو اياد
انا اختلف عن باقي احبتي وزملائي هنا .. فأنا ادرس اساسات البرمجة ولا اكتفي بحل المشكلة فقط
لذا ستجد مثالك تم تعديله الى ما يجب ان يكون عليه
فلو بقيت على وضعك الحالي باستخدام الحروف العربية فستتعب كثيرا ولن تتعلم وستكون عقدتك الاساسية هي الاكواد وفهمها وكتابتها ..  ولن تجد المتعة التي يجدها غيرك  .. 
 
غياب_مهذب.rar

تفضل .. اتمنى هو مطلوبك
تم تصفية النموذج الفرعي الثاني بناء على الرقم الاساسي في الفرعي الأول
1_2.rar

كان الاولى ان تعمل نماذج حسب فكرتك ليتم التطبيق عليها
تفضل التعديل
db1.mdb

انظر هذه المحاولة اذا تنفع 
Lab_2.accdb

اكيد يوجد حل وافضل من الأول
يمكنك الآن ادخال مئات التحويلات في اليوم الواحد وللدائرة الواحدة
‫hafez2.rar

اكيد يوجد حل وافضل من الأول
يمكنك الآن ادخال مئات التحويلات في اليوم الواحد وللدائرة الواحدة
‫hafez2.rar

اكيد يوجد حل وافضل من الأول
يمكنك الآن ادخال مئات التحويلات في اليوم الواحد وللدائرة الواحدة
‫hafez2.rar

تفضل فلترة للتقرير بناء على مربع قائمة ، عملته على المرفق الأول
اختر  بند او اكثر  ثم افتح التقرير ، للعلم استعلام التقرير جعلته بداخل التقرير
والنموذج الفرعي كذلك ولكني لم اكمله
 
Dim stDocName As String Dim strCriteria As String stDocName = "الصباحية والمسائية" strCriteria = "1" strCriteria = strCriteria & filtering(Me.cbo1, "EAAQAH", "'") DoCmd.OpenReport stDocName, acPreview, , strCriteria  
219_.rar

FirstDay = DateSerial(Year(Date), Month(Date), 1) LastDay = DateSerial(Year(Date), Month(Date) + 1, 0)  

يبدوا ان المشكلة عندك في برنامج الضغط
تم الضغط مرة اخرى ورفعه
New folder2.rar

في حدث فتح النموذج او التقرير اكتب هذا
docmd.Maximize وما دمت مبتدىء :
افتح النموذج على التصميم
من الخصائص افتح لسان التبويب حدث
في القيمة : عند الفتح .. انقر على النقاط الثلاث التي الى اليسار
سوف ينقلك الى محرر الفيجول
الصق العبارة داخل الحدث واحفظ واخرج
افتح النموذج من جديد لترى النتيجة
 

السلام عليكم
صحيح اخوي عمر  الخلل في المعيار  ولكن من شقين
الاول : جعل في المعيار اسم النموذج الفرعي الخارجي فقط
والصحيح ان يدرج اسم النموذج الرئيس واسم عنصر تحكم النموذج الفرعي وليس النموذج الفرعي نفسه ليصبح هكذا
[Forms]![fTable1]![STABLE2]![MOhafazh] الثاني جعل المعيار تحت حقل الرقم والصحيح ان يدرج جدول المحافظة داخل الاستعلام  ثم يدرج اسم المحافظة في عمود جديد ويضع المعيار تحته
 يوجد لديك بعض اخطاء في التصميم  الأفضل تجنبها 
تفضل مثالك بعد التعديل
N_DATA2.accdb

اولا .. في اول مشاركة لك ذكرت انك لم تستفد من هذا الموقع .. وهذا من الجحود .. من منا لم يبحث في هذا المنتدى عن  موضوع يهمه .. عن نفسي بحثت كثيرا ومازلت ابحث عند احتياجي لمعلومة محددة .
ثانيا : تمن على اخوانك بانك طرحت قاعدة بيانات لفئة خاصة قد لا يحتاجها الكثير وفيها الكثير من العيوب ، وتسميها هدية .
نصيحة : ان اردت المساعدة الحقيقة والسريعة .. اطرح عيوب برنامجك واحدة واحدة واطلب اصلاحها ، لان موضوعك هذا مخالف لقواعد المشاركة ويستحق الاغلاق ولكننا نتغاضى ونتجاوز بل نتكاسل عن بعض المخالفات  وغلق الموضوع
من شروط  قواعد المشاركات عدم طرح اكثر من سؤال واحد في الموضوع الواحد
 

اولا .. في اول مشاركة لك ذكرت انك لم تستفد من هذا الموقع .. وهذا من الجحود .. من منا لم يبحث في هذا المنتدى عن  موضوع يهمه .. عن نفسي بحثت كثيرا ومازلت ابحث عند احتياجي لمعلومة محددة .
ثانيا : تمن على اخوانك بانك طرحت قاعدة بيانات لفئة خاصة قد لا يحتاجها الكثير وفيها الكثير من العيوب ، وتسميها هدية .
نصيحة : ان اردت المساعدة الحقيقة والسريعة .. اطرح عيوب برنامجك واحدة واحدة واطلب اصلاحها ، لان موضوعك هذا مخالف لقواعد المشاركة ويستحق الاغلاق ولكننا نتغاضى ونتجاوز بل نتكاسل عن بعض المخالفات  وغلق الموضوع
من شروط  قواعد المشاركات عدم طرح اكثر من سؤال واحد في الموضوع الواحد
 

اجعل حقلي الصف والشعبة غير منضمين