Bluemind

اخوي بارك الله فيك لماذا رقم الجوال؟؟!!! قم بارفاق البرنامج لتعم الفائدة

اخوي اساس الاكسس هو الجداول حيث يعتبر الاكسس قاعده بيانات اي جداول تم عمل مثال لتوضيح الافكار تم عمل الجداول و الاستعلامات وكذلك التقرير كا نتيجه نهائيه شاهد التقرير InvoiceReport هل تريد معرفه طريقه عمل جدول بالاكسس؟؟؟ و وافنا بالنتيجه Invoice.zip

لماذا لا تنشى جدول وتجعله مصدر للتقرير؟؟!! اخوي اذا كنت لا تدري كيف تنشى جدول وتربطه بالتقرير هل هو المقصود؟؟

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

تفضل المثال بعد التعديل عليه حيث حددت السجلات حسب الصف ثم الفصل New Access.zip

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

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

اخوي الخطأ كان في سطور الكود التالي Case 1 الاسم = "Like '" & Me.secrh_next & "*'" Case 2 الاسم = "Like '*" & Me.secrh_next & "*'" Case 3 الاسم = "Like '*" & Me.secrh_next & "'" End Select Me.Filter = "[Emp_name] " & الاسم Me.FilterOn = True Me!ser_abu.Caption = "إلغاء البحث" ماهو الكائن "ابحث_عن_التالي" ؟؟؟ لابد ان يكون اسم مربع الذي سوف ياخذ الكود منه عنصر البحث لم افهم الغرض من هذا السطر لذلك قمت بتعطيله DoCmd.GoToControl "ابحث_عن_التالي" شاهد المرفق قاعدة شؤون الموظفات.rar

تفضل الملف بعد التعديل عليه Copy of Data_Base_No.2.rar

اخوي ماهو النموذج المراد التعديل عليه كذلك ماهو مربع الحرير و السرد المراد التعديل عليه

طبعا هناك خطوه مهمه نسيت ذكرها وهي وضع خاصيه border style للحقول الى Transparent وكذلك بدون اي الوان لحدود الحقول

اسف على التاخير ولكن كنت اقوم بالتعديل على التقرير رقم 1 اطريقه هي اولا لابد من تقليل ارتفاع الحقول الموجوده في التفاصيل لاحظت ان حجم الحقول سميك جدا ثانيا لابد من وضع خاصيه can grow لكل حقل في التقرير الى نعم >>> من خصائص الحقل >>> اذهب ل تاب التنسيق او format >> ثالثا ضع الكود ادناه في حدث on print ل قسم ال Details او التفاصيل وقم باضافه اسماء الحقول في متسلسله كما في الكود و لا تنسى ان العدد يبداء من صفر و مجموع عدد الحقول هو 13 وليس 12 Private Sub Details_Print(Cancel As Integer, PrintCount As Integer) On Error Resume Next Dim lngCounter As Long, dblMaxHeight As Double dblMaxHeight = 0 ReDim strcontrol(13) strcontrol(0) = "ID" strcontrol(1) = "program_name" strcontrol(2) = "Combo3" strcontrol(3) = "instructor_id" strcontrol(4) = "txtds" strcontrol(5) = "txtstart" strcontrol(6) = "txtend" strcontrol(7) = "txtde" strcontrol(8) = "txtdays" strcontrol(9) = "txtintendedto" strcontrol(10) = "txtlocation" strcontrol(11) = "txtRemarksInt" strcontrol(12) = "txtRemarks" For lngCounter = 0 To UBound(strcontrol) If Me(strcontrol(lngCounter)).Height > dblMaxHeight Then dblMaxHeight = Me(strcontrol(lngCounter)).Height Next For lngCounter = 0 To UBound(strcontrol) If lngCounter = 0 Then Me.Line (Me(strcontrol(lngCounter)).Left, Me(strcontrol(lngCounter)).Top)-Step(Me(strcontrol(lngCounter)).Width, dblMaxHeight), , B Else Me.Line (Me(strcontrol(lngCounter)).Left, Me(strcontrol(lngCounter)).Top)-Step(Me(strcontrol(lngCounter)).Width, dblMaxHeight), , B End If Next طبعا يفضل تسميه الحقول باللغه الانجليزيه شاهد التعديل على المرفق >>> التقرير Report1 هناك ملاحظه: لا يفضل هذا النوع من التقارير التي تطبع جميع البيانات ، مع مرور الوقت سوف يكون هناك بيانات ليس لها من داعي لطباعتها فايفضل عرض التقرير باستخدام فلتر للتاريخ (من - الى) واذا كان هناك شرح غير واضح اارجاء ابلاغي printline.rar

