منذر عساج

بارك الله فيك على هذا الجهد الرائع لي بعض الملاحظات : 1) عملية التسجيل معقدة نسبياً هلا قمت بشرحها بالتفصيل . 2) برنامج الكراك يبقى مفتوحاً بعد الإغلاق . لكن هذا لا يقلل أبداً من إبداعك . بارك الله فيك سيتم التثبيت ,,,

للإطلاع على السورس اضغط مفتاح الشفت مع النقر على الملف

حلمك علينا لو قمت بالبحث لوجدت ما تريد http://www.officena.net/ib/index.php?showtopic=17934

أخي الكريم قم بحذف عبارة Text من جملة Combo0.Text في مربعات النص

أخي الكريم أرفق مثال ليتمكن من لديه الحل من الإجابة على إستفسارك

يمكن أخي الكريم أن تقوم بعمل جدول خاص بالأشهر وتقوم بربطه بحقل الشهر ثم من خلال البحث في الإستعلام تكتب رقم الشهر فقط شاهد المرفق قم بالإطلاع على المثال في الرابط التالي لعمل فلترة بشكل جميل وحاول الإستفادة منه http://www.officena.net/ib/index.php?showtopic=18133 والله الموفق ,,, db1.rar

اخي الكريم لإستخدام الأمر Between يجب أن يكون ذلك بين قيمتي من نوع تاريخ حتى يستطيع التعامل معها لكن ما تقوم به هو أنك تريد استخدام هذا الأمر لحقلين من نوع نص حتى وإن كانت على شكل (يناير) فهي تبقى نص فقط .

بارك الله فيك أخي الكريم دائماً ما تتحفنا بالجديد والمفيد وفقك الله الى كل خير ,,,, سيتم التثبيت ,,,

أخي الكريم ليس لدي فكرة عن المشكلة لكن بإمكانك وضعها في مشاركة الاخ / رضا عقيل عن الموضوع عله يطلع عليها ويحاول المساعدة . والله الموفق ,,,

بالفعل برنامج جميل بارك الله فيك أخي الكريم

بارك الله فيك أخي الكريم على هذا الجهد لي بعض الملاحظات على تنسيق مربعات النص داخل النماذج وبالنسبة للطريقة الصحيحة لربط العلاقات في برنامج مبيعات ومخازن شاهد الرابط التالي : http://www.officena.net/ib/index.php?showtopic=17844

جهد رائع بارك الله فيك والشكر موصول للأخ / إكسير جزاه الله عنا كل خير

أخي الكريم إليك خطوات الحل لهذه المشكلة: 1)قم بإنشاء إستعلام تحديد وليكن QFiled يستند الى الإستعلام الجدولي Crosstab . 2) قم بتغير مسميات الحقول في إستعلام التحديدQFiled الذي أنشأته الى العناوين من Field0 الى Field11 على الترتيب. 3)قم بإنشاء تقرير يستند الى إستعلام التحديدQFiled 4)قم بنسخ الكودين التاليين ووضعهما في الوحدة النمطية للتقرير General : Function FillLabel(LabelNumber As Integer) As String FillLabel = Nz(ReportLabel(LabelNumber), "") End Function Sub CreateReportQuery() On Error GoTo Err_CreateQuery Dim db As DAO.Database Dim rs As DAO.Recordset Dim qdf As DAO.QueryDef Dim fld As DAO.Field Dim indexx As Integer Dim FieldList As String Dim strSQL As String Dim I As Integer Set db = CurrentDb Set qdf = db.QueryDefs("Crosstab") indexx = 0 For Each fld In qdf.Fields If fld.Type >= 1 And fld.Type <= 12 Or fld.Type = 14 Then FieldList = FieldList & "[" & fld.Name & "] as Field" & indexx & ", " ReportLabel(indexx) = fld.Name End If ' MsgBox Label(indexx) indexx = indexx + 1 Next fld For I = indexx To 12 FieldList = FieldList & "null as Field" & I & "," Next I FieldList = Left(FieldList, Len(FieldList) - 1) strSQL = "Select " & FieldList & " From Crosstab" db.QueryDefs.Delete "QFiled" Set qdf = db.CreateQueryDef("QFiled", strSQL) 'MsgBox strSQL Exit_CreateQuery: Exit Sub Err_CreateQuery: If Err.Number = 3265 Then '*** if the error is the query is missing Resume Next '*** then skip the delete line and resume on the next line Else MsgBox Err.Description '*** write out the error and exit the sub Resume Exit_CreateQuery End If End Sub لاحظ أننا قمنا بإدراج أسم الاستعلام الجدولي وإستعلام التحديد في الكود . 5) ضع الكود التالي في حدث عند الفتح للتقرير : Dim I As Integer For I = 0 To 10 ReportLabel(I) = "" Next I Call CreateReportQuery 6)قم بإضاف مربعات نص في رأس التقرير ضع فيها الكود التالي : =filllabel(0) بعدد الحقول لديك اي من 0 الى 11 وإستبدلها بمربعات التسمية الخاصة بالعناوين 7)قم بتسجيل المكتبة الخاصة DAO 3.6 إذا لم تكن مسجلة لديك ملاحظة : لا تنسى تعريف المتغير التالي في الوحدة النمطية: Dim ReportLabel(11) As String والله الموفق ,,,, Crosstab.rar

أخي الكريم شاهد الرابط التالي http://www.officena.net/ib/index.php?showtopic=16811

بارك الله فيك أخي الكريم بإمكانك إضافة الإجراء Requery الى الماكرو لتحديث البيانات دون الحاجة الى الخروج

جهد رائع بارك الله فيك لما لا يكون هنك جدول للمعلمين وربطه بجدول الطلاب والله الموفق ,,,

بارك الله فيك أخي الكريم على هذا المثال الجميل وجزا الله خير من قام بعمله

جزاك الله خير أخي الكريم لكن المرفق غير موجدود

أخي الكريم قم بإضاة حقل جديد الى الجدولين Med وTashF وليكن Tashf_N0 قم بربط الجدولين بعلاقة رأس بأطراف قم بإدراج النموذج Med داخل النموذج TashF شاهد التعديل ss.rar

جميل بارك الله فيك

أخي الكريم قم بعمل علاقة رأس بأطراف بين جدول Personal data وجدول TashF عن طريق الحقل Code_No

أخي الكريم إذهب الى القائمة في الأعلى ثم من خيار (أدوات) ثم (بدأ التشغيل ) أشر بعلامة الصح على جميع الخيارات إذا كانت شريط المهام غير موجود في الأعلى أضغط مفتاح الشفت أثناء تشغيل البرنامج

أخي الكريم تم دمج المشاركتين معاً لعلاقتهما بنفس الموضوع يمكن عمل ما تيرد بإضافة الكود التالي في حدث بعد التحديث لحقل الوحدة (unit) previous = DMax(" [Expr1] ", "Query1 ", "[Noumber]=Noumber1") شاهد المرفق ,,, _____00.rar

أخي الكريم شاهد الروابط التالية http://www.officena.net/ib/index.php?showtopic=17991 http://www.officena.net/ib/index.php?showtopic=14946

أخي الكريم بالنسبة لى وللعديد ربما لم نستخدم 2007 بعد والله الموفق ,,,