jjafferr

برنامجك شغال تمام حسب المعيار اللي استعملته انت ، فما اعرف شو المشكلة !! هذا استعلامك، والمعيار موجود في حقل رقم السند ، اما حقل الترقيم التلقائي فارغ ، ونتائج الاستعلام صحيحة !! . يجب ان يكون الكود هكذا فقط ، ورجاء حذف جميع الاشياء الاخرى: للمعاينة Dim stDocName As String stDocName = "امرصرف" DoCmd.OpenReport stDocName,acViewPreview او فقط DoCmd.OpenReport "امرصرف",acViewPreview للطباعة Dim stDocName As String stDocName = "امرصرف" DoCmd.OpenReport stDocName او فقط DoCmd.OpenReport "امرصرف" واما اذا اردت طباعة اكثر من نسخة من التقرير (انا اطبع نسختين) بالكود التالي Dim stDocName As String stDocName = "امرصرف" DoCmd.OpenReport stDocName, acViewPreview, , , acHidden DoCmd.SelectObject acReport, stDocName DoCmd.PrintOut acPages, , , acHigh, 2 DoCmd.Close acReport, stDocName . جعفر 1271.2.تحديد طباعة السندات بين رقمين.accdb.zip

الاستعلام "امرصرف" مافيه معيار !!

اخذ مني وقت الى ان فهمت تقريرك 🙂 اجمع جميع كائنات التقرير ، الى قسم "التفصيل" Detail ، وخلاص 🙂 يعني ، بدل ان يكون القسم بهذا الارتفاع . خليه يكون . والنتيجة جعفر 1271.تحديد بداية ونهاية اوامر الصرف.accdb.zip

وعليكم السلام 🙂 عادة هذا الخطأ ينتج بسبب اعدادات اللغة في الوندوز جعفر

هذه تعملها كما تعمل معيار بين تاريخين: في الاستعلام ، في حقل رقم امر الصرف ، اكتب في المعيار : >=Forms!frm_Main!From_A and <=Forms!frm_Main!To_A ويكون عندك في النموذج frm_Main ، حقلي ، من امر صرف: From_A ، والى امر صرف: To_A جعفر

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

اخي امير لا يُنصح بكتابة اللغة العربية في الكود ، لذا اقترح عليك النظر في طريقة حفظ البيانات العربية (او اي لغة اخرى) في الجدول ، ومن ثم قرأتها من هناك ، من الرابط المرفق ، وخذ منه قدر حاجتك 🙂 جعفر

وعليكم السلام 🙂 تفضل: Me.Table2Subform!NoOrder_Label.Caption = "jjafferr" جعفر

نعم ، لا يمكن الدخول في كود البرنامج ، فهو مغلق. وعليه لا يمكن عمل التغيير المطلوب لجعله يعمل على نواة 64بت. جعفر

وعليكم السلام 🙂 ياريت مرفق لهذه الحالة 🙂 جعفر

وعليكم السلام 🙂 لجعل البرنامج يعمل على نواة 64بت ، يجب عمل تغيير في بعض الدوال ، البرنامج المرفق بصيغة accde ويعني انه مغلق ولا يمكن الدخول الى البرمجة وتغييرها. جعفر

وعليكم السلام 🙂 تفضل Dim PauseTime, Start PauseTime = 5 ' Set duration in Seconds Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop . الافضل النظر في الكود ومعرفة وين المشكلة ، وبعض الاوقات ينحل الموضوع بالامر DoEvents بعد الامر اللي يأخذ وقت للتنفيذ ، واكتبه لأكثر من مكان ، واللي يعمله هو ، ما يطلب من الكود ان يتوقف حتى يكمل الكود عمله ، وانما يعطي امر للمعالج بأن يواصل عمل بعض الاوامر الاخرى 🙂 جعفر

🙂

وعليكم السلام 🙂 نريد نعمل تجميع وهمي : . . . ونعطيه اي اسم خرافي ، مثلا نقطة (.) . . . . والنتيجة . جعفر 1266.قائمة.accdb.zip

