اذهب الي المحتوي
أوفيسنا

ربط جدول بعدة نماذج


hmimou777

الردود الموصى بها

السلام عليكم اخواني الاعزاء

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

ايضا هل من الممكن تثبيت خلية معينة عند ادخال المعلومات ؟

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

اعلم انني اثقلت عليكم ، لكن رحبة الصدر لديكم تجعلني اواصل .

بارك الله فيكم و مشكورين مسبقا

رابط هذا التعليق
شارك

4 ساعات مضت, karrar sabry said:

 

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

تم تعديل بواسطه nabil09
خطأ
رابط هذا التعليق
شارك

وعليكم السلام اخي العزيز ...

لنفرض ان لكل نموذج 3 حقول , فسيكون للجدول 3*5 نماذج = 15 حقل في الجدول

مثلا id1 للنموذج الاول

و id2 للنموذج 2

و id3 للنموذج 3

و هكذا ...

*

* ولكن يفضل ان يكون لكل نموذج جدول خاص به .

رابط هذا التعليق
شارك

في 22/12/2015 at 19:48, karrar sabry said:

وعليكم السلام اخي العزيز ...

لنفرض ان لكل نموذج 3 حقول , فسيكون للجدول 3*5 نماذج = 15 حقل في الجدول

مثلا id1 للنموذج الاول

و id2 للنموذج 2

و id3 للنموذج 3

و هكذا ...

*

* ولكن يفضل ان يكون لكل نموذج جدول خاص به .

  •  

شكرا اخي على اهتمامك اريد شرحا بالتدقيق فلو قمت بالذي قلته كيف يمكن عمل سجل جديد في النموذج 1 وعند الانتقال الى النموذج 2 اجد انه هناك سجل جديد الذي اضفته من النموذج 1 وهكذا مع كل النماذج وفي حالة حذف من نموذج لسجل يجب الحذف على مستوى كل النماذج لنفس السجل اي جميع الحقول للسجل المراد حذفه

رابط هذا التعليق
شارك

طبقها

التوجيه السابع : حمل الملف المرفق

التوجيه الثالث عشر : عند طرح موضوع يفضل أن يكون هناك طلب واحد فقط إذ أن الموضوع الذي تكثر فيه الطلبات ينفر الأعضاء الذين يريدون تقديم يد المساعدة ، بأن تطرح الموضوع بطلب واحد حتى إذا تم على خير قم على الفور بطرح موضع جديد بطلب جديد وهكذا إلى أن يتم الأمر :wink2:

احد اخطائي ولم اجد اجابات الا بعد تطبيقها

  • Like 1
رابط هذا التعليق
شارك

13 ساعات مضت, waleed907 said:

طبقها

التوجيه السابع : حمل الملف المرفق

التوجيه الثالث عشر : عند طرح موضوع يفضل أن يكون هناك طلب واحد فقط إذ أن الموضوع الذي تكثر فيه الطلبات ينفر الأعضاء الذين يريدون تقديم يد المساعدة ، بأن تطرح الموضوع بطلب واحد حتى إذا تم على خير قم على الفور بطرح موضع جديد بطلب جديد وهكذا إلى أن يتم الأمر :wink2:

احد اخطائي ولم اجد اجابات الا بعد تطبيقها

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

رابط هذا التعليق
شارك

8 ساعات مضت, عبدالرحمن هاشم said:

مشاركة بجانب مشاركات إخواني الكرام

لماذا أخي كل هذه النماذج والجدول واحد؟

شكرا على الرد 

سارفق لك هذا العمل كي تتضح الامور

