hanan_ms

الاداة مفتوحة المصدر 😎 يمكنك التعديل وتقديم الحلول والاقتراحات تحديث وتصحيح 1- تعديل كود البحث والعرض فوري من اي قاعدة تم انشائها يبحث عن الرقم المدني القومي بكافة القواعد ثم يربط بالاضافة لك قاعدة الرقم المدني القومي '====================================( شرط اذا كانت القيمة واحدة فقد بسجل واحد ) '=================================( IF Null Record Or NO Give Me Only A_Link_A_ID_Card ) Dim strsq2 As String Dim Ttb3 As Recordset strsq2 = "Delete * from A_Link_A_ID_Card" CurrentDb.Execute strsq2 Set Ttb3 = CurrentDb.OpenRecordset("A_Link_A_ID_Card") Ttb3.AddNew Ttb3![ID_Card] = Me.SHX Ttb3.Update DoEvents '==================================( شرط الرقم القومي المدني ان وجد تم الاتصال ) If DLookup("[number_ID]", "[ID_Card]", " [number_ID] Like'" & DLookup("[ID_Card]", "[A_Link_A_ID_Card]") & "' ") = DLookup("[ID_Card]", "[A_Link_A_ID_Card]") Then Me.Refresh 2- تصحيح نسخة الاحتياطية للارتباط بقاعدة الفرعيه ( الرقم المدني القومي ) ============================================ ( بتحديث ) 1- بتحديث عملية حذف القاعدة وكافة ملفاتها ونسخ الاحتياطية ☕ =============( فيديو + مرفق ) تحميل المرفق https://www.mediafire.com/file/tsqlmmenfcvxp37/Update_Fix_AT_Link_db_Ms_Access.rar/file

الاداة مفتوحة المصدر 😎 يمكنك التعديل وتقديم الحلول والاقتراحات تحديث البرنامج كما ذكر 1)- تسريع شريط التقديم مع خيار الغاء النسخ الاحتياطية السبب : عند توفر اجهزة وحدات التخزين فيه تقوم بعمل نسخ احتياطية بسرعة واداء عالي من غير تفشير مقصد لا ترفع مستوى التشفير كما يأمن اجهزة وحدات التخزين تأمين عند عطل احدى الاقراص فقط استبدال القرص المعطوب مثل الاجهزة جهاز سكليوجي و ناس 2)- اضافة مباشر لكل رقم المدني القومي عند اختيار الدولة على سبيل المثال مصر =14 الكويت = 12 السعودية = 10 3)- اضافة قائمة العملاء للمراجعين ودخول والربط عن طريق DlookUp '=================================( IF Null Record Or NO Give Me Only A_Link_A_ID_Card ) Dim strsq2 As String Dim Ttb3 As Recordset strsq2 = "Delete * from A_Link_A_ID_Card" CurrentDb.Execute strsq2 Set Ttb3 = CurrentDb.OpenRecordset("A_Link_A_ID_Card") Ttb3.AddNew Ttb3![ID_Card] = Me.tx Ttb3.Update ======================================== ( بتحديث ) عمل تعديل على بعض الاكواد مع التصحيح والانتهاء ثم للرفع بمكتبة موقع ☕ ========================( فيديوين +2 ) '==================================( Prt 1) ====================================( Prt 2) تحميل النسخة https://www.mediafire.com/file/c8cshc4ayh5cwbz/Update_Link_db_With_User_Customar_Ms_Access.rar/file

تحديث البرنامج الاتصال بقواعد البيانات 1- اضافة نسخة احتياطية كحد اقصى بالعدد الذي تختاره يأخذ آخر نسخة ويحذف أقدم نسخة احتياطية 2- توفير اعدادة الاختيار بنسخة الاحتياطية بكل من القواعد الاساسية وقواعد تفريع منها * 3- تصحيح بالضافة Me.refresh للتحديث عند التحديد الرقم المدني اضافة تحديد الرقم وعرض البيانات بقائمة ==========================( تحديث ) 1- استبدال تحديد المسار الكل DlookUp 2- تحديث سجل الاعدادة من غير استعلام فوري ....... ==========================( Video )☕ تحميل النسخة : https://www.mediafire.com/file/qezjejmmdsogg5d/Update_LinkDB_withBackUp_Ms_Access.rar/file

