رمهان

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

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

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

حيا الله الجميع اشارك ب 1. ممكن وضع كود الاخ محمد لطفي عند حدث الحالي للنموذج افضل ولكن سيحتاج معالجة اكثر عند وضع الموشر على سجل جديد 2. هذا كود يعمل حتى لو على سجل جديد Private Sub Form_Current() Me.Parent!id.SetFocus DoCmd.GoToRecord , , acGoTo, Me.CurrentRecord End Sub 3. يغنيك عن هذا كله استخدام نوع العرض للنموذج = نموذج مقسم split form . وهنا فقط اعمل النموذج الرئيسي واختر نوع العرض مقسم وتستطيع التحكم في مكان النموذج المنقسم عن طريق الخاصية اتجاه العرض وخصائص اخرى مثل قابلية التعديل وغيرها بالتوفيق

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

شغاله تمام في ما يخص الاصدار 64 لو سمحت روح لاي صفحة بالاكواد واعمل كمبايل من debug وشوف الاخطاء هناك عناصر تحتاج تعديلات قد تكون المشكلة لدى صديقك هو تعريف اللغة العربية وهنا الطريقة https://www.officena.net/ib/topic/87478-حل-مشكلة-الترميز-في-الاكسل/ بالتوفيق

اعتقد لا بد من الجداول وعلى فكره .. في برامجي ابني القوائم في جدول واحد حيث برمجيا استطيع اسناد اي قائمة لاي كمبو باي نموذج @أبو إبراهيم الغامدي تحياتي

لدي 64 بت ولكن لا استطيع فتح ملف مضغوط حديث .. اعد الارفاق كملف اكسس مباشره

في حدث on paint لجزء التفصيل اكتب docmd.save بالتوفيق ولكن انتبه : عندما تحول الى accde فان التعديل لايمكن في تصميم النماذج والتقارير

For i = 0 To Me.مربع_تحرير_وسرد162.ListCount - 1 Me.مربع_تحرير_وسرد162.Selected(i) = True Next

السؤال الان : هل لديك دوال api في وحدات نمطية عامة ؟ الصقها هنا للتعديل وعلى العموم اذا كان لديك دوال تبدا كالتالي private declare function عدلها ب private declare ptrsafe function وهذا رابط للفائده https://www.officena.net/ib/topic/64325-مثال-يعمل-على-اكسس-32-بت-و-64-بت/ بالتوفيق

ليس لدي برنامج الضغط الجديد تكرما رفع ملف الاكسس مباشرة بالتوفيق

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

وهل تختفي المشكلة عند عملها .. ثم تعود بعد وقت معين ؟

حيا الله الاخ عبدالله واحشنا الحقيقة صعب ان نحدد المشكلة ولكن حسب الرسالة هل تضمن ان النقاط التالية مستبعده : 1. ان يكون الجدول في وضع تصميم .. ممكن احد المستخدمين فاتح الجدول على وضع تصميم 2. ان القاعدة مفتوحة بشكل حصري .. او ان الخيار الافتراضي للفتح اصبح حصري : تاكد هنا من خيارات الاكسس >> اعدادات العميل >> المود الافتراضي للفتح=مشترك وليس حصري 3. هل لو عملت ضغط واصلاح للقاعدة الخلفية تتم بشكل سليم بدون اي رسالة تحذيرية ؟ تحياتي

اضف الغاء الفلتره Me.filteron=false في نهاية كود الغاء التحديد اكتب من الموبايل والا كنت ارفقت الملف يالتوفسق

الكود الجديد للبحث Private Sub مربع_تحرير_وسرد162_AfterUpdate() If Me.مربع_تحرير_وسرد162.ItemsSelected.Count = 0 Then Me.FilterOn = False: Exit Sub For Each xsel In Me.مربع_تحرير_وسرد162.ItemsSelected xt = xt & "'" & Me.مربع_تحرير_وسرد162.ItemData(xsel) & "'," Next xt = Nz(Left(xt, Len(xt) - 1), "") Me.Filter = "[stat]in(" & xt & ")" Me.FilterOn = True End Sub كود الغاء التحديد واظهار الكل For Each xsel In Me.مربع_تحرير_وسرد162.ItemsSelected Me.مربع_تحرير_وسرد162.Selected(xsel) = False Next بالتوفيق

