ابوخليل

للفائدة :

Long Text = Memo

وبالعربي : مذكرة  أو مفكرة

في الصورة نموذج مستمر يحتوي على حقول عدة .. وفي المثال نموذج مفرد يحتوي على حقل واحد

وترغبين بنقل النص مع مواصفاته الى الجدول

ثم ماذا بعد ذلك ؟ 

حتة حتة لا يصلح .. لان الحلول تختلف حسب الرؤية والتصور

لا بد ان افهم  جيدا  يجب شرح الفكرة كاملة .. وما هي النتيجة النهائية لهذه الفكرة

56 دقائق مضت, safaa salem5 said:

 تمام انا فهمت طريقة الكود  بس  حقل النص هيكون فى  فورم منفصل  تمام زى الصوره اللى فى فوق

ساساعدك في الابتداء من الفورم المنفصل ..

color2.accdb

عملت لك السطر الأعلى من حقول الألوان من اجل تكملي الباقي

اذا العمل الحالي موافق لطلبك .. يمكننا نقل النتيجة الى الجدول

اكملي كتابة احداث بقية الألوان

اذا يمكنك الانتظار يمكن ان نجد حدثا واحدا لكافة حقول الألوان

color.accdb

في مثالك الموظف له اكثر من كتاب ثلاثة او اكثر

ترقيمك للكتب لا يصلح .. لا بد ان يكون رقم الكتاب فريدا 

يجب ان يكون رقم الكتاب = ( رقم الموظف + رقم خاص بالكتاب )

من اجل تمكن اكسس من البحث عنه 

5 ساعات مضت, Moosak said:

وعليكم السلام ورحمة الله وبركاته 🙂 

تفضل :

 

نيابة عن اخي موسى

استبدل السطر الاخير من الكود بهذا  لإدراج السنة ضمن الشرط   :

 DoCmd.OpenForm "Frm_VermLoans", , , "month([Auto_Date]) & year([Auto_Date])=" & Month([TxtMonth]) & Year([TxtMonth])

ايضا للعلم :

يمكنك جعل جميع المرفقات والمجلدات ( ايقونات ، شعارات ، صور ، مستندات ) في مكان واحد بجانب قاعدة الجداول مشترك للجميع

آآه كنت قرأت لك انك تعمل برنامجك لنفسك ولا تسوقه

الآن فهمت

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

وما دمت المراقب .. هنا يسهل عليك التعديل على قاعدة الجداول ، فهي واحدة والتعديل سيظهر  للجميع

ويتبقى نسخة الواجهات .. فبعد كل تعديل انت ملزم بتحديث النسخة على كل جهاز

اعتقد مر علينا هنا  موضوع بخصوص اشعار المستخدمين بوجود تحديث جديد  ، وبنقرة زر او الموافقة يتم استبدال النسخة القديمة بالأحدث

55 دقائق مضت, الحلبي said:

هل تقسيم قاعدة البيانات يقلل من حجمها ام الفائدة الاخرى من التقسيم ما هى ؟

نعم هذه واحدة

لأن حساب الحجم يتم لكل قاعدة على حدة .. وغالبا حجم الواجهات ثابت بعد اكتمال البرنامج بينما الجداول تتزايد

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

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

.....

في مثل حالتك كمبرمج ( على اعتبار انك تعمل برامجك الخاصة لك فقط ) فكون قاعدة البيانات وحيدة غير مقسمة افضل لك .. مع أخذ الحيطة للحجم المستقبلي المتوقع  لقاعدة البيانات

تفضل طريقتي في برامجي

test2.rar

مشاركة مع استاذنا  واخي الحبيب خليفة

الامر يسير من اجل تلافي الاخطاء البشرية

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

الاجازات-2.rar

 عندي 2010

عملت لايك على اجابة الاستاذ محمد .. لاني جربت المثال ويعمل 100%

اخوي هاني

من الاحتراف ان لا تتشابه اسماء الحقول في الجداول المفروض يفرق بينها بحرف او اي شيء 

بسبب التشابه تظهر لك المشكلات عند بناء الاستعلامات من هذه الجداول

