jjafferr

وعليكم السلام اخوي حمدي انا قرأت الموضوع الذي بينك وبين الاستاذ عبدالله كاظم ، واخبرك فيه ان الكود غير نهائي ، لهذا السبب قد تكون تحصل على اخطاء!! ارفق لك برنامج حصلت عليه ، لا ادري من اين ، وبالصدفة وجدته امامي الآن ، لعل فيه ضالتك جعفر Teacher-Class --.rar

وعليكم السلام في الاستعلام بدل Like "*" & [Forms]![mainf]![مربع_تحرير_وسرد13] استعمل IIf(Len([Forms]![mainF]![serialx] & '')=0,[serialx],[Forms]![mainF]![serialx]) او استعمل اسم الحقل [مربع_تحرير_وسرد13] جعفر

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

وعليكم السلام اذا كان عدد الحروف اكثر من 255 ، فلن يسع حقل النص ، ويجب عليك الانتقال الى حقل مذكرة حيث يتسع لـ 1 جيجا بايت من المعلومات ويُظهر 65535 حرف في النموذج و التقرير ، (في احد برامجي ، لم نكن بحاجة الى حقل مذكرة ، وانما كنا بحاجة الى بيانات تسع 3 حقول نص: 255 حرف * 3 حقول = 765 حرف ، فاللي عملته هو عمل 3 حقول نص في الجدول ، وبرمجيا عند قراءة البيانات في النموذج/التقرير من الجدول ، ادمجهم في حقل نص واحد ، وعند الحفظ ، اقسم مجموع الحروف على 255 ، واحفظ في كل حقل جزئه) ، ولكن ، وبدل ان تفتح 15 نموذج او 15 حقل نص كبير ، تستطيع ان تعمل حقول صغيره من سطر واحد ، ثم عند التركيز عليها تضغط Shift + F2 والذي يفتح لك هذا الحقل عن طريق ZoomBox ، او تستطيع ان تفتح نموذج به البيانات الكاملة لهذا الحقل عند النقر المزذوج على الحقل مثلا ، هذه مجرد افكار ، ولكن الموضوع يعتمد على واقع برنامجك وتصميمك. جعفر

60 هيرتز كذلك ما فيه اشكال ، وجربته على شاشتي وما فيها اهتزاز

وعليكم السلام اذا كنت من جيلنا ، فالمفروض ان تذكر قول حسني البرظان في مسلسل صح النوم حين كان يقول: «إذا أردنا أن نعرف ماذا في إيطاليا، علينا أن نعرف ماذا في البرازيل» هذا سر الحصول على النتائج الصحيحة لطلبك 1. من النموذج tollab_data اخترت "دورة الاكسس" ، 2. استعلام qry_Received_Dorat ليعطينا اسماء الطلاب الذين اخذوا الدورة ، وفي المستقبل ستحتاج ان تختار الدورات بين تاريخين كذلك ، فاستعمل حقل تاريخ الدورة في الاستعلام ، 3. يمكنك استعمال استعلام qry_non1 او qry_non2 للحصول على اسماء الطلبة الذين لم يدخلوا "دورة الاكسس" ، 4. الاستعلام qry_non2 يعتبر استعلام تقليدي ، ونطلب منه جميع الطلبه في جدول tollab_data حتى وإن لم يأخذوا اي دوره (مثلا اسم الطالب j لا يوجد في جدول الدورات) ، 5. الاستعلام qry_non1 يستعمل استعلام فرعي لتصفية اسماء الطلبة (ونطلب منه جميع الطلبه في جدول tollab_data) ، وتلاحظ بأننا قلنا Not in اي غير موجودة في الاستعلام qry_Received_Dorat ، . والنتيجة: . جعفر 919.الطلاب والدورات.accdb.zip

وعليكم السلام نعم عملته ومافي اهتزاز في الشاشة خلينا نشوف اعدادات الشاشة عندك: . . . الاعدادات اللي في المربع الاحمر هي لسرعة تحديث الشاشة ، وكلما ازداد الرقم ، كلما قلّ اهتزاز الشاشة ، او حتى ان الاهتزاز يتوقف ، شاشتي على 75 هيرتز ، ومافي اي اهتزاز: . جعفر

