jjafferr

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

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

وعليكم السلام 🙂 اهلا وسهلا بك اخي جمال في المنتدى 🙂 الظاهر انك ما قرأت قوانين المنتدى حتى تستفيد منه الاستفادة الكاملة 🙂 قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 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 . جعفر

وعليكم السلام 🙂 استعمل مساعد برنامج الاكسس في VBE ، وابحث فيه ، وستحصل على معظم اجاباتك : Form.BorderStyle Property None 0 The form has no border or related border elements. The form isn't resizable. Thin 1 The form has a thin border and can include any of the border elements. The form isn't resizable (the Size command on the Control menu isn't available). You often use this setting for pop-up forms. (If you want a form to remain on top of all Microsoft Access windows, you must also set its PopUp property to Yes.) Sizable 2 (Default) The form has the default border for Microsoft Access forms, can include any of the border elements, and can be resized. You often use this setting for normal Microsoft Access forms. Dialog 3 The form has a thick (double) border and can include only a title bar, Close button, and Control menu. The form can't be maximized, minimized, or resized (the Maximize, Minimize, and Size commands aren't available on the Control menu). You often use this setting for custom dialog boxes. (If you want a form to be modal (modal: A window or dialog box that requires the user to take some action before the focus can switch to another form or dialog box. Dialog boxes and messages are usually modal.), however, you must also set its Modal property to Yes. If you want it to be a modal pop-up form, like most dialog boxes, you must set both its PopUp and Modal properties to Yes.) . فيصبح الكود : me.borderstyle=0 جعفر

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

الظاهر في حد جاب طاريي 😁 بخبرك بالطريقة الاسهل (الطريقة الاصعب يحتاج لها بخور ، فنخليها لوقت الحاجة 🙂 ) اعمل تقرير جديد بنفس الاسم TMPCLP284581ّ~ ، وبعد ان تحفظه ، ينحذف تلقائيا ، بس قبل شهر رمضان المبارك 🙂 جعفر

السلام عليكم 🙂 انا متأكد بأن الاستاذ احمد لم يلاحظ هذه العلاقة 🙂 لهذا السبب ، طريقته سوف تخل بطريقة عمل البرنامج ، يعني اذا كانت قيمة iPage_ID (في الجدول tbl_Pages) = iPage (في الجدول tbl_Items) = 3 فقمت بتغيير الرقم 3 الى الرقم 5 في iPage (في الجدول tbl_Items) ، فتظل قيمة iPage_ID (في الجدول tbl_Pages) 3 ، كما كانت ، وهذا يجعل القيمة 5 يتيمة في الجدول tbl_Items ، وبدون ربط مع الجدول tbl_Pages !! كلامك صحيح ، ولكن يحتاج الى تعديل بسيط ، . اذا بدأت الـ Loop من 1 الى آخر قيمة (من الاصغر الى الاكبر) : - فلما تغير الرقم 1 فيصبح 1+1 = 2 ، فمعناه ان جميع قيم الجدول tbl_Items بدلا عن 1 اصبحت 2 ، فهنا يتم خلط القيم هناك ، قيم 1 و 2 تصبح 2 ، - ولما تغير الرقم 2 فيصبح 2+1 = 3 ، فمعناه ان جميع قيم الجدول tbl_Items بدلا عن 2 اصبحت 3 ، فهنا يتم خلط القيم هناك ، قيم 1 و 2 و 3 تصبح 3 ، يعني في نهاية الـ Loop ، جميع القيم هناك ستكون بالرقم الاخير 😁 ولكن ، iPage_ID (في الجدول tbl_Pages) لا يقبل التكرار 😁 لذا ولحل الموضوع بالطريقة الصحيحة ، يجب ان تبدأ الـ Loop من آخر قيمة الى 1 (من الاكبر الى الاصغر). جعفر

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

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

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