نجوم المشاركات

السلام عليكم جرب هذا المرفق If CurrentRecord < Me.c Then DoCmd.GoToRecord , , acNext End If زر_التنقل.rar

مشكور اخي الكريم @kanory للأسف الحل ده ما ظبط معايا لأنه في كل مرة بيضاف التاريخ الهجري بالكود بينشأ سجل جديد حتى لو لم أكمل الخطاب و أغلقته بالنسبة للجدول هل من طريقة أخرى لتنفيذه حتى لو اضطررت لإلغاء ربط مربع النص بالجدول ؟

وعليكم السلام ورحمة الله وبركاتة تفضل ::بالتوفيق:: exmple1K906.rar

لو وضعت مرفق ليتم التطبيق كان افضل عموما جرب هذا الكود Dim stDocName As String stLinkCriteria = "[User]=" & Me![User] stDocName = "ReCard" DoCmd.OpenReport stDocName, acViewPreview, , stLinkCriteria ::بالتوفيق::

:: شكرا لك اخي الكريم ... 🙂

عذرا اخ محمد نسيت اضافة AllowAdditions = False Private Sub Next_Click() On Error GoTo Err_Next_Click AllowAdditions = False DoCmd.GoToRecord , , acNext Exit_Next_Click: Exit Sub Err_Next_Click: MsgBox "وصلت للسجل الأخير لايوجد سجل تالي للذهاب اليه !!!", 48, "تنبيه !" Resume Exit_Next_Click End Sub

استخدم هذا الكود Private Sub Next_Click() On Error GoTo Err_Next_Click AllowAdditions = False DoCmd.GoToRecord , , acNext Exit_Next_Click: Exit Sub Err_Next_Click: MsgBox "هذا هو السجل الأخير لايوجد سجل تالي للذهاب إليه!" Resume Exit_Next_Click End Sub ::بالتوفق::

السلام عليكم ورحمة الله وبركاته مساهمة مع الاساتذة يمكننا ايضا ايقاف زر االتالي من الذهاب الى سجل جديد باستخدام هذا الكود طبعا ف حال انشاء زر أمر وليس عن طريق ازرار تنقل شريط النموذج Private Sub Next_Click() On Error GoTo Err_Next_Click DoCmd.GoToRecord , , acNext Exit_Next_Click: Exit Sub Err_Next_Click: MsgBox "هذا هو السجل الاخير لايوجد سجل تالي للذهاب إليه " Resume Exit_Next_Click End Sub

بالنسبة للتاريخ هذا ابداع اخونا رمهان الله يسعده أما بالنسبة للجدول لايمكن لأنكن رابط المربع بحقل في الجدول صادر خطابات.rar

السلام عليكم ورحمة الله استخدم الكودين الآتيين الكود الاول : Private Sub ComboBox1_Change() Dim ws As Worksheet, Rng As Range Dim MyArray, x As String x = Me.ComboBox1.Value On Error Resume Next Set ws = Sheets(x) Set Rng = ws.Range("A4:I" & ws.Range("B" & Rows.Count).End(xlUp).Row) With Me.ListBox1 .Clear .ColumnHeads = False .ColumnCount = Rng.Columns.Count MyArray = Rng .List = MyArray .ColumnWidths = "150;120;120;120;120;120;120;120" .TopIndex = 0 End With End Sub الكود الثانى : Private Sub UserForm_Initialize() Me.ComboBox1.AddItem "TANKS" Me.ComboBox1.AddItem "TRAINS" Me.ComboBox1.AddItem "FLOW LINE" Me.ComboBox1.AddItem "PUMPS" End Sub

احسنت بارك الله فيك .. .

تفضل xxzz.accdb

بارك الله فيك استاذى كنت ارغب فى ان يظهر رقم العميل والاسم بجانبه فى القائمة المنسدلة لاختيار وبعد الاخيار يظهر رقم العميل فقط

تفضل استاذ مجاهد 1مرفق.xlsx

السلام عليكم تفضل 12.xlsm

هذه المعادلة تعطيك تص او بالاحرى رقم على هيئة نص لا تستطيع عمل حسابات عليه (جمع او طرح الى اخره) ليكون الجواب رقما يمكن العامل معه بالحسابات يجب استعمال هذه المعادلة =B13*B9/1440 هنا يجب تنسيق خلية الاجوبة بهذا الشكل h]:mm]

أهلين أخي فين هذا الغياب

مشاركة مع استاذ صالح اليك هذا الرابط به طريقتين

السلام عليكم ورحمة الله يمكن أيضا الاستغناء عن الدالة CHOOSE في المعادلة السابقة لتكون بالشكل المختصر التالي: =IFERROR(INDIRECT("B"&IF($A$1<=12;MOD($A$1-2;6);""));"No Data") أو =IFERROR(INDIRECT("B"&IF($A$1<=12,MOD($A$1-2,6),"")),"No Data") بن علية حاجي

