jjafferr

عفوا أخي ، اختلط عليّ الامر هناك طريقتين: 1. Msgbox ، حيث ان الرسالة لما تظهر ، فانها توقف الكود ، فاستعملها هكذا: . . 2. Timer ، هذا الكود يجعل الكود يتأخر الوقت المطلوب: . . ولكن السؤال هو: لما هذه العملية؟ لماذا لا تضع قائمة باسماء الطابعات على النموذج ، ويجب عليه اختيار الطابعه قبل الطباعة؟ هذا الرابط به عدة مرفقات وروابط اخرى ، وفيها الطريقة: http://www.officena.net/ib/topic/49802-اختيار-اسم-الطابعة-عند-طباعة-تقرير/ جعفر

السلام عليكم في الجدول TBL2 عندك نسختين من كل حقل ، مثلا Type (النوع) و Type1 (النوع) ؟ فايهم تستعمل للحساب؟ جعفر

قصدي ان المشكلة قد لا تكون في النموذج ، وانما في مصدر البيانات ، كما لو كان مصدر البيانات استعلام لا يمكن تحديثه ، استعلام اجمالي مثلا جعفر

ولكن جعفر

ما فرقت العملية ، الطريقة نفسها اللي ذكرتها جعفر

وعليكم السلام في VBA ابحث عن Msgbox ، وفيه مثال تأخير بالثواني اللي تريد فإعمل الكود قبل إعطاء امر فتح التقرير جعفر

السلام عليكم ما هو مصدر النموذج ، جدول ام استعلام؟ هل تستطيع ادخال بيانات في المصدر مباشرة؟ جعفر

وعليكم السلام انا لم استخدم AutoKeys Macro من قبل ، فلا تلومني اذا لم استطع مساعدتك علشان البحث يتم ، يجب ان تكون احد الحقول مختارة Setfocus ، واللي لاحظته ان الماكرو عندك يستعمل الامر الذهاب الى [Screen].[PreviousControl].[Name] ، واللي المفروض ان يؤدي نفس الغرض ، ولكن ، يجب عليك التأكد ان الحقل الذي تكون عليه قبل عملية البحث هو حقل "نص" وليس اي كائن آخر في النموذج مثل زر الامر مثلا جعفر

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

وعليكم السلام اعمل حقل في الجدول بإسم Bal ، اذا كان برنامجك على الاكسس 2007 فما فوق ، ففي الجدول حقل من نوع "حقل محسوب" ، تجعل فيه المعادلة التي تريد للحقل Bal ، وهو يحسبها تلقائيا اما الطريقة الاخرى ، ففي النموذج ، وعلى حدث "بعد التحديث" للحقل العدد المطلوب بيعة ، اعمل المعادلة: me.Bal= me.الرصيد - me.العدد والقيمة تلقائيا ستدخل النموذج والجدول جعفر

وعليكم السلام أختي هكذا عمل الكود : اذا كان حقل عدد الاصناف نص ، فالمعادلة هي كما ذكرتي: =DCount("[رقم الفاتورة]";"الفاتورة";"[نوع الفاتورة] = 'شراء' And [عدد الأصناف]='" & [عدد الأصناف] & "'") بينما اذا كان حقل عدد الاصناف رقم ، فالمعادلة ستصبح =DCount("[رقم الفاتورة]";"الفاتورة";"[نوع الفاتورة] = 'شراء' And [عدد الأصناف]=" & [عدد الأصناف]) جعفر

