jjafferr

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

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

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

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

صح لسانك اخوي ابوخليل ، ويُكتب هذا الكلام بماء الذهب 🙂 جعفر

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

هنا تمت مناقشة هذا الموضوع : تحريك نموذج اكسس بالضغط على الماوس - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

همممم الموضوع ما يستاهل كل هذا الشغل ، اعمله في الاعدادات والسلام 🙂 إلا اذا كان سؤال امتحان او سؤال تحدي 🙂 جعفر وطبعا هذه الطريقة لن تعمل في الاكسس بصيغة mde و accde

السلام عليكم 🙂 حل مثل هذه الامور : 1. ضغط واصلاح لقاعدة البيانات (مثل ما اشار اخوي ابوعبدالله) ، 2. انشىء قاعدة بيانات جديدة ثم استورد اليها جميع الكائنات (مثل ما اشار اخوي ابوعبدالله) ، 3. اعمل تقرير جديد بنفس الاسم TMPCLP284581ّ~ (واذا كانت المشكلة في نموذج ، فاعمل نموذج بنفس الاسم) ، وبعد ان تحفظه ، ينحذف تلقائيا ، 4. استعمل هذا الكود لحذف جميع انواع هذه الكائنات : وهناك موضوع كامل عن كائنات اخرى كذلك قد تكون عالقة في البرنامج : How to remove 'deleted database objects' from the MSysObjects table | Access World Forums (access-programmers.co.uk) Function Delete_TMPCLP_Objects() 'Delete the ~TMPCLP objects Dim rst As DAO.Recordset Dim mySQL As String mySQL = "SELECT Name, Type FROM MSysObjects " mySQL = mySQL & " WHERE Name Like '~TMPCLP*'" Set rst = CurrentDb.OpenRecordset(mySQL) Do Until rst.EOF Select Case rst("Type") Case 1, 4, 6 'Tables DoCmd.DeleteObject acTable, rst("Name") Case 5 'Queries DoCmd.DeleteObject acQuery, rst("Name") Case -32768 'Forms DoCmd.DeleteObject acForm, rst("Name") Case -32764 'Reports DoCmd.DeleteObject acReport, rst("Name") Case -32766 'Macros DoCmd.DeleteObject acMacro, rst("Name") Case -32761 'Modules DoCmd.DeleteObject acModule, rst("Name") Case Else Debug.Print rst("Type"), rst("Name") End Select rst.MoveNext Loop rst.Close: Set rst = Nothing End Function . جعفر