فتح النموذج المحدد

[SAYEDaly]

DoCmd.OpenForm "Table1", , , "[id]=" & Me![List0].Column(1)
 DoCmd.OpenForm "Table11", , , "[id]=" & Me![List0].Column(1)
 DoCmd.OpenForm "Table12", , , "[id]=" & Me![List0].Column(1)

هذا   الكود يفتح  كل النماذج  عند الضغط  المزدوج علي مربع  القائمة

ما اريدة ان يفتح النموذج صاحب البيانات التى يتم الضغط عليها بمربع القائمة

 

Database101.rar

[عبد الفتاح كيرة]

سطر واحد فقط

 DoCmd.OpenForm "Table1", , , "[id]=" & Me![List0]

 

[SAYEDaly]

اخي الفاضل 

ما اريده  ان يفتح النموذج الذي يتوافر فيه الشرط 

وان لم يتوافر الشرط لم يفتح اي من النموذجين الاخرين

[mrastra]

الحل ان شاء الله

هو ععمل نموذج واحد فقط مبنى على جدول واحد فقط والجدول بيكون فىه كل البيانات ونعمل معيار عند فتح النموذج الفرعى ( اللى فية بيانات سيد، سلمى )

[SAYEDaly]

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

الحل ان شاء الله

هو ععمل نموذج واحد فقط مبنى على جدول واحد فقط والجدول بيكون فىه كل البيانات ونعمل معيار عند فتح النموذج الفرعى ( اللى فية بيانات سيد، سلمى )

شكرا  اخي 

من الواضح انك  لم تفهم طلبي

شكرا لك

الفكرة  هى استخدم مربع القائمة  للتعديل علي اي من النماذج الثلاث الموجودة  فكل نموذج له وظيفة معينة

فعند  الضغط  المزدوج  الي  اي من البيانات يفتح  النموذج الذي يحمل نفس البيانات وليس الثلاث نماذج دفعة واحدة

Database101.rar

تم تعديل أبريل 4, 2016 بواسطه SAYEDaly

[عبد الله قدور]

اضف عمود للجداول باسم النموذج الذي تريده ان يفتح بياناته ثم عند الفتح استخدم هذا العمود

 

 

[SAYEDaly]

21 دقائق مضت, عبد الله قدور said:

اضف عمود للجداول باسم النموذج الذي تريده ان يفتح بياناته ثم عند الفتح استخدم هذا العمود

 

 

شكرا لك  اخي الكريم

 

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

 

[عبد الله قدور]

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

شكرا لك  اخي الكريم

 

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

 

لم افهم ماذا تقصد هل تريد مني ان اطبق ما قلت انا على مرفقك ام ماذا

[SAYEDaly]

24 دقائق مضت, عبد الله قدور said:

لم افهم ماذا تقصد هل تريد مني ان اطبق ما قلت انا على مرفقك ام ماذا

اريد التطبيق برمجيا   

 

فعميلة اضافة عمود بالجدول بالنموذج  غير عملية

 

ارجو التطبيق على المثال المرفق

 

وشكرا لك

[عبد الله قدور]

السلام عليكم اخي الكريم

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

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

 

[SAYEDaly]

9 دقائق مضت, عبد الله قدور said:

السلام عليكم اخي الكريم

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

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

 

شكرا اخى عبدالله

 

ما يميز كل جدول هو Id

 

[عبد الله قدور]

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

سيصبح 21 - 22 - 23 وهنا اصبح مشابها الى الجدول الثالث

 

[SAYEDaly]

علي فرض ان id لكل جدول سيكون مختلف عن الجدول الاخر 

ماهو الكود الذي يفتح كل نموذج عندما يري id الذي يخصه

[عبد الله قدور]

حبيب الظاهر من الحوار انك مبتدئ اكسس

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

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

وسأعيد عليك بعضها

1- اضافة العمود

2- دمج الجداول الثلاثة بجدول واحد وتمييز البيانات بينهم بعمود جديد يضاف ايضا ان اردت

 

 

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

[SAYEDaly]

من حيث اني مبتدا اكسس  لم تصب هدفك 

الهدف من تلك العمليه ان لدي 

سند قيد يوميه 

سند قبض يوميه 

سند صرف نقدية 

سند صرف شيكات 

لكل سند مواصفاته الخاصه من حيث الشكل والموضوع 

