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

[co2002co]

المطلوب عند النقر المزدوج على اي حقل من الحقول ينتقل كامل الحقل بالاقسام 5 الى الفراغات بالنموذج الثاني , وعند اكتمال الحقول 3 تفتح نافذه جديده بالحقول 3 مره اخرى دون مسح المعلومات المدخله سابقا. على ان يحتوي النموذج على رقم اي عند فتح Form2 يكون رقمه بشكل تلقائي 1 وعند امتلاء الحقول 3 يفتح نفس النموذج لكن برقم 2 وهكذا

db.rar

[co2002co]

السلام عليكم 

هل من مجيب

[عبدالله المجرب]

لماذا في الفورم الأول 5 خانات وفي الثاني 3 فقط

[co2002co]

صباح الخير

هناك عدة اعمده

مثلا الاسم

العمر الخ

اريد ان انقل السطر كامل بجميع حقوله على النوذج الاخر

بحيث يكون النموذج رقم 2 محدد الخانات ب 4 سطور او 5 مثلا

وعند امتلاء الفراغات يفتح نموذج اخر بنفس الفراغات 

[jjafferr]

السلام عليكم 

 

أخي co2002co ، احد الاسباب اللي انا ما شاركت في سؤالك هو عدم وضوحه لي 

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

 

حينها ستجد الكثير من الشباب يهب لمساعدتك ان شاء الله 

 

 

جعفر

 

[co2002co]

من اي ناحية مو واضح

ارفقت ملف اكسس

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

عند الضغط المزدوج على اي اسم من القائمه يفتح لي نموذج اخر ينقل كل معلومات الموظف المختار ( بحيث يكون النموذج رقم 2 لا يقبل الا عدد معين من الموظفين لنقل 5 )

عند اكتمال 5 اسماء تفتح نافذه جديده لنفس النموذج رقم 2 ولكن رقم 2 واذا اكتمل نموذج رقم 2/نموذج 2 يفتح نموذج جديد ويكون رقمه 3/نموذج2

[jjafferr]

السلام عليكم co2002co 

 

ان شاء الله مفهومي لشرحك صحيح ، لأنه كان جدا صعب عليّ واخذ وقت طويل !!

 

تفضل:

المرفق فيه نموذجين فقط Form1 و Form2 ، وتقوم الوحدة النمطية بإنتاج نسخ من Form2 كلما ضغطت على احد سجلات مربع القائمة:

.

هاي الوحدة النمطية المسؤلة عن انتاج نسخ من النموذج:

Option Compare Database
Option Explicit
'Author:    Allen J Browne, July 2004
'Email:     allen@allenbrowne.com

Public clnClient As New Collection  'Instances of frmClient.

Function OpenAClient()
    'Purpose:   Open an independent instance of form frmClient.
    Dim frm As Form
    
    'Open a new instance, show it, and set a caption.
    Set frm = New Form_Form2
    frm.Visible = True
    frm.Caption = frm.Hwnd & ", opened " & Now()
    
    'Append it to our collection.
    clnClient.Add Item:=frm, Key:=CStr(frm.Hwnd)
    Set frm = Nothing
End Function

Function CloseAllClients()
    'Purpose: Close all instances in the clnClient collection.
    'Note: Leaves the copy opened directly from database window.
    Dim lngKt As Long
    Dim lngI As Long
    
    lngKt = clnClient.Count
    For lngI = 1 To lngKt
        clnClient.Remove 1
    Next
End Function

.

وهاي كود النموذج Form1:

Private Sub TopicList_AfterUpdate()

   
    Call OpenAClient
    
End Sub

.

وهاي كود النموذج Form2:

Private Sub Form_Load()

    Me.Text1 = Forms.Form1.TopicList.Column(0)
    Me.Text2 = Forms.Form1.TopicList.Column(1)
    Me.Text3 = Forms.Form1.TopicList.Column(2)
    Me.Text4 = Forms.Form1.TopicList.Column(3)
    Me.Text5 = Forms.Form1.TopicList.Column(4)
    
End Sub

 

 

جعفر

284.db.mdb.zip

[co2002co]

صباح الخير

اشكرك جزيل الشكر والعرفان

الى الان كلام جميل جدا

لكن ابي النموج رقم 2 يحتوي على كذا صف كما بالمثال نموذج رقم 3

على ان يتم اعطاء رقم لكل نموذج 1 , 2, 3

284.db.rar

[co2002co]

على ان يكون نموذج رقم 2 مربوط ب جدول لحفظ البيانات

[co2002co]

حاولت انقل الاكود ل نماذج اخرى لم تعمل

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

[jjafferr]

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

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

لكن ابي النموج رقم 2 يحتوي على كذا صف كما بالمثال نموذج رقم 3

284.db.rar

 

3 ساعات مضت, co2002co said:

على ان يكون نموذج رقم 2 مربوط ب جدول لحفظ البيانات

 

2 ساعات مضت, co2002co said:

حاولت انقل الاكود ل نماذج اخرى لم تعمل ، جريت اعملها على نماذج فارغه اقصد نموذج جديد لم تعمل

 

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

 

أخي عبدالله ذكر لك:

في 2/15/2016 at 12:56, عبدالله المجرب said:

لماذا في الفورم الأول 5 خانات وفي الثاني 3 فقط

 

وانا طلبت منك:

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

أخي co2002co ، احد الاسباب اللي انا ما شاركت في سؤالك هو عدم وضوحه لي 

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

حينها ستجد الكثير من الشباب يهب لمساعدتك ان شاء الله 

 

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

 

 

جعفر

[co2002co]

السلام

اربد ان اعمل نموذج بهذا الشكل

يكون من 

التخصصات

الاسماء

التفاصيل

 

الشرح

التخصصات تحتوي على تخصصات الموظفين ( مهندسين , فنيين , اداريين الخ,,,,,,, )

الاسماء تحتوي على اسماء الموظفين فقط من دون اعطاء اي تفاصيل

التفاصيل تخرج تفاصيل الموظف كامله

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

 

التخصص ( مهندس)

الاسماء ( يتوفر عشر اسماء لنفس التخصص ) وعند اختيار اسم الموظف

تظهر كامل التفاصيل بمربع التفاصيل

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

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

 

طبعا طبقت الكلام الي ارسلت لي سابقا وفعلا اشتغل معي

اخذ مني وقت على ما اتقنت الطريقه كوني مبتدء جدا

 

اشكرك مهندس جعفر وايضا الشكر موصول للا عبدالله

 

Employee هي التخصصات

supplier هي الاسماء

order هي التفاصيل

[jjafferr]

10 ساعات مضت, co2002co said:

السلام

اربد ان اعمل نموذج بهذا الشكل

يكون من 

التخصصات

الاسماء

التفاصيل

 

وعليكم السلام 

 

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

 

الموضوع يُغلق