بدل ان اعطيك سمكة ، خلني اعلمك كيف تصيد 🙂 لاحظ الاستعلام qry_Student_info ، نشوف انه ما يسمح لتعديل البيانات ، ومافي سطر إضافي لإضافة سجل . في تصميم الاستعلام . احفظ الاستعلام ، وشغله ، نشوفه الآن يمكن تغيير البيانات فيه ، ويمكن إضافة سجل جديد فيه كذلك . ولما نعمل نموذج مصدر بياناته هذا الاستعلام ، كذلك نلاحظ اننا ما نقدر نغير شيء ، ولا نقدر نضيف سجل جديد . يعني في الاستعلام ، وفي النموذج : اختار Dynaset (Inconsistent Updates) بدلا عن Dynaset جعفر

شكرا على الملاحظة اخوي محمد 🙂 السبب هو المسافات الرأسية ، فوق وتحت كل من هذه الحقول : . فاذا غيّرنا والغينا المسافة العمودية بين الحقول هذه : . النتيجة ستكون: . جعفر 1265.Database1.accdb.zip

شوف المرفق في مشاركتي السابقة 🙂

تفضل يا سيدي 🙂 عملت لك جدول tbl_Student_info ، بينما استعلام qry_Student_info يجمع الجدول السابق مع جدول الجدول الجديد : . ولما تريد تستعمل النماذج او التقارير ، استعمل الاستعلام qry_Student_info كمصدر بيانات لها ، بس رجاء الانتباه ، تأكد ان اسماء الطلبة موجودة ف الجدول tbl_Student_info ، والا فإنها لن تظهر في الاستعلام 🙂 جعفر ‏‏StuData.zip

ممكن تغيير ارتفاع الحقل الى صفر 🙂 في حدث "عند تنسيق" التقرير : . نأخذ لفة في كائنات التقرير ، والحقل اللي رقمه "كما هو في النموذج" 1 و 2 و 3 و 4 و 5 ، يا اننا نظهرهم بارتفاع الحقل العادي ، او نخفيهم ويكون ارتفاع الحقل صفر ، حسب قيمتهم : Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim ctl As Control Dim i As Integer Dim myFields As String myFields = "1,2,3,4,5" For Each ctl In Me.Controls ' only a textbox, and our fields names If ctl.ControlType = acTextBox And InStr(myFields, ctl.name) > 0 Then If Len(ctl.Value & "") > 0 Then ctl.Visible = True ctl.Height = 1440 * 0.25 Else ctl.Visible = False ctl.Height = 0 End If End If 'ctl.type Next End Sub . والنتيجة للسجل الثاني: . جعفر 1265.Database1.accdb.zip

اخي سامر انت ارسلت تقرير الى ادارة الموقع ، هكذا : . فهل هناك شكوى على هذه المشاركة ؟ جعفر

وعليكم السلام 🙂 الكلام الباقي هو للتعامل مع رسالة الخطأ ، اذا لم يستطع الماكرو حفظ السجل. جعفر

السلام عليكم 🙂 اخي جلال ، هذا الموقع متخضض في هذا النوع من الفيروسات : NoMoreRansom.org وتقدر ترسل لهم بعض الملفات لتحليلها ، واعطاك الرد. جعفر

تم ارسال مشكلة المشاركة الى . اي جدول ؟ الجدول الوحيد اللي فيه مسار الصور هو st_sch ، فالظاهر ان كلامك عنه ، صح ؟ والحقلين اللي تريد ان تُبقي بياناتهم هي: ImageID و ImagePassport ، صح ؟ وبعدين لما تستورد بيانات جديدة ، يجب ان تعمل استعلام "تحديث" لهذا الجدول ، ولما تعمل تحديث ، يجب ان نعرف هذه الصور لأي طالب ؟؟ ، لذا بالاضافة الى حقلي الصور ، يجب ان نُبقي حقل "رقم هوية الطالب" حتى يكون الربط به !!! الموضوع بهذه الطريقة يكون متشعب ، وبرمجته تكون غير مباشرة وووو 😞 الطريقة الصحيحة هي ان تعمل جدول خاص لـ"بيانات الطالب" التي لا تتغير ، مثل رقم الهوية ، والصور ، وووو ، وتُبقي بقية الجداول مثل ما هي عليه ، متغيره بإستمرار حسب استيراد البيانات ، وفي الاستعلام تعمل علاقة بين جدول بيانات الطالب وبين جدول الاستيراد ، وتربط الجدولين عن طريق "رقم الهوية" ، وتضيف بقية البيانات في الاستعلام 🙂 جعفر

استاذ محمد ، هذه ملاحظة الاستاذ فايز في احد مشاركاته : جعفر

استاذ فايز ، ليش تعاقبنا وما تخبرنا اي تفاصيل!!