السلام عليكم ورحمة الله استخدم هذا الكود Sub ImportData() Dim ws As Worksheet, Sh As Worksheet Dim i As Integer, x As Integer, day As String Set ws = Sheets("التقرير اليومي") Set Sh = Sheets("بيانات") day = ws.Range("G4").Value ws.Range("E107:L151").ClearContents For i = 19 To 67 Step 12 If Sh.Cells(3, i).Value = day Then x = i + 7 Sh.Activate Sh.Range(Cells(5, i), Cells(49, x)).Copy ws.Activate ws.Range("E107").PasteSpecial xlPasteValues ws.Range("E105") = day End If Next ws.Range("G4").Select Application.CutCopyMode = False End Sub

ومشاركة مع الاستاذ العزيز شفان ثلاث خطوات : 1- من خصائص النموذج اعدل الخصيصة : السماح بالاضافة=لا 2- الصق السطر في اعلى كود زر جديد : Me.AllowAdditions = True 3- الصق السطر في اعلى كود زر التالي : Me.AllowAdditions = False New Rec2.rar

السلام عليكم ورحمة الله هذه محاولة في الملف المرفق، حيث قمت بحذف المجموعات وجدول المباريات السابق وتعويضهما بجدول واحد من عمودين (سميته جدول المباريات) وهو يتلقى مباشرة نتائج القرعة حتى تتشكل عندنا مباريات الدورة (مباراة واحدة لكل فريق)... وهو يصلح لأي عدد زوجي للفرق (4 - 6 - 8 - 10 - ... فرق) يكفي حجز هذا العدد في الخلية B1، وعدد المباريات تحدده تلقائيا معادلة الخلية B2 (وهو يساوي نصف عدد الفرق) وذلك باعتبار خروج الفريق المغلوب... أخوكم بن علية اجي عملية قرعة لفرق مع خروج المغلوب.rar

اساتذتى الافاضل فى هذا الصرح العلمى اليوم اقدم لكم فكره بسيطه عن كيفية تكبير أو تصغير الفورم مع الاحتفاظ بالزوم للفورم ويكون الفورم بمنتصف الشاشه دائما يوجد فى الفورم زرين زر تكبير واخر تصغير ويمكنك تغيير الاكود لتكون مثلا فى حدث دبل كليك للفورم او عند الضغط على الفورم او كما يحلو لك الفكره مازالت قابله للتطوير شاركونا الرائ تقبلوا تحياتى اخوكم وتلميذكم / حسام تكبير وتصغير الفورم.zip

عن نفسي : برامج المبيعات والمشتريات والمستودعات والحسابات لا احب ان اتعرض لها فكأنها ثقيلة على القلب .. لا اعلم لماذا ؟ هكذا احساسي لذا خبرتي في هذه المواضيع قليلة ومع ذلك احفظ في مكتبتي العديد من الامثلة في هذا الباب ، والقصد من ذلك الرجوع اليها في مثل هذه المواقف واليك هذا المثال الذي تناول صاحبنا فيه المخزون والمرتجعات لعلك تجد فيه ما يفيدك zz.rar

