رمهان

مرحبا اخي عبدالفتاح وعذرا على التاخير فقد غاب عني هذا الموضوع بالنسبة لترتيب المكتبات لازم اعمل تست واعود لك وقد يكون فعلا له تاثير مع اعتقادي بان اصدار الاكسس هو الاهم كما احب المشاركة في هذا الموضوع بفكرة اعتقد سهلة جدا 1. لاستخراج اخر سجل DMax("id", "table1") 2. لاستخراج قبل الاخير DMax("id", "table1", "id<>" & DMax("id", "table1")) ويمكن توظيفهم في استعلام تحديث تحياتي للجميع

اعتقد استاذ شيفان انه للاستاذ محمد ايمن وبالرابط السابق للاستاذ ابو خليل

هذه فكرة بدائية Private Sub أمر196_Click() Me.rasael_custmer.SetFocus For i = 1 To 50 If IsNull(Screen.ActiveControl) Then x = MsgBox(Screen.ActiveControl.Name, , Me.rasael_custmer!IDr): Exit For: Me.أمر196.SetFocus SendKeys "{tab}" DoEvents Next End Sub بالتوفيق

بعد اذن الاستاذ ابو خليل هل تريد مع العلاقات ام بدون ؟ اي انشاء نسخة من الجداول والبيانات بدون العلاقات ؟

التحسينات 1. زر فتح التقارير - البحث- Private Sub CmdSearch_Click() DoCmd.OpenReport Choose(إطار8, "ShabakaReport", "StationsReport", "LinesReport"), acViewPreview End Sub 2. حذف جميع الاكواد على الاوبشنز والتي عند الحدث عند التركيز واستبدالها بحدث بعد التحديث لمربع الخيار اطار8 وليصبح الحدث : Private Sub إطار8_AfterUpdate() m1.Enabled = إطار8 = 1 m2.Enabled = إطار8 = 2 m3.Enabled = إطار8 = 3 End Sub بالتوفيق

بعد اذن الاستاذ شيفان انتي عامله المقارنة على اساس قيمة الاوبشن نفسها والاصح على مربع الخيار والذي قيمته حسب الاوبشنز Private Sub CmdSearch_Click() Do While Reports.count > 0 DoCmd.Close acReport, Reports(0).Name Loop If إطار8 = 1 Then DoCmd.OpenReport "ShabakaReport", acViewPreview End If If إطار8 = 2 Then m1.Visible = True m2.Visible = True DoCmd.OpenReport "StationsReport", acViewPreview End If If إطار8 = 3 Then m1.Enabled = True m2.Enabled = True m3.Enabled = True DoCmd.OpenReport "LinesReport", acViewPreview End If End Sub وبعدين راح نعمل لك اختصار وتحسين بالتوفيق

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

العفو وتمام عليك تحياتي

ايش رايك حسب فهمي If Right(Text0, 1) <> 0 Then Text0 = Text0 - Right(Text0, 1) + 10 تحياتي اضفنا الردود بنفس اللحظة استاذ شيفان وهذي ب iif IIf(Right(Text0, 1) <> 0, Text0 - Right(Text0, 1) + 10, Text0)

طيب لو طبقنا معادلتك للاكبر ستغير 10 الى 20 وهكذا ؟ هل انت فهمت قصدي؟

في الكود هناك كولشن Dim colWorksheets As Collection ثم تم انشاؤه بواسطة كلمة new عند الاسناد Set colWorksheets = New Collection هنا اصبح لدينا كائن كولكشن وعايزك تتخليه زي مربع قائمة مكونه من عمود واحد تستطيع اضافة عناصر لها وهنا تم اضافة اسماء الشيتات لها For lngCount = 1 To objWorkbook.Worksheets.Count colWorksheets.Add objWorkbook.Worksheets(lngCount).NameNext lngCount فاصبح لدي قائمة باسماء الشيت . استطيع استخراج كل عنصر بالقائمة من خلال فهرس وجوده (هناك خاصية المتاح key ) تساعد كثيرا ولكن لاتهتم بها الان المهم كل عنصر في القائمة اصبح له فهرس وجود تبدا من الصفر فعلشان اطلع اول عنصر اعطيه اسم الكولكشن ثم فهرس الصف بين قوسين فاول عنصر بالكولكشن هو colWorksheets(0) وهو اسم اول شيت طبعا انا كنت غلطان كنت افكر ان لكل شيت جدول ولكن نبهني الاستاذ اميييير الى ان هناك جدول واحد في الاكسس المهم استعضت مكان الصفر والواحد بقيمة العداد في الدوران لاحصل على اسماء الشيتات والتي هي اصبحت داخل الكولكشن لاني كنت عايز احذف كل جدول ثم ضيف الشيت كجدول جديد تحياتي

معليش استاذ شيفان لو العدد 200 او 210 او 10 فهل السائل يريد كذلك 210 تصبح 220 ام تضل كماهي لانها مقربة للعشرة تحياتي

CurrentDb.TableDefs.Delete بعد هذا الامر تمرر اسم الجدول فهي تحذف جدول واحد

هي نفس المهمة ولكن انت استخدمت بواسطة الاكسس والكائن docmd انا استخدمت مكتبات dao والكائن tabledefs

حسب فهمي جرب واحذف العمود الاول الترقيم من الاكسل ثم استورد ستجد السجلات تلحق باخر سجل في الاكسس فذا هذا ماتريد عملناها بدون الحاجة لحذف العمود من الاكسل بالتوفيق

صح عليك تعديل في مكانه بان حذف السجلات اولى من حذف الجدول ولكن نبهتني الى ان الجدول وحيد وهو test ويتم اضافة سجلات الشيتات اليه فهنا اعتقد ان وجود حذف السجلات او الجدول داخل التكرار غير مهم بل الافضل خارج التكرار وتنفذ لمرة واحدة وانا افضل حذف الجدول لو ان حقول الشيتات متغيره والله اعلم

@محمد سلامة

اعتقد تمت الاجابة هنا بالتوفيق

هل تم الوصول لما تريد ؟ وفيه حاجة غريبة هنا : ازاي الاسم اول المشاركة يختلف عن الباقي ؟ هل تم تغيير اسمه ؟ ولو تم فلماذا لم يتغير في اول المشاركة ؟ والا الاخ لديه اسمان ؟!! تحياتي للجميع

اقصد اعزائي هذا التعبير =Format(0.2445,"0.000") يعطيك ناتج 0.245 ولو تم ضربه في 100000000 سيكون النتاج 24500000 بينما الرقم اصلا 0.2445 والذي لو ضرب في 100000000 سيكون الناتج 24450000 والفرق سيكون خمسون الف القصد بانه الدالة شكلا وليس قيمة الرقم وكان قصدي تنبيه فقط اما الاستاذه فكفو وأوفو تحياتي

رااااائع والله ولكن هل يتغير حسب دقة الشاشة ؟ مبدع اخ محمد

مرحبا اخي الاستاذ شيفان انا مع الاستاذ عبدالفتاح بالتمام دالة تستقبل متغيرين قيمتهما تم استرجاعهما بواسطة dlookup من جدول text2 لحقلي text1,text3 وبدون شرط اي اول قيمة في الحقلين من الجدول تحياتي

ساعود لك استاذ عبدالفتاح

كلنا طلاب علم اخي عبدالفتاح