اخي الغالي ابا جودي احيانا انا اسالك ولدي الجواب ؟ اما المره هذي انا اسالت وكنت ابحث عن الفكره فقد تكون حلا او مفتاحا للحل اطلعت على المرفق واعتقد احتاج وقت للعوده لانه يبدو ان هناك لبس بالموضوع تحياتي

اسحب كلامي اعلاه واعدله بانه يمكن الربط الحي مع الاكسل وبعد مشاركة الاستاذ ابو ابراهيم الغامدي وهنا تحياتي للجميع

جرب بعد التحديث للقائمة Private Sub مربع_تحرير_وسرد162_AfterUpdate() For Each xsel In Me.مربع_تحرير_وسرد162.ItemsSelected xt = xt & "'" & Me.مربع_تحرير_وسرد162.ItemData(xsel) & "'," Next xt = Left(xt, Len(xt) - 1) Me.Filter = "[stat]in(" & xt & ")" Me.FilterOn = True End Sub واعتقد الموضوع مكرر هنا https://www.officena.net/ib/topic/91238-تحويل-قائمة-منسدلة-إلى-مربع-قائمة/ بالتوفيق

هذا صحيح ولكن لو عمل على نسخة ويندوز عربي ... سيكون رمز الصباح ص وليس am وهنا لن تعمل replace 😉

اهلين @ابا جودى هات مرفق به مايدور في مخيلتك وتطبيق لاعلاه .. منكم نستقيد جزيتم خيرا

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

هذه احد الافكار التي اوافقك عليها ولكن ابا جودي : هل يمكن تطبيقها على النموذج الفرعي ؟ او على نموذج متعدد السجلات ؟ في الاكسس هناك تحدي كبير ولا بد من استخدام جداول وسيطة . الاخ @عبد اللطيف سلوم هذه روابط وجدتها على السريع لعل تفيدك https://www.officena.net/ib/topic/82567-الغاء-الحفظ-التلقائي-_طلب-تعديل-كود/ https://www.officena.net/ib/topic/81029-الحفظ-التلقائي/ https://www.officena.net/ib/topic/25215-طريقة-تلافي-الحفظ-التلقائي-في-النماذج-الفرعية/ https://www.officena.net/ib/topic/15860-ما-هي-طريقة-إلغاء-الحفظ-التلقائي-للسجلات-في-أكسيس؟/ https://www.officena.net/ib/topic/53618-الغاء-الحفظ-التلقائي-في-نموذج-تعديل-بيانات-رئيسي/ https://www.officena.net/ib/topic/82029-إلغاء-الحفظ-التلقائي-في-النموذج-الفرعي/ https://www.officena.net/ib/topic/90904-طريقة-الغاء-الحفظ-التلقائي-لنماذج-اكسس/ https://www.officena.net/ib/topic/77626-الغاء-الحفظ-التلقائى/ https://www.officena.net/ib/topic/45826-التاكيد-عى-حفظ-التغييرات-عند-اغلاق-او-جديد/ https://www.officena.net/ib/topic/18318-برنامج-إدارة-الأسهم/ https://www.officena.net/ib/topic/22029-حفظ-ما-يتم-ادخاله-في-الفورم-33333333333333/ https://www.officena.net/ib/topic/19959-مشكلة-مع-الامر-undo/ https://www.officena.net/ib/topic/55792-عمل-زر-للتراجع-في-نموذجين/?tab=comments#comment-352971 https://www.officena.net/ib/topic/60445-التعديل-والتراجع-في-النموذج-الفرعي/?tab=comments#comment-382376 بالتوفيق

يبدو ان الصيام له اثر حبيبي يمكن لم تظهر معك المشكلة لان اسم العنصر نفسه العنوان عدل عنوان احد العناصر وشوف تحياتي