ترقيم الكائنات في النموذج يبدأ بالرقم صفر وهنا نرى ان الحقل المختار ، يقع عليه التركيز كحقل ثامن في النموذج (7+0=8) ، اما اذا لم ترد ان يقع عليه التركيز ، فتستطيع ان تجعله No ، فهنا لا يكون للرقم اهمية. . والطريقة الاخرى هي: تنقر على اسم الحقل (من الطرف الرصاصي) وتسحب الحقل الى اعلى او اسفل ، حسب الترتيب المطلوب . جعفر

وعليكم السلام تفضل جرب ، انا ما شايف اي اهتزاز . جعفر 918.استدعاء الرصيد.mdb.zip

وعليكم السلام اخوي حمدي النموذج الفرعي subfrmTimeTable يأخذ بياناته من الجدول Ashgal ، واللي الكود ادخل بياناته ، فإذا الكود لم يُدخل البيانات الصحيحة ، فأكيد النتيجة لن تكون صحيحة!! يتطلب الامر النظر في كود التوزيع ، وانا لا علم لي بهذا الكود ، فيجب الرجوع الى مصدر الكود الاصل والذي يعمل بطريقة صحيحة في برنامج/بيانات اخرى ، ومن ثم يمكننا تغييره ليناسب بياناتك جعفر

وعليكم السلام اقدر اعملها بطريقتين: الاولى: عن طريق نموذج كائن نموذج فرعي (هو نموذج فرعي لا يوجد به نموذج) . حيث نعامل كل شيء في هذا الكائن كأنه نموذج فرعي ، عليه ، فأول مرة نفتح النموذج ، نضع فيه نموذج الازرار: Private Sub Form_Load() Rem===== DoCmd.Maximize Me.sfrm.SourceObject = "frm_1" End Sub . وعند النقر على زر-هيكلية المدرسة ، نفتح النموذج Form100 هكذا: Private Sub ComdIntOrg_Click() 'Call ActiveCommand Me.Parent!sfrm.SourceObject = "Form100" End Sub . يعني : بدل استعمال الكود التالي لفتح النموذج docmd.openform "Forms100" نستعمل Me.Parent!sfrm.SourceObject = "Forms100" . وبما ان هذه الطريقة غير مألوفة ، فيحتاج لك تمرين الى ان تأخذ يدك عليه المرفق فيه مثال. الطريقة الثانية: استعمل الكود التالي لفتح كل نموذج: docmd.openform "Form100" DoCmd.MoveSize 1440, 2400, 2000, 2000 والامر عبارة عن حجم النموذج ومكانه DoCmd.MoveSize(Right, Down, Width, Height) . والارقام هذه بمقياس twips c1 cm = 567 twips c1 in = 1440 twips المشكلة في هذه الطريقة هو معرفة حجم شاشة/شاشات الزبون وتحديد المكان على اساسها جعفر 915.Aziz.accdb.zip

وعليكم السلام في التقرير ، انقر على خط قسم/فاصل قسم Detail ، واكمل هذه السطور لبقية الكائنات: Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Me.ID.Width = Forms!Table1!ID.Width Me.ID.Height = Forms!Table1!ID.Height Me.ID.Top = Forms!Table1!ID.Top Me.ID.Left = Forms!Table1!ID.Left End Sub جعفر

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

حياك الله جعفر

سيدي الفاضل بدل ان تعرف اي نموذج مفتوح ، بهذا الكود: Dim n As String: Dim i As Integer: Dim isopen As Boolean n = "frmEdrajSenf" isopen = False For i = 0 To Forms.Count - 1 If Forms(i).FormName = n Then isopen = True End If Next i If isopen Then . الافضل ان تعرف اي نموذج فتح صفحة البحث ، وعليه ترجع له البيانات ، هكذا: بدل Private Sub Rajmsanf_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF3 Then DoCmd.OpenForm "frm_Search_New", acNormal End If End Sub هكذا نفتح نموذج البحث ، ونرسل له اسم النموذج الذي طلب البحث Private Sub Rajmsanf_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF3 Then ' هنا نرسل اسم النموذج، في آخر امر في السطر، هكذا DoCmd.OpenForm "frm_Search_New", acNormal, , , , , Me.Name End If End Sub . وعليه يصبح كود ارجاع البيانات الى النموذج المفتوح هكذا: Forms(Me.OpenArgs)![Rajmsanf] = Me.Rajmsanf DoCmd.Close acForm, Me.Name, acSaveNo . جعفر 911.1.ادراج البياناتات حسب الفورم المفتوح.mdb.zip

