jjafferr

وعليكم السلام 🙂 معذرة اخوي خالد ، بدل ما يستعمل اخوي ازهر كودك ابو 8 اسطر ، انا اقدم له حل ابو سطر واحد فقط ، ويشتغل في الكود والاستعلام Remove_Letters: Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace("y0372023r0b9g0v5", "q", ""), "w", ""), "e", ""), "r", ""), "t", ""), "y", ""), "u", ""), "i", ""), "o", ""), "p", ""), "a", ""), "s", ""), "d", ""), "f", ""), "g", ""), "h", ""), "j", ""), "k", ""), "l", ""), "z", ""), "x", ""), "c", ""), "v", ""), "b", ""), "n", ""), "m", "") جعفر الحروف على تسلسل لوحة المفاتيح 🙂

السلام عليكم 🙂 اليك طريقة نقل كائنات المرفق الى برنامجك ، لأن نقل الوحدة النمطية التي في Class من برنامج الى آخر يجب ان يتم بطريقة خاصة : هذه المشاركة الاصل ، وفيها المرفق بصيغة 2003 🙂 جعفر

وعليكم السلام 🙂 لا اعرف ولم اسمع بأنه يمكن استخراج الكود من الملفات صيغ mde و accde ، غير موقع واحد من احد مبرمجي الاكسس المحترفين اصحاب ثقة ، يمكنك رفع ملفك الى الموقع التالي: MDE to MDB Conversion - Retrieve VBA code from your MDE/ADE Databases (everythingaccess.com) وعليه اذا كان فيه امكانية لإسترجاع برنامجك الى صيغة accdb ، فالموقع سيثبت لك ذلك (عن طريق الايميل وبعد يوم او اكثر) ، وفي مقابل مبلغ من المال (يبدأ بمبلغ 450 دولار) ، وبعد التأكد بأنك صاحب البرنامج حقا ، سيعملون المطلوب ويرجعون لك البرنامج بصيغة accdb ويمكنك التعديل عليه 🙂 واذا اتخذت هذا الطريق ، فياريت تكتب لنا هنا مؤكدا ما جرى 🙂 جعفر

عفوا ، رجاء التوضيح !! جعفر

وعليكم السلام 🙂 1. اعمل استعلام حذف : . 2. في الواقع انت محتاج الى استعلام الحاقي ، ولكن بالبيانات من الجدول الآخر ، فيصبح الاستعلام هكذا : . ملاحظات مهمة على برنامجك ، حتى حتى لا تحصل على مشاكل في المستقبل : 1. لا تستعمل Lookup في الجدوال ، وانما استعمل استعلام ربط بين جدولين للحصول على المطلوب ، 2. لا تستخدم علامات او ارقام كأسمات لكائناتك ، وبالذات العلامات والاسماء المحجوزة للاكسس ، 3. لا تستعمل اسماء بحروف عربية في كائناتك ، 4. لسرعة عمل الجدول ، يجب عمل حقل المعرّف (مفهرس وترقيم تلقائي) ، والحقل الذي تعتمد عليه كمعيار للنمييز بين السجلات , حقل الاسم (يجب ان يكون مفهرس) : جعفر 1369.نسخ البيانات.mdb.zip

عيدكم مبارك وايامكم سعيدة ان شاء الله 🙂 جعفر

وعليكم السلام 🙂 طريقة الاخ خالد هي الصحيحة ، ولكن وبما انك طلبت هذه الطريقة الاخرى ، فاليك الطريقة: 1. اعمل استعلام لجدول الذكور ، وأخر لجدول الاناث ، ثم استعلام لجدول الطلبة ، 2. في الاستعلام ، نطلب منه ان يستخرج لنا الاسم الاول من الاسم الكامل ، كما نراه في الحقل F ، 3. نعمل حقل اضافي لتعريف نوع الجنس ، واسمه G : . وهذه النتيجة: . 4. نعمل استعلام لتحديث اسماء الذكور ، وآخر لتحديث اسماء الاناث ، 5. الرابط بين الاستعلامات هو الاسم الاول : . والنتيجة: . تم تحديث جميع الاسماء الموجودة في جدولي الذكور والاناث ، اما الاسماء الغير موجودة ، فيكون الحقل فيها فارغ ، لذلك ارجع واقول: طريقة الاخ خالد هي الصحيحة 🙂 جعفر 1368.if-name-set-gendre.mdb.zip

السلام عليكم 🙂 وعيدكم مبارك ان شاء الله 🙂 اخي ابوحسان ، هل لازلنا نعمل في حدود قوانين المنتدى وهو سؤال واحد لكل موضوع؟ انا اعرف ان اخي الدكتور حسين لا يمل من الاجابة ، ومن اخلاقة انه يستحي ان يقول لا 🙂 جعفر

