jjafferr

اخي الفاضل 🙂 بما ان هذا الموضوع تتمة للموضوع . فرجاء وضع مشاركتك هناك. جعفر

السلام عليكم 🙂 وما في كائنات مخفية 🙂 والنتيجة النهائية ، لاحظوا الحقل الاخير على اليمين Change_Delete_Insert ، فهو يخبرنا اذا قمنا بعملة تعديل او حذف او اضافة : . جعفر Access Tables Magic.accdb.zip

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

وعليكم السلام ورحمة الله وبركاته 🙂 في حدث فتح النموذج ، او حدث عند التحميل ، ضع هذا الكود: docmd.gotorecord,, acnewrec جعفر

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

السلام عليكم اخوي مهند 🙂 قبل ان ترسل الملف ، اريدك ترسل لي الكود خلف حقل الباركود وبعد ان تكون قد ادخلت الكود الذي في مشاركتي السابقة (الذي قلت انه لم يتغير شيء)، وجميع الاحداث اللي لها علاقة بهذا الحقل ، الشيء الذي جاء على بالي ، انه بعد ادخال الباركود ، كان يجب ان ينتقل المؤشر الى الحقل التالي ، بينما في وضعك فإنه لم ينتقل ، فهذا معناه انه هناك كود يمنعه من ذلك ، لذا اريد اشوف الكود 🙂 جعفر

تفضل ، الاكسس يعمل كل شيء وبدون تدخل الوورد 🙂 هذا النموذج ، يمكنك ادخال البيانات ، والطباعة او معاينة التقرير . وهذا التقرير تراه بزر "معاينة التقرير" ويمكنك طباعته ، او تطبعه مباشرة من زر "طباعة التقرير" ، من النموذج . جعفر 1461.accdb.zip

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

وكان فيه طلب لتقريب الرقم بطريقة خاصة ، زين تقرأه كذلك : جعفر

جرب هاي المعادلة في مصدر بيانات حقل مبلغ التقريب: =Round([المبلغ]/1000,0)*1000 المبلغ = 284667 نقسمه على 1000 (عدد الخانات التي تريد تقريبها) = 284.667 نقرب الرقم باستخدان الامر Round ، وعدد الخانات العشرية = 0 ، فتكون النتيجة 285 نضرب الرقم في 1000 لكي يرجع لى نفس حجم الخانات السابقة = 285 * 1000 = 285000 وبما اننا استعملنا امر التقريب ، فاليك مثال للنتيجة اللرقم التالي: 284499 = 284000 284500 = 284000 284501 = 285000 فأي رقم اكبر من 500 سيتم تقريبه الى الرقم الاعلى. جعفر

هنا ويجب ان نتوقف !! ما ادري ما الفائدة من هذا التغيير الجديد الذي وضعته ، رجاء تشرح لنا ، لأن الظاهر انه في تشويش في التفكير !! اذا كان هذا النموذج فاتورة : في النموذج الرئيسي تكون عندك رقم الفاتورة والتاريخ واسم المشتري واذا كانت الفاتورة نقدا/على الحساب ، ويمكنك اضافة المزيد من البيانات ، يجب ان يكون عندك نموذج مستمر (الافضل ان يكون نموذج فرعي) تضع فيه المواد المشتراة ، وكميتها وسعرها لا علاقة بالمورّد في الفاتورة. جعفر

ماهي البيانات التي تريدها ان تظهر في كل صفحة : يعني هل البيانات موجودة في قاعدة البيانات ، وماهي الحقول ، وكيف تقرر انك تريد تطبع لفلان او فلان ، وهل تطبع الورقة التي بها البيانات ، او تريد ارسال ملف وورد/pdf لمكان ما ؟؟ يمكنك ارفاق صورة من التقرير/ التقارير ، حتى نعرف التنسيق المطلوب. جعفر

وعليكم السلام ورحمة الله وبركاته 🙂 اخي يونس ، اطلعت على ملفي الوورد ، ورأيت بأنك ترسل بيانات له من الاكسس. سؤال: لماذا تعمل هذا في الوورد ، لماذا لا تستعمل تقرير الاكسس ليقوم بالعمل كاملا ، واذا اردت النتيجة في ملف وورد ، فيمكنك التصدير لملف rtf. والذي يقرأه وورد !! اما الجواب على سؤالك: لماذا لا ينفتح الملف الثاني ، فكما كتبت انت ، لأن به ماكرو 🙂 جعفر

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

عندك محموعة اشياء يحتاج لها تعديل ، والقائمة ليست بترتيب الاولوية : 1. علشان اللون يظهر ، يجب ان تكون خلفية الحقول عادية وليست شفافة . 2. جميع الحقول عندك غير مُمكّنه ، فلا تستطيع ان تضع عليها التركيز ، فيجب ان تعملها مُمكّنه (هذا اذا اردت الاستفادة من تظليل السطر عند النقر على اي حقل ، وإلا فلا داعي لتغييره) . 3. في جميع الاكواد ، يجب استعمال حقل بياناته لا تتكرر ، بينما انت استعملت الحقل toDelete والذي بياناته متكررة ، وبعد النظر في الاستعلام مصدر بيانات النموذج ، اتضح بأنه لدية الحقل Auto_ID ، فوضعته في النموذج وجعلته مخفي ، واستعملته في الاكواد ، 4. عملت تغيير في اسم الحقل tmp_Ticket_No الى tmp_tmp 5. آخذا في الاعتبار جميع النقاط اعلاه ، تم تغيير الكود في التنسيق الشرطي والاكود باسماء الحقول الجديدة 🙂 جعفر DATA1041.zip