السلام عليكم اخوي ابو زاهر 2. وتم حله 1. يعني اذا frmEdrajSenf_R او frmEdrajSenf_sra مفتوح ، لما تضغط على الزر Enter ، تريد بيانات السجل تروح الى النموذج المفتوح؟ جعفر

حياك الله اخوي محمد جعفر

اعمل بحث في المنتدى ، وفيه الكثير من هذه المواضيع: https://www.google.com/search?q=شفت+site%3Awww.officena.net&oq=شفت+site%3Awww.officena.net&aqs=chrome..69i57.26213j0j4&sourceid=chrome&ie=UTF-8 جعفر

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

وعليكم السلام استخدم . والنتيجة . جعفر

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

وعليكم السلام الجواب نعم تستطيع: 1. بتفعيل مفتاح الشفت ببرنامج خارجي ، وتدخل البرنامج بالضغط على زر الشفت الى ان يفتح البرنامج ، 2. اثناء فترة التعديل ، اكتب Exit Function في اول سطر في الدالة التي تصغر البرنامج ، فعليه لن يصغر البرنامج ، وبعد ان تنتهي من التعديل ، لا تحذف هذا السطر ، وانما اجعله كملاحظة بإضافة الرمز ' في اول السطر: Exit Function' فيتغير لون السطر الى اللون الاخضر ، ومعناه ان الكود لن يستعمله ، 3. انا من اشد المعارضين على استعمال النماذج المنبثقة: والحل وكلما احاول ان اساعد احد الاعضاء في برنامجه ، فاول شيء اعمله هو تغيير اعدادات النموذج وتوقيف الانبثاق!! 4و5. هذه تحصل عليها تلقائيا بعد عمل الرقم 1. جعفر

وعليكم السلام تفضل جعفر 912.كفالة.accdb.zip

رجاء تجرب المرفق ، بعد ادخال بيانات صحيحة في النموذجين الفرعيين ، فلقد فمت بتعديل الكثير في البرنامج بالاضافة الى التغييرات في النماذج ، فهناك تغييرات في الجداول والاستعلامات ، وعملت علاقة بين الجداول ، لذلك ، رجاء واصل العمل على هذه النسخة جعفر 910.accdb.zip

هذه ملاحظاتي: 1. مع ان شاشة الكمبيوتر عندي 23 بوصة ، إلا انني لا ارى كامل النموذج ، فيجب ان تصغر الحقول : . 2. الانتقال بين السجلات اعلى واسفل عن طريق الاسهم ، استخدم حدث الزر الاسفل للنموذج وليس للحقل ، والقيمة الاخيرة من اعدادت النموذج يجب ان تكون "نعم" (لاحظ السهمين الحُمر): . 3. عليه يصبح كود الاسهم اعلى واسفل: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) On Error Resume Next Me.n2.SetFocus Select Case KeyCode Case vbKeyDown DoCmd.GoToRecord , , acNext Case vbKeyUp DoCmd.GoToRecord , , acPrevious Case vbKeyReturn DoCmd.OpenForm "frmEdrajSenf" Forms![frmEdrajSenf]![Rajmsanf] = Me.Rajmsanf Forms![frmEdrajSenf_sra]![Rajmsanf] = Me.Rajmsanf DoCmd.Close acForm, "frm_Search_New", acSaveNo Case Else DoCmd.OpenForm "frmEdrajSenf_R" Forms![frmEdrajSenf_R]![Rajmsanf] = Me.Rajmsanf Forms![frmEdrajSenf_sra]![Rajmsanf] = Me.Rajmsanf DoCmd.Close acForm, "frm_Search_New", acSaveNo End Select End Sub . وفي الواقع فنحن لسنا بحاجة الى هذا السطر: Me.n2.SetFocus ولكن لأنك لم تجعل اي من الحقول يقبل ان يكون عليه التركيز ، فإضطررت الى وضع التركيز على هذا الحقل اما كود فتح الصفحات ، فأخذته من برنامجك ، ولا علاقة لي به جعفر 911.ادراج البياناتات حسب الفورم المفتوح.mdb.zip