1- اضافة بالعدادة الدولة والرمز وعدد الارقام* 2- ادراج بقناع الادخال متغير ضغطتين بنقر المزدوج لزر الماوس* Number_Phone_World_Ms_Access.rar

استاذ @Foksh 🌹❤️☕ ان شاء الله تكون بخير والله يعينك على شغلك الثاني من جهة حديث الاداة 1- عرض البيانات على نطاق الجغرافي 2- عمل نسخة احتياطية لكل قاعدة مضافة ونسخة تلقائية 3- ترحيل كافة الحسابات المنتهية بقواعد البيانات المضافة 4- خيار عرض معلومات المدنية ==========================( تحديث الاداة) 1- عمل تحديد عدد النسخ الاحتياطية على سبيل المثال اذا اخترة 10 نسخ اذا وصل 11 نسخة يحذف الاول القديم ويحتفظ على اقصى عدد 10 ويمكنك الاختيار Back_UP_Auto Clean Old db ====== 2- جلب بيانات المدنية عند العثور بدل من عرض القاعدة المرتبطة فقط مع خيار التشغيل النموذج 3- عرض نموذج ادخل الرقم المدني فقط وعرض البيانات 4- مع هدية 😏 ============( فيديو ) تحميل الاداة https://www.mediafire.com/file/zwpivi0mufmhlms/Update_Link_db_Ms_Access.rar/file

الحلق التكرارية Integer ممكن صحيح ولكن افضل التثبيت في بعض الحقول تحتاج الى ضغطتين للاستيعاب العفو استاذ @Foksh ☕❤️🌹 يسعدني مرورك 😎 كأنه عندك كود ينور واستبدل

شكرا استاذ @Foksh ☕🌹 انسخ الكود واستبدلة 😁 ولا تنسى بعد التجربة عطني النتيجة هذا الكود طيارة اذا شافة الرقم القومي عند التفاف لكل قاعدة اعادة ربط يفتح مع ربط الرقم القومي استبدل الكود بزر محرك البحث عند الرقم القومي If IsNull(Me.SHX) Or Me.SHX = "" Then MsgBox " ÇÏÎá ÑÞã ÇáÞæãí ÇáãÏäí ", vbCritical, "Close Don" Exit Sub End If '===================================( Run Chack All Speed ) No Need Run DOA.36 = 32 Bit = Error Old List For instoll this Error DOA.36 on Drive Dll $ !! Dim Tb As DAO.TableDef Dim db As DAO.Database Dim RS As DAO.Recordset Set db = CurrentDb Set RS = db.OpenRecordset("ID_Card_0") Do Until RS.EOF Dim A As Integer Dim tg1 As String Dim tg2 As String 'Dim tgX As String 'tgX = DLookup("[number_ID]", "[ID_Card]", "[number_ID]=" & "' [Forms]![ID_word]![SHX]'") tg1 = Me.save_folder_item tg2 = DLookup("[path_drive_db]", "[folder_Link2]") & "\" & "ID_Word\File_" Me.file = RS.Fields("DB") For A = 1 To 1 For Each Tb In db.TableDefs If Tb.name = "ID_Card" Then Tb.Connect = ";DATABASE=" & tg1 & "\" & RS.Fields("db") & ".accdb" Tb.RefreshLink End If Next Next A DoEvents Me.one.Requery Me.rx.Requery Me.rx.SetFocus Me.rx.Selected(lrow:=0) = True Me.rx.SetFocus DoEvents '==================================( ÔÑØ ÇáÑÞã ÇáÞæãí ÇáãÏäí Çä æÌÏ ÎÑæÌ æÇÛáÇÞ ) If DCount("[ID]", "[Chack_All_form_db_Give_ONe]") = 1 Then '=====================================( ÝÍÕ æÌæÏ ÇáÞÇÚÏÉ ) DoEvents Me.one.Requery Me.rx.Requery Me.rx.SetFocus Me.rx.Selected(lrow:=0) = True Me.rx.SetFocus DoEvents Forms("ID_word").Form.XXC.Form.subFormData.SourceObject = "Link_ID_Card" '& .RecordSource On Error GoTo Lerr 'Call b2_Click For A = 1 To 1 For Each Tb In db.TableDefs If Tb.name = "File_Me_Customer" Then Tb.Connect = ";DATABASE=" & tg2 & Me.SHX & "\" & Me.SHX & ".accdb" Tb.RefreshLink End If Next Next A DoEvents DoCmd.OpenForm "File_Me_Customer" End If Me.file = RS.Fields("DB") RS.MoveNext Loop RS.Close Set RS = Nothing db.Close Me.one.Requery Me.rx.Requery Me.rx.SetFocus Me.rx.Selected(lrow:=0) = True Me.rx.SetFocus Exit Sub Lerr: MsgBox Err.Description 'MsgBox "áÇíÊæÝÑ ÇÊÕÇá ÈÇáÞÇÚÏÉ íÑÌì ÇáÊÃßÏ ãä ÇÚÏÇÏÉ ÇáÔÈßÉ " Me.one.Requery Me.rx.Requery Me.rx.SetFocus Me.rx.Selected(lrow:=0) = True Me.rx.SetFocus بتحديث استكمال التقرير والكل مع الشروطك + تحريل الحسابات Auto At Button k ☕