اسم الحقل ArAccDes في الجدول الفرعي عدلته الى Ar_AccDes

تفضل التعديل

البحث في النموذج2.rar

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

على كل حال كل مشكلة ولها حل باذن الله 

جرب هذا ووافني بالنتيجة

DoCmd.GoToPage 1, 0, 0
SendKeys "{F9}"
SendKeys "{RIGHT}"

db2.rar

قد اكون فهمت عنك الآن بعد مراجعة المثال

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

ولكنك الآن تتكلم عن الحقول والاعمدة داخل تفصيل النموذج

صحيح .. فهم السؤال نصف الاجابة

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

21 دقائق مضت, tiger wanted said:

 ولكن فلنفرض اننى قمت بكتابة داخل مربع نص وعند الضغط على زر التحرك يتحرك المؤشر داخل النص ولاينتقل الى العمود التالى ارجو ان اكون قد اوضحت الامر 

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

الا اذا انت تجرب على غير المثال المرفق 

لو اعرف اسجل لك فيديوا 

8 ساعات مضت, tiger wanted said:

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

هذا طلبك اعلاه وتم حل المشكلة باستخدام السطر الذي زودتك به

لما يكون المؤشر داخل الحقل ثم تنقر على زر يمين او زر يسار  ينتقل التركيز الى تفصيل النموذج ويعمل بشكل صحيح

تم التأكد والتجربة والفحص

ما المشكلة عندك ؟ 

db1.rar

الحمد لله على قضاء الحاجات

فقط احببت التنبيه الى ان طريقة تصميم الجداول غير صحيحة .. الافضل بيانات الجداول الثلاث تكون في جدول واحد

اقرب حل هو اظهار رسالة تنبيه وتخيير

تفضل

Test3.accdb

تفضل 

البحث2.rar

كل شيء له حل بإذن الله

جرب ضع هذا السطر في اعلى الكود هكذا :

DoCmd.GoToPage 1, 0, 0
SendKeys "{RIGHT}"

25 دقائق مضت, daygham said:

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

عدل جميع الخصائص في النماذج الى : سجل محرر

كما في الصورة

25 دقائق مضت, daygham said:

ااضافة لهذا عندما احاول حفظ الملف بصيغة accde تظهر لي مشكلة لم يتمكن من حفظ الملف بصيغة accde

يوجد لديك اخطاء برمجية في المشروع .. تتبع الاخطاء في محرر الفيجوال  بواسطة : debug / compile

عليكم السلام

=Nz(DLast("[رصيد نهائي]","[t1]"),0)

test2.accdb

اخي الكريم .. نبارك لك التميز 

ومن باب اولى ان تكون مرفقاتك متميزة

لا يوجد في مثالك حفظ ولا تعديل !!

اساس المشكلة هو انتقال التركيز عن تفصيل النموذج عندما تنقر على الأزرار

حاولت اروض الأزرار  بحيث يبقى التركيز داخل التفصيل ولم اتمكن .. يوجد خصيصة في الازرار يجب تعطيلها .. ولكني لم اهتد اليها

لذا سرحت هذه الأزرار واستبدلتها بمربع تسمية

ورتبت هذه التسميات بحيث تظهر مشابهة للازرار

الآن اي مفتاح يمكنك ارساله الى تفصيل النموذج

لاحظ ان التحرك يمينا ويسارا سيعمل بطريقتين وعليك ان تختار ما يناسبك 

Private Sub Command6_Click()
SendKeys "{PGUP}"
End Sub

Private Sub Command7_Click()
SendKeys "{PGDN}"
End Sub

Private Sub Command8_Click()
SendKeys "{RIGHT}"
'SendKeys "+{tab}" 'وهذه ايضا تعمل
End Sub

Private Sub Command9_Click()
'SendKeys "{tab}" ' وهذه ايضا تعمل
SendKeys "{LEFT}"
End Sub

التحرك داخل النموذج بالأزرار.accdb

ما شاء الله عليك .. مقاتل .. لم تيأس

لك من اسمك نصيب

ابشر .. الحل  _ان شاء الله_  يسير

فقط  امهلني .. ارتب لك الحل ..