بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|
-
Posts
1939 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
2
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو محمد احمد لطفى
-
ويمكن الاختصار الى Dim dbExternal As DAO.Database ' افتح قاعدة البيانات الخارجية Set dbExternal = OpenDatabase("F:\21102023\Updatedata\البحث.accdb") If DMax("[datex]", "main1115") <> dbExternal.OpenRecordset("SELECT MAX(datex) AS MaxDate FROM main1115").Fields("MaxDate").Value Then call update End If ' أغلق قاعدة البيانات الخارجية dbExternal.Close
-
استعلام تغيير و تحديث من خلال جدول ( 2 )
محمد احمد لطفى replied to محمد احمد لطفى's topic in قسم الأكسيس Access
تحديث تم اضافة id لعدم تكرار السجلات فى استعلام التحديث ومازل هناك تكرار UPDATE TableX INNER JOIN (qy_kan LEFT JOIN KindX ON qy_kan.Expr2 = KindX.LikeB) ON TableX.id = qy_kan.id SET TableX.NameX = Replace([TableX].[NameX],[LikeA],""), TableX.KindX = [KindX].[LikeB] WHERE (((qy_kan.Expr2)<>"")); عدد السجلات المطلوب تحديثها 234 عدد سجلات استعلام التحديث السابق 10816 عدد سجلات استعلام التحديث الجديد 416 مازال هناك 182 متكرر طبعا ده سرع الامر من 10816 الى 416 كيف اجعل الاستعلام عدد السجلات الاصلى 234 ولا يكرر حيث التكرار بسبب النشاط المتكرر -
استعلام تغيير و تحديث من خلال جدول ( 2 )
محمد احمد لطفى replied to محمد احمد لطفى's topic in قسم الأكسيس Access
أكرر هذا الاستعلام هو من يبطىء العمل كيف يمكن تغييره و يصبح اسرع متابع UPDATE (TableX INNER JOIN qy_kan ON TableX.NameX = qy_kan.NameX) LEFT JOIN KindX ON qy_kan.Expr2 = KindX.LikeB SET TableX.NameX = Replace([TableX].[NameX],[LikeA],""), TableX.KindX = [KindX].[LikeB] WHERE (((qy_kan.Expr2)<>"")); -
شكراُ أستاذ @Moosak توصلت الى حل كل ما كنت أريده ان يتم التحديث بطريقة ألية بدون التدخل من احد حيث أقوم بتحديث بعض الجداول فقط Dim strSQL As String, dbLocal As DAO.Database, dbExternal As DAO.Database, maxDateLocal As Date, maxDateExternal As Date ' افتح قاعدة البيانات المحلية Set dbLocal = CurrentDb() ' احصل على أقصى تاريخ للجدول المحلي maxDateLocal = dbLocal.OpenRecordset("SELECT MAX(datex) AS MaxDate FROM main1115").Fields("MaxDate").Value ' افتح قاعدة البيانات الخارجية Set dbExternal = OpenDatabase("\\10.12.20.125\Updatedata\البحث.accdb") ' احصل على أقصى تاريخ للجدول الخارجي maxDateExternal = dbExternal.OpenRecordset("SELECT MAX(datex) AS MaxDate FROM main1115").Fields("MaxDate").Value ' أغلق قاعدة البيانات الخارجية dbExternal.Close ' قارن بين القيمتين واتخذ الإجراء المناسب If maxDateLocal <> maxDateExternal Then ' غير متطابقين Call Update End If وجارى مشاهدة الملف المرفق
-
فى هذا الموضوع أريد أن اعرف اخر تاريخ لقاعدة البيانات على الشبكة هو نفسه اخر تاريخ لملفى حاولت و لكن لم اصل بالطريقة السهلة If DMax("[datex]", "main1115") = DMax("datex", "main1115", "\\10.12.20.125\Updatedata\main1115.accdb") Then و لكنه لم يعمل فقمت بعمل كود أخر يعمل DoCmd.TransferDatabase acImport, "Microsoft Access", _ "F\\10.12.20.125\Updatedata\البحث.accdb", acTable, "main1115", "main1116", False If DMax("[datex]", "main1115") = DMax("[datex]", "main1116") Then ' MsgBox "متطابقين" Else Call updatex ' MsgBox "غير متطابقين" End If المطلوب تشغيل الطريقة الاولى أو هل هناك طريقة أخرى وهذا لهدف فى حالة أنهم غير متطابقين أقوم بحذف الجداول القديمة و نقل الجديدة وجزاكم الله كل خير
-
استعلام تغيير و تحديث من خلال جدول ( 2 )
محمد احمد لطفى replied to محمد احمد لطفى's topic in قسم الأكسيس Access
أعتقد أن هذا الاستعلام هو من يبطىء العمل UPDATE (TableX INNER JOIN qy_kan ON TableX.NameX = qy_kan.NameX) LEFT JOIN KindX ON qy_kan.Expr2 = KindX.LikeB SET TableX.NameX = Replace([TableX].[NameX],[LikeA],""), TableX.KindX = [KindX].[LikeB] WHERE (((qy_kan.Expr2)<>"")); -
استعلام تغيير و تحديث من خلال جدول ( 2 )
محمد احمد لطفى replied to محمد احمد لطفى's topic in قسم الأكسيس Access
-
تفضل فقط قم بتغيير , الى ; db1.mdb
-
استعلام تغيير و تحديث من خلال جدول ( 2 )
محمد احمد لطفى replied to محمد احمد لطفى's topic in قسم الأكسيس Access
تحديث هناك بعض الاخطاء فى النقل لا ينقل الحقل كاملا و تقريبا ينقل likea وليس likeb Replace&add.rar -
استعلام تغيير و تحديث من خلال جدول ( 2 )
محمد احمد لطفى replied to محمد احمد لطفى's topic in قسم الأكسيس Access
محاولة تعمل فى اول الجملة فقط يرجى النظر الى الوحدة النمطية تم تغير الوحدة النمطية Replace&add.rar -
لارسال ملف pdf اختيار نوع المرفق مستند و اختيار ملف pdf الذى سنرسله و الضغط على ارسال اما مفاتيح الارسال يجب معرفة كيف يعمل الواتس عندما يتحدث و نقوم بتجريب خطوة خطوة عن طريق sendkey ( زراير الكيبورد )
-
هذا برنامج أستاذ موسى تم تطويره للعمل على واتساب أخر نسخة ( الويندوذ) يعمل لدى يقوم بالارسال رسالة لعدة اشخاص حتى التى غير مسجلة بالهاتف و يتجاهل الارقام غير المسجلة بالواتس كل ما عملته هو ضبط مفاتيح الارسال فقط حتى يعمل على اخر اصدار للواتس بالتوفيق المشكلة الوحيدة أن الواتس بعد مدة يحدث نفسه فيجب التعلم ضبط مفاتيح الارسال مرسال الواتسأب.rar
-
استعلام تغيير و تحديث من خلال جدول ( 2 )
محمد احمد لطفى replied to محمد احمد لطفى's topic in قسم الأكسيس Access
بالنسبة للمشكلة الثانية ممكن ربطها بحقل id و يعمل حسب الترتيب يعنى مثلا نجعل للمقولات id 5 و مقاولات id 6 و عند عمل البرنامج اذا وجد للمقولات ينقل للمقولات مباشرة و اذا و جد مقولات ينقل مقاولات لأنه لم يجد للمقاولات اذا مشى بترتيب id هذه فكرة قد تكون صحيحة و قد تكون خاطئة -
فى هذا النموذج ونقلا من أستاذى kanory فى موضوع سابق - البحث عن العبارة او العبارات في الجدول سواءا كانت تلك العبارة في بداية النص او وسطها او نهايتها ومقارنتها بالجدول الاخر لجلب المرادف لها . - حذف تلك العبارة من الجدول نهائيا ...... البرنامج يعمل و لكن هناك مشكلتين أولا مع زيادة عدد الانشطة أصبح بطىء فالمطلوب ايجاد حل لتسريعه ثانيا هناك مشكله تحدث مثلا فى جدول KindX هناك مثلا مقاولات و للمقاولات المطلوب اذا وجد مقاولات ينقل مقاولات و اذا وجد للمقاولات ينقل للمقاولات و لكنه اذا وجد للمقاولات ينقل مقاولات و يترك حرفين ال فى الجدول tabletx حقل namex التشغيل من خلال استعلام 1 اذا كان هناك شيىء غير مفهوم يرجى التوضيح . الموضوع السابق وجزاكم الله كل خير Replace&add.rar
-
محتاجه كود يعمل تحديد الكل والغاء الكل
محمد احمد لطفى replied to safaa salem5's topic in قسم الأكسيس Access
تفضلى يعمل على option button Dim frm As Form Dim ctl As Control Dim optionName As String Dim i As Integer ' يمكنك استبدال "اسم_نموذج" بالاسم الفعلي لنموذجك Set frm = Forms("Nameformx") ' تحديد جميع أزرار الاختيار (Option Buttons) في النموذج بناءً على الأسماء المحددة For i = 0 To 14 optionName = "خيار" & i On Error Resume Next Set ctl = frm.Controls(optionName) On Error GoTo 0 If Not ctl Is Nothing Then If TypeOf ctl Is Access.OptionButton Then ctl.Value = True End If End If Next i -
محتاجه كود يعمل تحديد الكل والغاء الكل
محمد احمد لطفى replied to safaa salem5's topic in قسم الأكسيس Access
يجب وضع مثال للعمل عليه هذا DoCmd.RunSQL "UPDATE اسم_الاستعلام SET اسم_الحقل = True;" اذا كان اسم الاستعلام او الجدول مصدر النموذح و الحقل -
محتاجه كود يعمل تحديد الكل والغاء الكل
محمد احمد لطفى replied to safaa salem5's topic in قسم الأكسيس Access
تفضلى بالتوفيق DoCmd.RunSQL "UPDATE اسم_الاستعلام SET اسم_الحقل = True;"