تحديث وتوضيح لك استاذ @Foksh 1-فصل الواجهة واجهة الامامية تغير عند الاختيار اما نطاق الجغرافي لحاله 2- اضافة ميزة النسخة الاحتياطية لمفهموك القواعد الخلفية عند الاشاء الاساسي وعند اغلاق للقواعد الفرعية 3-ميزة استبدال نسخة بالاساسي و الكل من غير استخدام جدول Ez ==================================== ملاحظة الطلب عند البحث ( يأخذ بس آخر سجل ويبحث فية ) ؟! 😇 شوف زر بحث وعرض البيانات تابع الفيديو بنتظارك استاذ @Foksh 🌹❤️☕ تحميل المرفق https://www.mediafire.com/file/tgobjoul2e31ixn/up_date_Link_x3.rar/file

عند البحث عند كل سجل مسار لقاعدة البيانات /عند بداية دوران يربط يتحقق من الشرط ثم التالي الى آخر سجل بشرط التحقق من الاستعلام اذا كانت يوجد بيانات ينفذ اذا لم يجد بيانات يستمر الى السجل التالي الى آخر سجل اما قاعدة 36 رقم افتراض الى 1000 (الى آخر سجل هذا مسار القاعد للربط واذا كان البحث بأسم او رقم فريد بسجل واحد فقط شرط في الكود اذا كان الاستعلام اكثر من سجل في القاعدة الواحده تصفية وحذف بيانات جدول ونفترض اسمة Qury حذف السجلات تنفيذ الكود ونتفترض rs.editor rs.filde(record link) if dcount("[id]","Qury") =0 then else docmd.openQury end if rs.move next rs.nothng or Loop =================================== المطلوب بختصار بحث عن رقم او اسم بكافة قواعد البيانات ولكل قاعدة بيانات مسار في السجل ويبدأ الكود من او سجل إلى آخر سجل فقط ☕

شنو الي ما فهمتة ؟ ☕ عشان اوضح لك استاذ @Foksh

!!\\\.accdb مسار الربط المطلوب البحث من اول سجل = من اول قاعدة الدوران الى آخر سجل لكل سجل اعادة ربط وفحص ربط واستعلام بشرط ان كان البحث رقم فريد فتح نموذج اما اذا كان اسماء = سجلات حذف والحاق بجدول مع فتح نموذج * آلية الدوران اما كود او دالة بس بنتظارك استاذ @Foksh🌹❤️☕

استاذ @Foksh ❤️🌹 ( اعتبر ان البرنامج ( اداة ببساطة فالبعض يربط الجداول بالمفهوم القاصر لكل سنة قاعدة جديده ؟! لنفترض الحسابات المفترض 1- جدول Ram *جمع الحسابات الغير منتهية مع جدول + رأس الاجماليات من مبالغ واسماء (احصائية) وتكون بسجل واحد بسجل القاعده الربط 2-جدول الترحيل * يقيس حجم مساحة التخزين الجدول المرتبط اذا كان 2 جيجا ينشأ تلقائي قاعدة جديدة ويعبي 3- محرك بحث * يقوم بربط من اول قاعدة منشأه عن طريق الاستعلام اذا كان رقم فريد يربط القاعدة * اما اذا كانت بحث من اول قاعدة الى قاعدة 36 عن اسم Foksh اكثر من اسم = اكثر من سجل 4- يلحق البيانات الى جدول Ram Qury ====================================== ببساطة الطلب هو دالة 1- تقوم بربط عن طريق Dlookup 2- دالة او كود تبحث عن جداول تربط من قاعدة 1 الى آخر قاعدة 36 عند العثور على الاسم يفتح الفورم للرقم المدني عند الاستعلام يلحق الى جدول الثالث يلتف من القاعدة الاولى الى آخر قاعدة وسلامتك استاذ @Foksh ============================================== اما في الاعلى اداة أختيار حسب طبيعة بيانات المشروع اما بنطاق جغرافي او كل سنة او تصفية وترحيل ..☕❤️🌹

❤️🌹

تم حل من غير انتظار عرض النموذج عند الربط 1- عرض القواعد البيانات على نطاق جغرافي جرب الاضافة والربط ☕ بس يمكن بتحديث استبدال طريقة دوران القواعد بطريقة ثانية 😇 ؟! وينكم هي صعبة لدرجة دي 😂 Link_Into_Link_MS_Access.rar

احدث مش حد امعبرني 😂 انا احل طلبي ! 1- جلب اسماء الجداول مع فتح القاعدة + 2- ربط لكل سجل قاعدة بتحديث بلنك بحث 1- 00 الى رقم القومي المدني ربط وفتح اضافة حقلين بالجدول آخر قاعدة ما خلصة 2GB ربط واضافة رقم القومي المدني ============================== وشوف الحل بدنا داله ما تسألش عن المنطق 😂 اضغط الزر لسجل التالي لحظة اسكر وافتح ثاني ده مش شغلانه يا قدعان ID_Card_Link_AndUpdat.rar

الحد القصى الصحيح 1 للربط قصدك واحد ينشأ سجل و5 ينشؤن سجلات الفرعية بعد عن التأخير والاخطاء والعكس فوق 1000 مرتبط حسب الالية ؟! لاني حسبة ان طلبك للملفات الخارجية مثل اكسل او ورد مرتبط خارجي MySQL?!

تحديث مع نفس الطلب اضافة جداول بضمها بقاعدة واحدة بنفس الاسم + فحص اذا كانت محلية تحذف ويضاف الربط بسؤال 2- اضافة قواعد دائمة لكل سجل جدول وربط فقط تحديد مكان الفولدر بتحديث اكمل يمكن ان الموقع اغلق انشاء حساب للزوار فقط المسجلين او المعلومة غلط :Password = " " ) بموضوع مستقل لا يوجد داله بدل من الكود او عمل فورم يتأكد من الفحص قبل التنفيذ Editor_Link_Add_table_Ms_Access.rar

برنامج بسيط بفضل الاستاذ محمود عبدالغفار عدلة علية فقط اختيار سنة ربط الكل بالملفات الفرعية من غير تحديد الربط كامل بسجل خطوات بيسطة اختر ملف القواعد صفرية للبرنامج -1 2-اختر جديد ثم اكتب اسم السنة مع الترميز واختيار مكان حفظ ثم اختيار حفظ وتطبيق 3- تخصيص الربط + فحص + اختيار الملف الفرعي ملاحظة : اعدادة الربط مره واحدة لتطبيق على الكل للتوصيح متابعة الفيديو وطلبي عند افتح اي فورم تحويل كود الفحص الى ميدوال يعطي شرط اذا 1 او 0 للفتح الفورم او حفظ البيانات او اي عملية كود ان يكون الشرط قواعد مربوطه = 1 بزر تجربة فتح الفورم مع تأكد شرط الاتصال اما كلمة المرور موضوع مستقل 😇 Link_Chack_OPenForm_Ms_Access.rar

استاذ @Moosak 😂☕🌹❤️ on error resume next '============= No Use Exit For And No Use Cod Loop IF Stop Loop with Stop Net = Full db Error # And No Use With = Size MB db Full = Close db dim run as string dim rung as integer '===============( * ) docmd.gotorecord ,, frist for run = 1 to dcount("[ID]","[TabletX]") ' any number or on tablet number for rung = 1 to 8 if isNull(Form_Sx.Textbox) or Form_Sx.Textbox="" then else Me("TextBoX" & 1) =Form_Sx.Textbox docmd.gotorecord,,next end if if isNull(Form_Sx.Textbox) or Form_Sx.Textbox="" then else Me("TextBoX" & 2) =Form_Sx.Textbox docmd.gotorecord,,next end if if isNull(Form_Sx.Textbox) or Form_Sx.Textbox="" then else Me("TextBoX" & 3) =Form_Sx.Textbox docmd.gotorecord,,next end if if isNull(Form_Sx.Textbox) or Form_Sx.Textbox="" then else Me("TextBoX" & 4) =Form_Sx.Textbox docmd.gotorecord,,next end if if isNull(Form_Sx.Textbox) or Form_Sx.Textbox="" then else Me("TextBoX" & 5) =Form_Sx.Textbox docmd.gotorecord,,next end if if isNull(Form_Sx.Textbox) or Form_Sx.Textbox="" then else Me("TextBoX" & 6) =Form_Sx.Textbox docmd.gotorecord,,next end if if isNull(Form_Sx.Textbox) or Form_Sx.Textbox="" then else Me("TextBoX" & 7) =Form_Sx.Textbox docmd.gotorecord,,next end if if isNull(Form_Sx.Textbox) or Form_Sx.Textbox="" then else Me("TextBoX" & 😎 =Form_Sx.Textbox docmd.gotorecord,,next end if next run next rung msgbox "don" Erorr # =الي موجود كان محجوز كامل استعلام من غير حدد الدوران بكامل سجلات الجدول بعض الاكواد لا تتجاوز 20 الف سجل as Long ?! لجعل عامود الحقل بالجدول الى صفوف عندك طريقة احسن من طريقة دي الاستفاد اذا كان مشروعك لعرض الخرائط او الفيديوات لشرائح الندوات التعليمية او تنظيم عملك بالجهاز او كتلوج المواد .... ممكن تطويره لعمل صيانة برامج او ادوات

تحديث البرنامج بدخول البرنامج OK Mshanan (صور + فيدو + مرفق) والقديم OK Moosak 😂 1- انشاء واجهة سطح المكتب فيها كل برامج والملفات الصور 2- فيها تشغيل الملف فقط او تشغيل البرامج المحدد مع او الكل مع فتح لبرنامج آخر 3-تحميل البيكجات كانت قوالب او اصوات او صور 4- انشاء مجموعات بكل بساطة كواجهة مستغل واختر اختصار عند بداية اقلاع الويندوز وبالفيديو توضيح طريقة الاستخدام 1- افتح متصفح ملفات الويندوز انشاء ملف والصق في الملف اختصارات البرامج او برامج اكسس او الصور او الفيديو او الاصوات او اي ملف غير معروف من القائمة الجانبية اختر الملف والاسفل سمة ثم اختر اضافة فقط 2- اختر بالقائمة الرئيسية 1- new_Scan ثم 2-Up_date ثم 3-Run_Update_Folder Next Finsh اغلاق فقط ================== 3- اختر الصور للملفات اما صورة الملف او صورة انت تختار الصور للملف من شريط العلوي اختر IF_All_IMG ============================ نسيت الغاء Selected_Folder 😇 عند تحريك المؤشر نازم توقيت بارميتر = 0 عند الخروج =100 مفنوح المصدر استاذ @Moosak 🌹❤️☕ هذي قائمتي اشرايك نفس فكرتك بس بطريقة مختلفة مع تغيل برامجك شوف الفيديوا 😁 تحميل البرانامج https://www.mediafire.com/file/t080nzipmn9qttz/V2_league-of-legends.rar/file

استاذ @Moosak ❤️🌹 كملت التحديث مع اضافة ودمج مرفق استاذي @ابو جودي❤️🌹🌹 مميزات التحديث:☕ 1- واجهة Logen اختيار مقطع المفضل لديك يحفظ مع خيار التخصيص لا يمكن ضغط لا للاكلك ماوس او لفة اكليك (لا يمكن نقر على مؤشر الماوس ولا قائمة جانبية ) = فقط عرض الفيديو 💯 2-تخصيص اختيار الخلفية وخلفية سبلاش عند الاقلاع برنامج 3-تخصيص اختصار للبرنامج الى سطح المكتب وقائمة الويندوز وعند الاقلاع مع ازالة الكل 4- عمل نسخة احتياطية مبسط 5- عمل مجموعات بقائمة الرئيسية مع اضافة وتعديل والمزيد ========================== امكانية ضبط بنفس تصميم والمقايسات للواجهة Lol game 😁 يمكن تحسب مشغل غير اكسس تقدر تطور الى مشاريعك حسب رغبتكم مفتوح المصدر تحميل الملف https://www.mediafire.com/file/qdwrj97q5htvi2h/LoL_game_Work_Link_db_Ms_Access.rar/file

استاذ ودكتور @أبو إبراهيم الغامدي ❤️🌹 هل صحيح احدد حد لعرض السجلات من 1 الى 6000 بتعديل على كود (( SQL )) dim Sroalbar_X as string dim Sroalbar_Rung as string Sroalbar_X = Me( scrollbar ) * 6000 if Sroalbar_X = 6000 then else Sroalbar_Rung= 6000 - Sroalbar_X end if Sql = "Select * From TblLabData Where Ege Like '*" & Result & "*'" & ID Sroalbar_X < Sroalbar_Rung Me.RecordSource = Sql ========================= ☕ بعد دخول متصفح Edg Ms Access HTML 5/6 مع الامكانيات وصنع وطلب الاكواد من المواقع بسهول اصبح اكثر خطور وتعامل مع هذه الاداة اشبه بالمحظور لقدرة التحكم ! هل يمكن نصنع اداة لجلب بيانات الموقع حفر الموقع عند حدث الدخول = رجوع وجلب مكون والكود مع الاستنباط الرابط التحديث حاسة ان الرد بوقت المناسابات 😂

بعد اذن استاذ @أبو إبراهيم الغامدي 🌹 صفاء اعتقد ان هو بعد طلبك بحث محدد ينقصة معامل </> =========================================(Video + Image + Form) اما البحث العام لا اعلم بضبط حجم مساحة تخزين في الفورم لاستيعاب عدد السجلات المطلوب لان يثقل لدرجة بطيييء والعميل يطر هو للاغلاق نفترض عد الاسجلات Dcount من 1 الى 6000 ومن 6000 الى 12000 سيكون الوسيط شريط التحريك Scrollbar حجز الاستعلامات او الجدول وعرض مجموعة المسموحة للتخزين اشلون اسويها مع الكود Me.RecordSource ="Select * From TblLabData Where Ege Like '*" & Me.TxtSearch & "*'" وشكرا 😇 Search By Characters.rar

صفاء تقصدين اقصد احاول المساعده 😇 استاذي @ابو جودي ❤️🌹🌹 بتأكيد جواب ثاني Function = ((),()) =================================== انا احاول dim NBX as string NBX = len(me.this_number) if left(me.text, NBX) = 5 then ' give And this why for save no give me Null = Error = ( Qury Nurmal cod iif(isnull([text1]) or [text1] ="" ,"",[text1]) .......... me.text1 = set_text_S1(me.text) me.text2 = set_text_S2(me.text) me.text3 = set_text_S3(me.text) compilt with me.text . . end with or docmd.gotorecord ' docmd.openform "", SQL,,,, me.filter =true end if Public Function set_text_S1(ByVal strname As String) As String set_text_S1 = left(strname, InStrRev(strname, "-")) End Function Public Function set_text_S2(ByVal strname As String) As String set_text_S2 = left(strname, InStrRev(strname, " ")) End Function Public Function set_text_S3(ByVal strname As String) As String set_text_S3 = mID(strname, Len(strname) + InStrRev(strname, " ")) End Function