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

مشاركة مع حبيبنا المهندس قاسم ..... Not Between 500 And 505

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

استخدم هذا الكود ..... Dim LWordDocOriginal As String Dim LWordDocCopyOf As String Dim Warning As String LWordDocOriginal = CurrentProject.Path & "\asd.docx" LWordDocCopyOf = CurrentProject.Path & "\" & "الملفات" & "\" & Format(Date, "dd-mm-yyyy") & ".docx" FileCopy LWordDocOriginal, LWordDocCopyOf Dim LWordDoc As Object Set LWordDoc = CreateObject("Word.Application") LWordDoc.Documents.Open CurrentProject.Path & "\" & "الملفات" & "\" & Format(Date, "dd-mm-yyyy") & ".docx" LWordDoc.Visible = True LWordDoc.ActiveDocument.Bookmarks("A1").Select LWordDoc.Selection.InsertAfter b1 LWordDoc.ActiveDocument.Bookmarks("A2").Select LWordDoc.Selection.InsertAfter b2 LWordDoc.ActiveDocument.Bookmarks("A3").Select LWordDoc.Selection.InsertAfter b3 LWordDoc.ActiveDocument.Bookmarks("A4").Select LWordDoc.Selection.InsertAfter b4 LWordDoc.ActiveDocument.Bookmarks("A5").Select LWordDoc.Selection.InsertAfter b5 LWordDoc.Application.Documents(Format(Date, "dd-mm-yyyy") & ".docx").Save LWordDoc.Quit Set LWordDoc = Nothing Warning = MsgBox("تم تصدير البيانات للملف ....... هل تريد فتح الملف المصدر", vbYesNo + vbQuestion, "تحذير") If Warning = vbYes Then Application.FollowHyperlink CurrentProject.Path & "\" & "الملفات" & "\" & Format(Date, "dd-mm-yyyy") & ".docx" Else DoCmd.CancelEvent End If

نسيت ال Between 😂

وعليكم السلام استخدم Not In (500;501;502;503;504;505)

تفضل هذه بنواة 64 بت -بعد اذن جميع الأساتذة فالملف ليس به اى مشكلة فإن واجهتكم مشكلة فاعلم انها من عندك انت فلابد كما أخبرنا من تحميل الأداة والمكتبة الناقصة رابط تحميل السيلينيوم https://github.com/florentbr/SeleniumBasic/releases/download/v2.0.9.0/SeleniumBasic-2.0.9.0.exe رابط تحميل الدريفر الخاص بالسلينيوم https://chromedriver.storage.googleapis.com/102.0.5005.27/chromedriver_win32.zip الكروم درايفر لابد ان يكون اصداره مثل اصدار الكروم المصطب على جهازك نظام ادارة شؤون التلاميذ الاصدار 1.00.rar

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

شكر وتقدير واحترام من اخيك

عن اذن اساتذتنا اصحاب الموقع ... انا مستعد للمساعدة باي شيء تطلبه في سبيل هذا العلم

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

جزاك الله خيرا استاذ عمار ... من الواضح ان البرنامج كبير ومتعوب عليه ...وكنت اود التجول بين صفحات البرنامج والاكواد فقد اخذ مني وقتا حتى حولته لنواة 64...في النهاية تفاجأت انك واضع واجهة المستخدم بوقت سريع جدا لم يسعني ادخال الباسورد والمستخدم هل الباسورد والمستخدم 12345؟

احدف بياناتك قي الشيت الثاني ابتداء من BI1 Sub test() Dim r As Range Sheets("sheet2").UsedRange.Clear With Sheets("sheet1") Set r = .[t1:t2] With .Range("t3", .Range("t" & Rows.Count).End(xlUp)).Resize(, 8) r(2).Formula = "=countblank(" & .Rows(2).Range("c1").Resize(, 6).Address(0, 0) & ")<6" .AdvancedFilter 2, r, Sheets("sheet2").Cells(61) End With r.Clear End With End Sub

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

ما شاء الله تبارك الله ... أبدعت ثم أبدعت ثم أبدعت.. سلمت أناملك ورفع الله قدرك وفرج همك وغمك ورضي عنك وأرضاك وكل من قرأ وشارك واستفاد وأفاد..

بعدما انهيت انشاء البرنامج و كان شغال عال العال على ونداوز 7 استبدلت النظام الى ونداوز10 حيث كانت الكارثة تعطل برنامجي نهائيا لا ادري لماذا . علما انني انشات البرنامج على اوفس 2010..32 بايت وهو نفس الاوفس الذي نزلته على ونداوز 10 رجاءا هل يوجد حل

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

هذا تقرير مرتبط ب فورم forms!aires!login!txtser افتح فورم aires ثم فتح التقرير هذا تقرير يفتح بس عند التصميم

جرب .... New Microsoft Office Access Application.mdb

نعم استاذي الكريم تظهر الرسالة الاولى

حضرتك عامل جداول اواستعلامات باللغةالعربية هى دى المشكلة

تظهر هذا الرسالة

تفضل أخي figo82eg 🙂 إضغط على المسار بالنفس للمعاينة PIC-Fixed.rar

وهذه النتيجة النهائية بفضل الله تعالى ثم فضل استاذى الجليل ومعلمى القدير و والدى الجبيب الاستاذ @jjafferr وتدلل يا استاذ @Barna وهى بضاعتكم نردها ونعبدها اليكم بحلتها الجديدة تم التعديل على الاكواد لاختزالها Barna ( Export to Word ).accdb