biskra

على الرابط التالي تجد معلومات كثيرة https://www.officena.net/ib/topic/74860-إنشاء-دروس-vba-أكسس/

جرب الطريقة التالية New Microsoft Access Database.accdb

مواقع ربما تفيدك كيفية ربط الأكسس بالبور بونت الرابط الثاني من موقع مايكروسوفت يشرح كل المراحل المطلوبة https://support.microsoft.com/en-us/office/build-and-publish-an-access-database-to-sharepoint-e68bf007-410c-43b2-bf21-322ddbcf5411

جرب النتيجة تظهر بالعربية كما طلبت كان عليك أخذ الدالة من الملف المرفوع من الأستاذ أبو عبدالله الحلوانى convert nacer.rar

هناك مشكلة كلما أجرب المثال بجميع الأكواد المقترحة يشتغل عادي، لكن عند غلق الملف و الخروج من الأكسس و إعادة تشغيل الملف تأتي رسالة خطأ و يتوقف البرنامج عن العمل

أنشئ حقل في الاستعلام بجانب الحقل المراد تفقيطه و استدعي دالة التفقيط لهذا الحقل الجديد في الاستعلام

عليك بأخذ الكود الموجود في الصفحة الرابعة، و عدل عليه باستبدال الصفحة5 بالصفحة1 و ضعه في الزر الموجود في الصفحة5 يقوم بالعمل المطلوب

مجرد اقتراد للكود xxx حتى يسهل عليك التعامل معه عند التعدي غيره للتالي Sub xxx() For i = 1 To 5 Me.Controls("f" & i).Visible = False Next i End Sub

lممكن بالكود التالي عند الضغط على زر المخالفات Private Sub Command5_Click() Me.Command4.SetFocus Call xxx Me.m1.Visible = True Me.m2.Visible = True Me.m3.Visible = True Me.m4.Visible = True Me.m5.Visible = True End Sub

مجرد فكرة طبقتها على الحقل " تسجيل دفعات الصرف " من القائمة الأولى في حدث عند النقر على الفأرة ينقل مؤشر الفأرة قائمات المخالفات و يخفي بقية الحقول، ربما هناك حل آخر أحسن، لكن يمكنك تطبيق الفكرة على كل حقل من الحقول الكود Private Sub f1_Click() Me.Command5.SetFocus Call xxx End Sub

في كود استدعاء الدالة الموجود في حدث الحالي Form_Current ضف السطر التالي في نهاية الكود Forms!pricshs!sub_shngss.Form.Requery

جرب الكود التالي Me.xxx = Format(Time, "HH:MM:SS ampm") 'yields 02:12 PM

في كود حدث On Load و كود حدث On timer احذف AM/PM من الكود Me.xxx = Format(Time, "HH:NN:SS") عوض Me.xxx = Format(Time, "HH:NN:SS AM/PM")

تفضل من خلال الأداة التالية يمكنك التحويل في الإتجاهين Sql2vba.zip

أظن أن هناك خطأ في الكود فيما يخض القيمة التي يأخذها من النموذج، جرب إعادة صياغة الكود على أساس الفكرة التالية: INSERT INTO Table_777_MaturityscheduleOte (x, y, z) SELECT x, y, z FROM Table_776_Maturityschedule WHERE CodeStaff = " & Me.CodeStaff حيث أن xyz تعوض بالحقول المطلوب إدخالها الى الجدول مع مراعاة أن تكون طبيعة الحقول من نفس النوع، و يمكن أن تصمم العملية عن طريق الإستعلام و يمكنك بعدها تحويلها إلى كود بالطريقة التي ترغب فيها.

مثال من موقع أجنبي ربما يشكل بداية للفكرة GetPhotoLocation v1.2.zip

هل تريد اضافة الى القائمة؟ عليك باللجوء الى حدث غير موجود في القائمة للإضافة Not In List event of a combo box في المثال التالي تجد الطريقة ActorsAndMovies.zip

مجرد رأي فكرة ألبوم صور، أو كما شاهدت في بعض المواقع استعمال قوقل إرث،

جرب الحل المقترح من مايكروسوفت على الرابط التالي https://answers.microsoft.com/en-us/windows/forum/windows_7-pictures/how-do-i-fix-exploreexe-appcrash-on-my-program/df423530-f115-436e-8994-835704864740

أعجبني الملف المرفق لما فيه من أفكار للتصميم العصري للنماذج و شريط الأدوات أردت أن يطلع عليه من يريد التجربة و الإستفادة نظرا لكبر الملف فهو مجزأ لذا فك الملفات الثلاثة في ملف واحد، رابط موقع صاحب الملف الموقع من هنا bin.rar VBA_TOOLS.rar dll_Test.rar

تفضل

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

أضيف لك مجموعة من الأمثلة وجدتها لك ربما تساعدك أكثر move record.rar

تفضل بعد التعديل تاكيد حفظ البيانات(3).rar

في هذه الحالة استعمل الكود المقترح من طرف الأخ د.كاف يار