jjafferr

السلام عليكم أخي وائل انت ما محتاج حدث التوقيت ، فرجاء عمل التالي لحل مشكلتك: اطفئ حدث التوقيت ، استعمل الكود التالي ، والذي يحفظ السجل بمجرد انك تٌدخل قيمة في حقل الصنف والكمية (للعلم ، Me.Refresh يعمل نفس الشئ) ، وعليه ، سترى ان المجاميع تغيرت على طول: Private Sub itemcode_AfterUpdate() price = item_sale If Len(Me.Qty & "") <> 0 Then DoCmd.RunCommand acCmdSaveRecord End Sub Private Sub Qty_AfterUpdate() If Len(Me.itemcode & "") <> 0 Then DoCmd.RunCommand acCmdSaveRecord End Sub جعفر

السلام عليكم استاذ علي اعتذر عن التأخير ، ولكن العمل اخذ كل هذا الوقت استخدم هذا النموذج: ثم استخدم التقرير التالي (لم اقم بربط التقرير برمجيا مع اي زر): وعليك ان تعمل التنسيق الشرطي لبقية حقول الشهر (انسخ التنسيق الشرطي من الحقل 1 الى بقية الحقول 8 الى 31 ، مع مراعاة تغيير اسم الحقل). الشئ المهم هو ان المرفق 221.Folow up V.2.accdb.zip يجب تغيير صيغة الملف الى 7z (الموقع لا يقبل ارفاق هذه الصيغة) ، وذلك لأن هذه الصغيه هي الوحيدة التي استطعت من خلالها ضغط قاعدة البيانات لرفعها على الموقع ، واذا لم تملك البرنامج لفك هذه الصيغة ، فيمكنك انزاله مجانا من الموقع www.7-zip.org . العمل اعتمد على الاستعلامات: Absents ، Absents_Crosstab_1-2 ، وتم عمل التقرير على اساس الاستعلام Absents_Crosstab_2-2 جعفر 221.Folow up V.2.accdb.zip واستعمل الطريقة في الرابط التالي ، لتستبدل علامة الصح (لأيام الغياب) بدلا عن الرقم 1: http://allenbrowne.com/ser-52.html

وعليكم السلام أخي حسين تفضل الرابط http://www.officena.net/ib/topic/59612-سؤال-عن-اخفاء-الجداول/?do=findComment&comment=382261 جعفر

اذا كان قصدك المؤشر الذي يومض في الحقل والذي بمعرفته يمكنك معرفة اين يمكنك الكتابة او مسح ما قبله او ما بعده ، فالجواب ، وحسب علمي ، لا. اذا كان عندك سبب او قصد معين ، فقد نستطيع مساعدتك بطريقة ما !! جعفر

وعليكم السلام عفوا ، شو قصدك من مؤشر النص؟ جعفر

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

وعليكم السلام ملاحظاتي السابقة ، والتعديلات التي عملتها في النموذج الفرعي ، تنطبق على كون النموذج ورقة بيانات او نموذج مستمر اما اذا كان قصدك انك تريد تغيير النموذج frm_INV100_Unite الى ورقة بيانات ، فنعرف انك لا تستطيع ان تعمل ازرار فيها ، فيمكنك عمل التالي: انسخ كود حدث الزر ok ، عمل حدث "النقر المزدوج" او النقرة الواحدة لأي حقل من الحقول ، ثم الصاق الكود فيها (انا افضل ان تخفي بقية الحقول التي لا تحتاجها في النموذج ، وتعمل حدث النقر المزدوج على الحقول الظاهرة). اما اذا لم افهم قصدك ، فرجاء ان تشرح بإسهاب حتى افهم جعفر

وعليكم السلام كما قال الاخ نور الدين: DoCmd.RunCommand acCmdSaveRecord For i = 1 To 2 اذا كان حقل التعريف ، مثلا ID ، اذا كان رقم: DoCmd.OpenReport "Report Name", , , "myID=" & Me.id اما اذا كان حقل التعريق نص : DoCmd.OpenReport "Report Name", , , "myID='" & Me.id & "'" Next i او اذا كان حقل التعريف ، مثلا ID ، اذا كان رقم: DoCmd.OpenReport "Report Name", acViewPreview, , "myID=" & Me.id, acHidden اما اذا كان حقل التعريق نص : DoCmd.OpenReport "Report Name", acViewPreview, , "myID='" & Me.id & "'", acHidden DoCmd.PrintOut , , , , 2 DoCmd.close acReport, "Report Name" جعفر