ارفق مثالك لعمل الازم

فكره ممتازه بعد اذنك اخوي نارت في المشاركه في هذا الموضوع

طريقه ارفاق ملف الى مشاركتك http://www.officena.net/ib/index.php?showtopic=31250

تم التجربه و لايوجد اي رساله خطأ!! ماهي رساله الخطأ التي تظهر؟؟

شاهد التقرير المسمى Report6 اذا كان هو المطلوب سوف اشرح الطريقه اعتذر لعدم التعديل على التقرير1 لوجود مشكلة في التعريب للفجيول بيسك لدي printline.rar

اخوي اولا اهنيك على التصميم الممتاز للجداول و العلاقات بينها ثانيا: يوجد شرط في الاستعلام وهو -1 للحقل Remind me من نوع Yes/No معناه اظهر السجلات التي عليها علامه صح(Yes) للتذكير بها بينما الجدول لايوجد اي سجل موضوع عليه علامه صح للحقل Remind me كذلك رساله التنبيه لا تظهر لعدم توفر الشرط اعلاه ، حيث ان الداله count لن ترجع اي سجل وسوف تكون النتيجة هي 0 لذلك سوف يقوم الاجراء بالخروج حسب ماهو موضوع في السطر البرمجي التالي: If intStore = 0 Then Exit Sub جرب وضع علامه صح للسجل رقم 2 (حيث ان تاريخ الانتهاء هو 15\9 اقرب تاريخ للشرط)من خلال النموذج او من خلال الجدول مباشره ثم قم بفتح النموذج مره اخرى او اقم بالتحديث النموذج و انظر النتيجه الحقيقه انت لم توضح ماهي المشكله التي تواجهها بالضبط

ملاحظه ممتازه بارك الله فيك وخصوصا Ctrl+P و اعتقد انها سهله بالنسبه لك اخي نارت اخوي فرهاد في حدث on key down للتقرير ضع الكود التالي If (Shift And acCtrlMask) > 0 And KeyCode = 80 Then KeyCode = 0 بالنسبه للرايت كليك او زر الفاره الايمن ضع الكود ادناه في حدث on load للتقرير Dim i As Integer For i = 1 To CommandBars.Count CommandBars(i).Enabled = False Next i و وفنا بالنتيجه

في النموذج السابق استخدمت لعملية البحث حقل من نوع رقم وهو Instructor_ID ولذلك يكون هذا السطر من الكود يكون كالتالي rs.FindFirst "[Candidate_Type] = " & Me.cboMoveTo & " لاحظ وجود علامتين اقتباس فقط بينما في النوذج الثاني ، انت تريد البحث باستخدم حقل نصي ولذلك لابد من اضافه علامات تنصيص للكود اعلاه كتالي: rs.FindFirst "[Candidate_Type] = """ & Me.cboMoveTo & """" لاحظ اربع علامات اقتباس الى اليمين و ثلاث على اليسار شاهد المرفق DataEdit.rar

اخوي كما ذكر لك اعلاه ، البيانات تم تخزينها على شكل نص وليست ارقام كذلك نوع الحقول نص وليست ارقام تم عمل الحقول على ان تاخذ قيمه الحقول النصيه من جداول الاخرى مثلا حقل النوع ياخذ محتوى الحقل النوع من جدول النوع وليس من الحقل nambar كيف تريد ان تبحث الداله عن رقم 1 بينما القيمه المخزنه هي ذكر؟؟!! ان شاء الله اتضحت الرؤية

قم بتغيير الفاصله (,) الموجوده في التعبير الى فاصله منقوطه (;) اذا كان الاوفيس لديك باللغة العربية

تم عمل نموذج للبحث و التعديل فقط اختر او اكتب الرقم وسوف يظهر بقية البيانات طبعا انصح باغلاق مربع نص حقل الرقم لانه في حاله التعديل سوف تتاثر البيانات الاخرى مادم انه لايوجد علاقات مربوطه و معمول لها cascade DataEdit.zip

اخوي قم بانشاء زر امر في النموذج وضع فيه الكود التالي في حدث عند النقر او On click DoCmd.OpenReport "Report", acViewReport الامر الموجود في الكود اعلاه AcViewReport يعرض التقرير فقط

اخوي مصطفى الحقول التي تتعامل معها حقول من نوع نص و القيم داخلها كذالك نص و انت وضعت ارقام وبتالي النتيجه Error# هذا هو التعبير الصحيح =DCount("name","[stu]","[ELSF]='أولي إعدادي عام' and [ELNOA]='ذكر' and [HALT_ELKYD]='باقي'")