شروحات أكسس الصوتية والمرئية دروس الأستاذ عبدالفتاح كيره شرح 3 طرق لفتح نموذج من داخل نموذج آخر الاستفادة من خاصية القيمة الافتراضية للحقول شرح التحقق من عدد أرقام الرقم القومى شرح استخلاص ت الميلاد من الرقم القومى دالة mid-val شرح دالة DateSrial شرح البحث عن اسم يتضمن أى حروف البحث بمعلومية شرطين باستخدام استعلام و كود شرح استعلام إلحاق استعلام الإلحاق بدون تكرار مع تعديل بعض الحقول الملحقة كيف تفتح نموذجا على سجل محدد كيفية التحكم فى حقل بنموذج فرعى من خلال النموذج الرئيسى كيفية البحث عن السجلات و الانتقال إليها التنقل بين السجلات في نموذج أكسيس بخطوات محددة التخطيط لإنشاء قاعدة بيانات ======================================================== تعلم الاكسيس ( باللغه العربيه صوت و صوره ) لــ admiral http://www.officena.net/ib/index.php?s=c6d3bad3a53a5ac634ea791d48f6472c&showtopic=31301 ======================================================== شرح اكسس 2003 فيديو (1)... لقنديل الصياد http://www.officena.net/ib/index.php?showtopic=48569 شرح اكسس 2007 (2) http://www.officena.net/ib/index.php?showtopic=51147 شرح اكسس 2010 (3) http://www.officena.net/ib/index.php?showtopic=51150 ======================================================== تعليم برنامج أكسس 2010 لـــ ALSHAMAL http://www.officena.net/ib/index.php?showtopic=54641 ======================================================== أكسيس 2013 شروحات متنوعة الاستاذ عبداللطيف طراقجي شرح برنامج مايكروسوفت أكسيس 2013 http://www.officena.net/ib/index.php?showtopic=59950&hl= الدرس الأول إنشاء و إدارة قواعد البيانات http://www.officena.net/ib/index.php?showtopic=59961&hl= الدرس الثاني: إدارة العلاقات و المفاتيح في برنامج الأكسيس http://www.officena.net/ib/index.php?showtopic=60073&hl= الدرس الثالث: التنقل من خلال قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60177&hl= الدرس الرابع: حماية و صيانة قواعد البيانات http://www.officena.net/ib/index.php?showtopic=60261&hl= الدرس الخامس: طباعة و تصدير قاعدة البيانات http://www.officena.net/ib/index.php?showtopic=60376&hl= الدرس السادس: إنشاء الجداول في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60468&hl= الدرس السابع: تنسيق الجداول في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60584&hl= الدرس الثامن: إدارة السجلات في جداول قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60681&hl= الدرس التاسع: إنشاء و تعديل الحقول في جداول قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60809&hl= الدرس العاشر: إنشاء الاستعلامات في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60893&hl= الدرس الحادي عشر: إنشاء الاستعلامات الاجرائية في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60988&hl= الدرس الثاني عشر: تعديل الاستعلامات في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61086&hl= الدرس الثالث عشر: استخدام و تجميع الحقول المحسوبة في الاستعلام http://www.officena.net/ib/index.php?showtopic=61177&hl= الدرس الرابع عشر: إنشاء النماذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61265&hl= الدرس الخامس عشر: تعيين عناصر تحكم النموذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61351&hl= الدرس السادس عشر: تنسيق النماذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61409&hl= الدرس السابع عشر: إنشاء التقارير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61468&hl= الدرس الثامن عشر: تعيين عناصر تحكم التقرير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61561 الدرس التاسع عشر و الأخير: تنسيق التقارير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61634

الوصلة المختصرة للموضوع : bit.ly/3B8lXSU هذا الموضوع سيحوي فهرس المواضيع التي سيتم نشرها تباعا باذن الله تعالي منهج الدورة سنبدأ الدورة باذن الله تعالي بالأشياء العملية التي تحدث فرق فى القراءة ثم نتوقف لحلقة واحدة عند الظروف المناسبة للقراءة و بعدها نبدأ بإذن الله تعالى فى المنهجيات و الاستراتيجيات الخاصة بالقراءة الفعالة 1- الحلقة الأولي - المقدمة 2 فبراير 2009-اضغط هنـــــا الأشياء العملية التى تُحدث فرق فى سرعة و كفائة القراءة 2- الحلقة الثانية - التلفظ - 2 فبراير 2009-اضغط هنـــا 3-الحلقة الثالثة - حركة العين - 4 فبراير 2009- اضغط هنــــا 4- الحلقة الرابعة- دليل توجيه العين - 7 فبراير 2009- اضغط هنــــا 5- الحلقة الخامسة - تدوين الملاحظات - 7 فبراير 2009- اضغط هنا 6-الحلقة السادسة - الخرائط الذهنية - 11فبراير 2009 - اضغط هنا 7-الحلقة السابعة - تهيئة الظروف المناسبة للقراءة - 15 فبراير 2009 - اضغط هنا بداية حلقات استرتيجية القراءة الصحيحة (فيلبس ميندل) 8-الحلقة الثامنة - المسح و التصفح - 20 فبراير 2009 - اضغط هنا 9-الحلقة التاسعة - القراءة التمهيدية - التركيب - 28 فبراير 2009 - اضغط هنا 10-الحلقة العاشرة - القراءة التمهيدية -الفكرة الرئيسية - 8 مارس 2009 -اضغط هنا 11-الحلقة الحادية عشرة - القراءة التمهيدية - المواضيع - 8 مارس 2009 - اضغط هنا استراتيجيات و تكنيكات أخري للقراءة: 12-الحلقة الثانية عشرة - SQ3R , SARGE, MyStrategy 20 مارس 2009 - اضغط هنا 13-الحلقة الثالثة عشرة KWL KWL ماذا نعرف و ماذا نريد ان نعرف و ماذا عرفنا؟ 29 مارس 2009 - اضغط هنا 14-الحلقة الأخيرة الذاكرة و أساليب الحفظ و التذكر - 28-مايو 2009 اضغط هنا المراجع: كتاب مهارات القراءة السريعة المؤلف : جوبيس تيرلي كتاب القراءة السريعة المؤلف توني بوزان كتاب القراءة الصحيحة المؤلف : فيليبس ميندل دورة تدريبية حضرتها فى القراءة السريعة مقتطفات من عدة مواقع على الانترنت