jjafferr

وعليكم السلام 🙂 اخذت نسخة من النموذج اليومي ، وابدلته من نموذج مستمر الى نموذج فردي ، ثم عملت استعلام ينادي وحدة نمطية لأخذ البيانات من الجدول 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

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