وعليكم السلام 🙂 اخذت نسخة من النموذج اليومي ، وابدلته من نموذج مستمر الى نموذج فردي ، ثم عملت استعلام ينادي وحدة نمطية لأخذ البيانات من الجدول tblAppointments 🙂 وعملت تعديل للمكتبات لتعمل على النواتين 32بت و64بت 🙂 جعفر 1367.NA_Calendar.mdb.zip

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

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

جميل اذا كان ممكن ان القي الضوء على الملف ، ولكن بمزاجي 🙂 جعفر

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

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

وعليكم السلام 🙂 اقرأ هذا الموضوع ، ففيه معلومات تفيدك : . جعفر

وعليكم السلام 🙂 اهلا وسهلا بك اخي جمال في المنتدى 🙂 الظاهر انك ما قرأت قوانين المنتدى حتى تستفيد منه الاستفادة الكاملة 🙂 قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية جعفر

ما فهمت قصدك !!

ومع الاعتذار لأخي أزهر ، فاعرف انه الآن محتار شو يختار 🙂 جعفر

%100 🙂 بس انت اخوي خالد ما شاء الله عليك استخدمت كل البدائل ، فكان لازم انبش عن تغيير هنا او هناك 🙂 لا طبعا 🙂 بس لازم ندعي انه ما يكون عنده تسميات اخرى في النموذج ، وإلا اخترب شغلك بعد 🤣 جعفر

وبإضافة التنسيق وتعديل من جانبي على كود اخوي خالد : Dim ctli As Control For Each ctli In Me.Controls If ctli.ControlType = aclabel Then If ctli.Caption <> "0" Then Exit Sub End If End If Next ctli MsgBox "////////////////" . وبطريقة اخرى 🙂 dim i as integer For i = 1 to 4 If me("o" & i).caption <> "0" Then Exit Sub End If Next i MsgBox "////////////////" . جعفر

ما يصير ما نضيف شيء 😁 حل آخر If val(Me.o1.Caption) + val(Me.o2.Caption) + val(Me.o3.Caption) + val(Me.o4.Caption) = 0 Then MsgBox "\\\\\\\\\\\\\\\" End If . وإثراءٌ للموضوع ، اطلب من الشباب ان يعطونا طرق اخرى ايضا 🙂 جعفر

حياك الله 🙂 عملت الدالة fApptType في وحدة نمطية مستقلة ، وتقوم بهذه التصفية ، ونناديها من الاستعلام ، ونرسل لها قيمة الحقل ، هكذا : . هذه الدالة ، وفيها الشرط الالذي يتأكد من قيمة السطر (وليس الحقل كاملا) في Day1Data (مثلا) ، ويقارنه بالسجلات في الجدول tblAppointments ، لحقل ApptSubject و ApptType : Function fApptType(D As String) As String On Error Resume Next 'D = Day1Data , Day2Data , ... 'Op = option selected in Forms!frmCalendarMain!Opt_ApptType If Len(D & "") = 0 Then Exit Function Dim Op As String Dim x() As String Dim i As Integer Op = Forms!frmCalendarMain!Opt_ApptType x = Split(D, vbCrLf) For i = 0 To UBound(x) 'if the ApptType the same, then show it If DCount("*", "tblAppointments", "[ApptSubject]='" & x(i) & "' And [ApptType]='" & Op & "'") > 0 Then fApptType = fApptType & vbCrLf & x(i) End If Next i fApptType = Mid(fApptType, 3) End Function . والظاهر ان اهتمامك بالشهر فقط ، لذا : احذف النموذج frmCalendarWeek ، واستورده من نسخة سابقة ، واحذف الاستعلام qry_tbl_WeekData 🙂 جعفر

وعليكم السلام اخوي عبدالله 🙂 عملت هذا الاختيار في النموذج للفئتين (وفي الجدول كتبت ارقام كذلك ، بدل عن الفئة ... ) : في الجدول الشهري استطعنا نحل الموضوع ، لأن القيم اللي في نفس الحقل ، على اسطر مختلفة (تفريق القيم تكون بإشارة نهاية السطر) ، ولكن في جدول الاسابيع ، القيم اللي في نفس الحقل ، الفارق بين القيم يجب ان يكون علامة مميزة مثل فاصلة او فاصلة منقطة والافضل | ، اما المسافة فليس معناها قيمة مختلفة !! . جعفر 1367.NA_Calendar.mdb.zip

وكثر ما اكنت اقول في حقك بأنك اخونا العود ، فإني كنت مقصر ، إجلالا لمثل مواقفك هذه 🙂 جعفر

تم 🙂 لا خَيلَ عِندَكَ تُهديها وَلا مالُ ... فَليُسعِدِ النُطقُ إِن لَم تُسعِدِ الحالُ وَاِجزِ الأَميرَ الَّذي نُعماهُ فاجِئَةٌ ... بِغَيرِ قَولِ وَنُعمى الناسِ أَقوالُ جعفر