شكرا 🙂 في حقل الباركود (ولنسمية Barcode) ، على حدث "بعد التحديث" ، اكتب التالي ، ولكن اكتبه في بداية الحدث قبل اي كود آخر عملته انت : if me.Barcode<>me.BarCode.text then docmd.gotorecord,, acnewrec me.Barcode.setfocus exit sub end if جعفر

جرب هذه المعادلة في الاستعلام: d: Format(DateAdd("s",[Date_in],#01-01-1970#),"yyyy-mm-dd hh:nn:ss ampm") بس غيّر اسم الحقل من Date_in الى الاسم الحقيقي 🙂 جعفر

تقريبا وصلنا لنتيجة ، ولكن محتاج الى التالي لوسمحت 🙂 اريد ان اعرف التالي: اريدك تدخل معلومة جديدة في الجدول ، تأخذ الوقت الذي يعطيك (كما في الصورة اعلاه) ، واريد ان تكتب التاريخ والوقت بالثانية (هاي تأخذها من ساعتك او ساعة الكمبيوتر ، ومو مهم ان الثواني تكون بالضبط 100%) ، اريد معرفة منطقة السيرفر (الجهاز الذي عليه قاعدة البيانات) : . . وياريت تُدخل مجموعة سجلات فيها اوقات مختلفة 🙂 جعفر

الكود الذي اعطيتك ، يجب ان تستعمل اسم الحقل الحقيقي مكان الاسم الذي انا كتبته Barcode اذا وضعت الكود في الحدثين كما اخبرتك ، واتبعت التعليمات ، فستظهر لك الارقام في اسفل الشاشة ، والارقام ستجدها في صفحة الكود (استخدم Ctrl+G للدخول لنافذة VBE) وستجد نافذة immediate في اسفل الشاشة. جعفر

وجرب هذه الطريقة التي تدمج بين isNull و ""= if len(me.combobox1 & "")=0 then me.textbox.enable = false else me.textbox.enable = true end if جعفر

طيب خلينا نشوف اللي الكمبيوتر يشوفه: في حقل الباركود (ولنسمية Barcode) ، على حدث "بعد التحديث" ، احذف الكود السابق ، واكتب هذا الكود debug.print "Update " & me.Barcode debug.print "Update " & me.BarCode.oldvalue debug.print "Update " & me.Barcode.text . وكذلك على حدث "عند التغيير" On Change ، ضع هذا الكود : debug.print "Change " & me.Barcode debug.print "Change " & me.BarCode.oldvalue debug.print "Change " & me.Barcode.text . وفي النموذج: ادخل الباركود مرة واحدة ، ثم ادخل باركود جديد ، ثم ادخل في نافذة الكود ، وستلقى ارقام الباركود في النافذة تحت (رجاء تخبرني هذه الارقام) . جعفر

وعليكم السلام 🙂 الشيء الوحيد الذي يأتي على بالي هو اعادة تنصيب الاوفيس !! جعفر

تفضل 🙂 المرفق فيه ملفين ، والاثنين يعملون نفس العمل ، ولكن الملف رقم 2 عملته خصيصا لـ @Moosak لأنه يعمل كوحدة نمطية 🙂 الفكرة مثل اول مشاركة ، نعمل حقل مؤقت : . ثم عملت تنسيق شرطي لجميع الحقول ، اذا كانت قيمة الحقل "رقم_التذكرة" موجودة في قيمة الحقل المؤقت ، اجعل لون السطر أخضر (والسبب في اختيار حقل رقم_التذكرة ، لأن بياناته غير متكرر) : 1. نختار جميع الحقول ، 2. ننقر على زر التنسيق الشرطي . . هذه هي المعادلة بالطريقة الصحيحة: InStr([tmp_ticket_No],"|" & [رقم_التذكرة] & "|")>0 . وهذا هو الكود Private Sub Form_Current() Me.tmp_ticket_No = "|" & Me.[رقم_التذكرة] & "|" End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 'Me.SelHeight = to specify or determine the number of selected rows 'Me.SelTop = to specify or determine which row (record) is topmost in the current selection ' if no selection If Me.SelHeight = 0 Then Exit Sub Dim i As Integer Dim rst As dao.Recordset Set rst = Me.RecordsetClone rst.MoveFirst ' if the user pressed the Shift or Control key on the keyboard, 'then don't clear the previous selection If Shift <> acShiftMask And Shift <> acCtrlMask Then 'clear the previous selection Me.tmp_ticket_No = "" End If ' Move to the first selected record. rst.Move Me.SelTop - 1 ' Loop through the selected records For i = 1 To Me.SelHeight ' add the selected Records to the tmp field Me.tmp_ticket_No = Me.tmp_ticket_No & "|" & rst![رقم_التذكرة] & "|" rst.MoveNext Next i rst.Close: Set rst = Nothing 'Debug.Print Me.tmp_ticket_No End Sub . والنتيجة جعفر 1457.تلوين سجل محدد.accdb (2).zip

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

في حقل الباركود (ولنسمية Barcode) ، على حدث "بعد التحديث" ، اكتب التالي : if me.Barcode<>me.BarCode.oldvalue then docmd.gotorecord,, acnewrec me.Barcode.setfocus exit sub end if جعفر