وانا اريد عندما اضغط علي الحركه من مربع القائمه  يظهر السند الخاص بكل عمليه 

تسهيلا علي المستخدم من خلال النقر يقوم بالتعديل علي السند

اخيرا اترك لك المجال  للتعديل حيثما تشاء علي المرفق  

واترك لك عمليه التمييز 

في انتظار ردك 

السيد الجوهري

[عبد الله قدور]

السلام عليكم

اليك التعديل الذي قمت به

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

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

تحياتي لك

Database101.rar

[عبد الله قدور]

السلام عليكم

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

لكن يجب فك الضغط في القرص d حصرا

اطلع عليه وانا جاهز لاي استفسار عنه

 

fire.rar

[jjafferr]

السلام عليكم شباب 

 

وحيا الله السيد الجوهري ، ما عرفتك بإسمك الجديد 

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

 

اما انا فلا افهم في المحاسبة ، وانظر للبرنامج من جانب البرمجة فقط 

وقد يكون الحل هو:

Private Sub List0_DblClick(Cancel As Integer)
 
    If DCount("*", "Table1", "[id]=" & Me![List0].Column(1)) >  Then
        DoCmd.OpenForm "Table1", , , "[id]=" & Me![List0].Column(1)
 
    ElseIf DCount("*", "Table11", "[id]=" & Me![List0].Column(1)) >  Then
        DoCmd.OpenForm "Table11", , , "[id]=" & Me![List0].Column(1)
        
    ElseIf DCount("*", "Table12", "[id]=" & Me![List0].Column(1)) >  Then
        DoCmd.OpenForm "Table12", , , "[id]=" & Me![List0].Column(1)

    End If
    
End Sub

 

جعفر

[SAYEDaly]

2 دقائق مضت, jjafferr said:

السلام عليكم شباب 

 

وحيا الله السيد الجوهري ، ما عرفتك بإسمك الجديد 

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

 

اما انا فلا افهم في المحاسبة ، وانظر للبرنامج من جانب البرمجة فقط 

وقد يكون الحل هو:

Private Sub List0_DblClick(Cancel As Integer)
 
    If DCount("*", "Table1", "[id]=" & Me![List0].Column(1)) >  Then
        DoCmd.OpenForm "Table1", , , "[id]=" & Me![List0].Column(1)
 
    ElseIf DCount("*", "Table11", "[id]=" & Me![List0].Column(1)) >  Then
        DoCmd.OpenForm "Table11", , , "[id]=" & Me![List0].Column(1)
        
    ElseIf DCount("*", "Table12", "[id]=" & Me![List0].Column(1)) >  Then
        DoCmd.OpenForm "Table12", , , "[id]=" & Me![List0].Column(1)

    End If
    
End Sub

 

جعفر

استاذي   جعفر   

شكرا   لك  

قد  اصابت الهدف

واشكر اخي عبدالله  

 

حلان صائبان

[jjafferr]

2 دقائق مضت, SAYEDaly said:

استاذي   جعفر   

شكرا   لك  

قد  اصابت الهدف

كأنه كان اختبار لنا ، ونجحت فيه ، هيييييه 

 

حياك الله 

[SAYEDaly]

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

كأنه كان اختبار لنا ، ونجحت فيه ، هيييييه 

 

حياك الله 

مشكور  استاذ جعفر 

 

[كرار صبري _ أبو جنى]

17 دقائق مضت, jjafferr said:

وقد يكون الحل هو:

استاذ جعفر هذا بالضبط ما عملته انا لكن باضافة شرط ثاني لكن لم تعمل ...

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

[jjafferr]

حيا الله أخي كرار 

 

عملي مبني على:

4 ساعات مضت, SAYEDaly said:

علي فرض ان id لكل جدول سيكون مختلف عن الجدول الاخر 

ماهو الكود الذي يفتح كل نموذج عندما يري id الذي يخصه

 

جعفر

[كرار صبري _ أبو جنى]

 

يعني ( اين الخطأ في هذا الكود )

If DCount("*", "Table1", "[id]=" & Me![List0].Column(1) And "[namee]=" & Me![List0].Column(2)) > 0 Then

و اذا كان id متشابه للجداول الثلاثة ... 

تم تعديل أبريل 4, 2016 بواسطه كرار صبري _ أبو جنى

[كرار صبري _ أبو جنى]

26 دقائق مضت, jjafferr said:

حيا الله أخي كرار