عمل برنامج إداري(مجموعة نماذج لسجل واحد من نفس الجدول.rar

رابط هذا التعليق
شارك

السلام عليكم

مبدأيا أخي الفاضل عليك بتغيير الكود الموجود في أزرار التنقل بين النماذج ليكون هكذا.. وذلك لكي يفتح النموذج على البيان الحالي

ونصيحة أخي الفاضل مادمت في مقتبل بناء برنامجك فاكتب مسميات الحقول والكائنات بالإنجليزية أو الفرانكو وبدون مسافات حتى لا تعاني من جراء ذلك عند كتابة الأكواد

   Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "نموذج2"
        stLinkCriteria = "[N°]=" & Me![N°]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
  DoCmd.Close acForm, "نموذج1", acSaveYes

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

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

Test.rar

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم :rol:

 

ولو اني مالي علاقة في السؤال ،

ولكن صاحب السؤال hmimou777 عمل هذا السؤال في 21/12/2015 ، والى اليوم لم يتفاعل مع المشاركات ، بينما الاجابات كلها صارت للأخ nabil09 :wavetowel:

 

هنيئا له :rol:

 

 

جعفر

  • Like 3
رابط هذا التعليق
شارك

1 دقيقه مضت, jjafferr said:

السلام عليكم :rol:

 

ولو اني مالي علاقة في السؤال ،

ولكن صاحب السؤال hmimou777 عمل هذا السؤال في 21/12/2015 ، والى اليوم لم يتفاعل مع المشاركات ، بينما الاجابات كلها صارت للأخ nabil09 :wavetowel:

 

هنيئا له :rol:

 

 

جعفر

ههههههههه عندك حق أخي جعفر.. والله انا افتكرت السائل هو الأخ نبيل ونسيت إن صاحب المشاركة  hmimou777 :biggrin:

الحمد لله المهم ان الإجابات داخل نطاق السؤال من البداية :rol:

  • Like 2
رابط هذا التعليق
شارك

7 ساعات مضت, عبدالرحمن هاشم said:

السلام عليكم

مبدأيا أخي الفاضل عليك بتغيير الكود الموجود في أزرار التنقل بين النماذج ليكون هكذا.. وذلك لكي يفتح النموذج على البيان الحالي

ونصيحة أخي الفاضل مادمت في مقتبل بناء برنامجك فاكتب مسميات الحقول والكائنات بالإنجليزية أو الفرانكو وبدون مسافات حتى لا تعاني من جراء ذلك عند كتابة الأكواد


   Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "نموذج2"
        stLinkCriteria = "[N°]=" & Me![N°]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
  DoCmd.Close acForm, "نموذج1", acSaveYes

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

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

Test.rar

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

7 ساعات مضت, jjafferr said:

السلام عليكم :rol:

 

ولو اني مالي علاقة في السؤال ،

ولكن صاحب السؤال hmimou777 عمل هذا السؤال في 21/12/2015 ، والى اليوم لم يتفاعل مع المشاركات ، بينما الاجابات كلها صارت للأخ nabil09 :wavetowel:

 

هنيئا له :rol:

 

 

جعفر

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

7 ساعات مضت, عبدالرحمن هاشم said:

ههههههههه عندك حق أخي جعفر.. والله انا افتكرت السائل هو الأخ نبيل ونسيت إن صاحب المشاركة  hmimou777 :biggrin:

الحمد لله المهم ان الإجابات داخل نطاق السؤال من البداية :rol:

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

تم تعديل بواسطه nabil09
خطا كتابي
رابط هذا التعليق
شارك

28 دقائق مضت, nabil09 said:

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

لا عليك أخي كلنا واحد المهم الإفادة بفضل الله

رابط هذا التعليق
شارك

في 2/1/2016 at 14:21, عبدالرحمن هاشم said:

الشكر لله أخي.. تحياتي

السلام عليكم :

 الاستاذ عبد الرحمن هاشم بخصوص ربط جدول بعدة نماذج وقعت في مشكلة (الخطأ مرفق Doc) وهي عند فتح النموذج2 والقيام بالحذف لسجلات ظهر لي في الرقم (جديد) ثم قمت بفتح النموذج3 ظهرت الرسالة المرفقة في الملف doc ، وعند ازالة  علامة التصفية من السجلات تحل المشكلة على ما يبدو لي ولا يمكن التنقل بين السجلات في النموذج  الا عند  ازالة عامل التصفية من السجلات (هل فيه كود يلغي عملية التصفية اليا والحفاظ على العمل الاول الربط بين النماذج) وشكرا

الملفات مرفقة

Doc.rar

Test.rar

تم تعديل بواسطه nabil09
اضافة
رابط هذا التعليق
شارك

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

ما رأيك أخي أن تستخدم هذا الكود في زر (حذف)؟

ملحوظة هامة.. يفضل تسمية الحقول والكائنات بالإنجليزية وليست بالعربية وبدون مسافات

 

 

If MsgBox("هل أنت متأكد من حذف العميل" & " : " & [Nom] & "  ", vbOKCancel + vbCritical, "تنبيه") = vbOK Then
DoCmd.SetWarnings False
 
DoCmd.RunCommand acCmdDeleteRecord
 DoCmd.OpenForm "نموذج1"
  DoCmd.Close acForm, "نموذج2", acSaveYes
Else: Exit Sub: End If

 

 

  • Like 1
رابط هذا التعليق
شارك

14 ساعات مضت, عبدالرحمن هاشم said:

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

ما رأيك أخي أن تستخدم هذا الكود في زر (حذف)؟

ملحوظة هامة.. يفضل تسمية الحقول والكائنات بالإنجليزية وليست بالعربية وبدون مسافات

 

 


If MsgBox("هل أنت متأكد من حذف العميل" & " : " & [Nom] & "  ", vbOKCancel + vbCritical, "تنبيه") = vbOK Then
DoCmd.SetWarnings False
 
DoCmd.RunCommand acCmdDeleteRecord
 DoCmd.OpenForm "نموذج1"
  DoCmd.Close acForm, "نموذج2", acSaveYes
Else: Exit Sub: End If

 

 

شكرا استاذ على الرد وهذا شيء جميل كذلك ، لكن المشكلة تكمن انه عند التنقل بين النماذج مثلا من النموذج1 الى النموذج2 وهنا لا استطيع التنقل بين السجلات الا عند ازالة عامل التصفية بين السجلات كي اقوم بالتنقل بين النماذج ( بصيغة اخرى عند البحث عن اي رقم من السجلات وافتح اي نموذج من النماذج الثلاثة فياخذني عند نفس الرقم ولو اردت الذهاب الى سجل اخر عند النموذج الذي فتح لي واقوم بفتح اخر ياخذني كذلك فالمشكلة عند التنقل بين النماذج لا يمكن التنقل بين السجلات في كل النماذج الا عند ازالة عامل التصفية بين السجلات)وعذرا على الاطالة

 

رابط هذا التعليق
شارك

في 21/12/2015 at 19:44, hmimou777 said:

لسلام عليكم اخواني الاعزاء

و بارك الله فيكم اساتذتي

عذرا على الاطالة لانني حاولت كثيرا رفع الملف لذلك اضطررت الى تغيير الفكرة

سؤالي هو هل من الممكن انه عند ادخال البيانات في الفورم الاول تثبت في الفورم الثاني على ان يزيد عدد السجلات

اليكم المرفق

بارك الله فيكم و مشكورين مسبقا

 

CAISSE.rar

تم تعديل بواسطه hmimou777
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information