وعليكم السلام أخي للأسف ، هذه مشكلة في الاكسس ، في النموذج المستمر ، عندما يأخذ مربع السرد والتحرير قيمته استنادا على حقل آخر الحل هو: اعمل نسخة من SQL استعلام مربع سرد وتحرير حقل الوحدة ، اعمل استعلام جديد ، انا اسميته qry_INV100_Unite ، اعمل النموذج المستمر frm_INV100_Unite ، اللي يأخذ بياناته من الاستعلام qry_INV100_Unite ، في النموذج الفرعي INV100 ، احذف المعيار من حقل الوحدة ، في الحدث "بعد التحديث" للحقل "رمز المادة" ، افتح النموذج frm_INV100_Unite (والذي سيكون مصفى حسب "رمز المادة" ، اضغط على زر Ok للمادة التي تريدها ، وسترى ان القيمة انتقلت لحقل الوحدة في النموذج الفرعي INV100 ، وسيغلق النموذج frm_INV100_Unite سهله هه جعفر 220.البرنامج.accdb.zip

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

السلام عليكم اخي هاني مثل ما تفضل وقال أخي أبوخليل ، وهذا دليل على مقولته: جعفر

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

السلام عليكم الاستاذ علي انا اعتذر منك ، فلم ارى مرفقك إلا الآن والسبب اني لم اره ، هو انك عدلت في مشاركتك ووضعت فيه المرفق ، بعد مشاركتي !!! على كل حال ، فتح واكتشاف كائنات برنامجك كان تحديا اكثر من الحل نفسه في مشاركتي الاخيرة قلت: . وبالفعل هي مشكلة برنامجك !! عندك 42 نموذج ، بهم صورة او اثنتين ، و 23 تقرير ، بهم صورة او اثنتين . . صحيح انك في بعض النماذج والتقارير كنت كاتب الكود الصحيح لربط الصور ، ولكن للأسف ، الصور اصلا كانت مضمنة وليست مرتبطة. غير طريقة عرض الصور من Embedded او Shared الى Linked ، واضغط واصلح البرنامج ، وان شاء الله البرنامج يصغر حجمه جعفر

تفضل ياسيدي نفس النموذج السابق ، وبه خاصية البحث عن ولي امر: . وكما اخبرتك في مشاركتي السابقة: . وهذا نموذج آخر لهذه الطريقة: . جعفر 110.Aziz (2).accdb.zip

عليكم السلام نعم يمكن انظر الرابط التالي والذي بالانجليزي http://www.databasedev.co.uk/report_printing.html الكود اعلاه بسيط ولصفحة واحدة ، واذا اردت عدد غير متساوي ومختلف من صفحة الى اخرى ، فيجب ان تكتب الكود له ، او تعمل جدول تكتب امام حقل رقم الصفحة ، في حقل عدد السجلات لتلك الصفحة جعفر

عندي 3 اقتراحات: 1. حتى ولو ان الصور خارج قاعدة البيانات ، تأكد من خصائص الصور في النماذج والتقارير انهم مرتبطين ، وليسوا مضمنين (حصلت معي ، وداخ راسي ، الى ان شفت الخصائص ، والحمدلله انتهت المشكلة) ، 2. اعمل برنامج جديد فاضي ، واستورد كائنات البرنامج السابق اليه ، 3. ارفع البرنامج في احد المواقع بعد ضغطه ، وارسل لس الرابط على الخاص ، وسأنظر فيه ان شاء الله جعفر

حيا الله أخوي محمد

حيا الله أخونا العود أبوخليل لكم وحشه لما اكون بعيد عن المنتدى جعفر

هذا معناه ان عندك صور مضمنه في النماذج او التقارير ، وعليك جعلها مرتبطه جعفر

اعتذر عن الخطأ ، ما اعرف كيف تحول الواحد الى صفر جعفر

وعليكم السلام أخي علي نعم ، الضغط والاصلاح جعفر

عفوا ، الكود هو (تغيير الواحد الى صفر): Dim stLinkCriteria As String stLinkCriteria = "[AutoNum]=" & Me![AutoNum] stLinkCriteria = stLinkCriteria & " And [ZCustomerID] ='" & Me.CusName.Column(0) & "'" DoCmd.OpenForm "FrmUpdateBianat", , , stLinkCriteria وتفضل المرفق جعفر 108.NCustomers.mdb.zip

تفضل النموذج frm_Balance به المطلوب ، وعند تغيير اي مادة في النموذج الفرعي ، فالقيم في النموذج الرئيسي تتغير كما يمكنك ان تغير النموذج الرئيسي الى نموذج يعرض سجل واحد فقط ، اذا شئت جعفر 110.Aziz (2).accdb.zip

السلام عليكم أخي أحمد وأخوي رمهان أخي أحمد ، اليك اسهل طريقة لجمع أكثر من شرط Dim stLinkCriteria As String stLinkCriteria = "[AutoNum]=" & Me![AutoNum] stLinkCriteria = stLinkCriteria & " And [ZCustomerID] ='" & Me.CusName.Column(1) & "'" DoCmd.OpenForm "FrmUpdateBianat", , , stLinkCriteria وهو الجواب لسؤالك جعفر

السلام عليكم وأخيرا اصبح الكمبيوتر امامي ومع الاعتذار لأخي أبوخليل للمداخلة تفضل هذه محاولتي: جعفر 107.zip