وعليكم السلام هناك 3 طرق للتعرف على الحقل الذي قيمته Null (لا قيمة ، او قيمة غير معروفة) ، سنعمل على هذا جدول ، ولاحظ السجلات الفاضية: . في الطريقة الاولى (IsNull) قلنا اذا الحقل Null ، فاعطنا النتيجة 0 ، في الطريقة الثانية (Len) قلنا اذا عدد حروف الحقل تساوي صفر ، فاعطنا النتيجة 1 ، . والنتيجة: . لكن الامر الاكثر إتباعا هو Nz ، ومعناه Null to Zero ، والامر هو NZ([Field_Name], Value to Replace)Q ، واليك 4 امثلة عليه: 1. الطريقة الخطأ في استعمال الامر ، حيث لم نخبر الامر النتيجة التي نريدها في حال اكتشف ان الحقل فاضي ، 2. اذا كان الحقل Null ، فحول نتيجة الحقل الى 0 (وهذه الطريقة الاكثر اتباعا) ، 3. وممكن ان ، اذا كان الحقل Null ، فحول نتيجة الحقل الى 1 (او اي قيمة ثابته) ، 4. والقليل يعرف ، اذا كان الحقل Null ، فتستطيع ان تعطي اي قيمة/معادلة شئت للحقل (لاحظ انا ضرب قيمة الحقل Field1 في 100 وفي 200 ، حسب قيمة Field1) ، وحتى يمكننا ان نستدعي دالة Function : . والنتيجة: . جعفر 292.Nulls.mdb.zip

وعليكم السلام انا عملت لك طريقتين لعمل سجل جديد ، وتفتح النموذجين من ازرار النموذج الرئيسي: . . 1. الماكرو 1 يفتح النموذج frm_Table1 مباشرة على سجل جديد ، وهذه الطريقة هي الافضل ، 2. عند فتح النموذج frm_Table2 ، وعلى حدث "عند الفتح" ، يقوم ماكرو 2 بعمل سجل جديد (وهذا اللي انت قمت به) جعفر 291.English_wordings.mdb.zip

السلام عليكم أخي ابو عبدالله هذا ليس برنامجي!! قلت لك جرب برنامجي ( Multilanguage3.zip )كما هو لوسمحت من النموذج الرئيسي تختار اللغة العربية ، ثم تضغط على زر Form Address ، وشوف مسميات الحقول والازرار بالعربي ، واضغط على زر ملاحظة1 وملاحظة2 حتى ترى الرسائل بالعربي هذا هو المطلوب جعفر

السلام عليكم اخي العزيز / اخي الفاضل ، لو انا كنت فاهم الموضوع بالبيانات اللي انت ارفقتها من البداية ، لو صدقني من البداية تم الحل ، ولكن ، لا يغريك المسمى اللي على اسمي ، اني خبير وووو ، فانا ان لم افهم المطلوب ، لا استطيع المساعدة!! رجاء: جعفر

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

السلام عليكم أخي عبدالله المسميات العربية نوعين: 1. اسماء الحقول والكائنات ، ومنها اسم افتراضي له امر1 ، وعند اضافة مربع نص يقوم بتسمية افتراضيا نص1 ، وليس عندي جواب لهذه الجزئية 2. واليك المثال التالي: الاسم مكتوب بالعربي ، وانا سأجعل ارتفاع هذا القسم اطول (القسم باللون الازرق) ، مستخدما الطريقة التقليدية في التسمية: . فيصبح الكود: Private Sub راس_التقرير_Format(Cancel As Integer, FormatCount As Integer) Me.راس_التقرير.Height = Me.Height + (2 * 1440) End Sub واليك التقرير التالي ، وهو نسخة طبق الاصل من التقرير السابق: . إلا اني لم اهتم بالمسميات العربية ، وانما استعملت اسماء فهرست الكائنات في التقرير ، فاصبح الكود: Private Sub Report_Open(Cancel As Integer) Me.Section(acHeader).Height = Me.Section(acHeader).Height + (2 * 1440) End Sub والنتيجة: . فقصدي هنا اننا يمكن ان نعالج جزء من المشكلة بهذه الطريقة جعفر 291.English_wordings.mdb.zip

عفوا ، نسيت ارجع الاستعلام ليقوم بأخذ القيمة من النموذج الفرعي استخدم هذا SQL للاستعلام qry_Last_Disc_End_Date : SELECT DiscountEndDate FROM Cridi WHERE DiscountEndDate Is Not Null AND EmployeeID=[Forms]![frmCridi]![frmCridi_sub]![EmployeeID] ORDER BY ID DESC جعفر

وعليكم السلام لم اتوصل لحل لأني بحاجة الى بيانات اكثر ، فالمثال الذي وضعته انت خطأ ، لأن فيه بيانات شهري 1 و 2 ، بينما اسم التقرير يقول بأن البيانات لشهر 2 !! والتاريخ ، هل نأخذه من جدول Daily؟؟ كيف والبيانات موجودة في الجدول det entry !! فرجاء تعبئة بيانات اكثر في قاعدة بياناتك ، ثم ضع مثال واضح بالارقام (يعني لا تخلي كل الارقام 5000 ، فبهذه الطريقة لن يمكنني معرفة هذا العدد ينتمي الى اي عمود). ورجاء جعل المثال واضح بالصور والاسهم (عن طريق power point مثلا) جعفر

تفضل سؤالك لم يوضح انك تريد مقارنة تاريخ بداية الخصم مع تاريخ نهاية الخصم السابق!! هذا هو الكود الجديد: Private Sub DiscountStartDate_BeforeUpdate(Cancel As Integer) 'get the last Discount End Date 'mySQL = "SELECT DiscountEndDate FROM Cridi" 'mySQL = mySQL & " WHERE DiscountEndDate Is Not Null AND EmployeeID =" & Me.EmployeeID 'mySQL = mySQL & " ORDER BY ID DESC" 'Debug.Print mySQL ' 'Dim rst As DAO.Recordset 'Set rst = CurrentDb.OpenRecordset(mySQL) 'rst.MoveLast: rst.MoveFirst 'Last_Disc_End_Date = rst!DiscountEndDate Last_Disc_End_Date = DLookup("[DiscountEndDate]", "qry_Last_Disc_End_Date") If Me.DiscountStartDate <= Last_Disc_End_Date Then MsgBox " تاريخ بداية الخصم أكبر أو يساوي تاريخ نهاية الخصم السابق" Cancel = True Me.Undo End If End Sub جعفر 289.FrmCridi.mdb.zip

وعليكم السلام خلينا نترجم كلامك الى لغة الاكسس انت قصدك بالعُهد هنا ، السجلات 1. طيب اذا كانت سجلات الشخص تتعدى الصفحة الواحدة ، مثلا صفحة ونصف ، فهل تريد ان تكتب تحت الصفحة الاولى مجموع سجلات الصفحة والنصف؟ طيب وفي نهاية سجلاته ، نهاية الصفحة ونص ، هل عندك مجموع هناك كذلك ، طبعا لا الطريقة الاسهل لحل هذه المسألة هي في التجميع والفرز في التقرير ، انظر المثال المرفق ، حيث سأعمل تجميع للحقل nam_Student (انت تستطيع ان تعمل التجميع لحقل العُهد): هذا شكل التقرير العادي ، واذا عملت مجموع العُهد ، فستأتي آخر التقرير (لآحظ لا يوجد قسم الصفحات هنا ، بدل قسم رأس وذيل التقرير) ، اضغط على 1 ، ثم 2 . الآن عملنا قسم/مجاميع خاصة للحقل nam_Student ، وظهر له رأس وذيل (وهنا تستطيع بهذه الطريقة ان تعمل مجموع العُهد في ذيل هذا القسم ، وسيكون صحيحا) . وفي الرابط التالي ، لاحظ الصورة الثانية والثالثة ، لنفس الغرض: http://www.officena.net/ib/topic/67329-حصر-اجمالي-عدد-الاجازات-لكل-موظف-في-التقرير-عنوان-معدل/?do=findComment&comment=437803 جعفر

وعليكم السلام أستاذ عبدالعزيز لوسمحت تعمل موضوع منفصل لكل سؤال ، وان شاء الله تحصل على الاجابه جعفر