فورم للبحث واظهار النتائج والتعديل من ملف لملف اخر

[عمرو ضياء الدين]

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

اخوتي في الله

برجاء الافادة كيف يمكنني عمل فورم بحث واظهار النتائج والتعديل عليها وترحيل تلك التعديلات في الملف الاول Q1 والذي يقوم باستدعاء هذه البيانات من الملف الثاني Q2 وذلك بواسطة رقم القيد (( مثلا يتم كتابة رقم القيد في تيكست بوكس الخاص بفورم البحث والتعديل فيتم استدعاء البيانات المرحلة من قبل ومن ثم يتم التعديل عليها وترحيلها )) وشكرا لكم اخوتي الكرام

البحث والتعديل من ملف لملف اخر.rar

[عمرو ضياء الدين]

للرفع

[طلعت محمد حسن]

الرجاء رفع الملف مرة اخرى لانة لا يقبل التحميل

[عمرو ضياء الدين]

شكرا لسيادتكم علي الملاحظة

الملف مرة اخري

البحث والتعديل من ملف لملف اخر.rar

[أبو عبد النور]

السلام عليكم،

سؤال :

ما فائدة استدعاء البيانات من الملف Q2 الى الملف Q1 لتعديلها واعادة ترحيلها الى الملف Q2 ثانية ؟

لماذا لا تقم بالامر على الملف Q2 فقط ؟

 

[عمرو ضياء الدين]

12 ساعات مضت, أبو عبد النور said:

السلام عليكم،

سؤال :

ما فائدة استدعاء البيانات من الملف Q2 الى الملف Q1 لتعديلها واعادة ترحيلها الى الملف Q2 ثانية ؟

لماذا لا تقم بالامر على الملف Q2 فقط ؟

 

السلام عليكم

اخي الكريم المقصود هو استدعاء البيانات من ملف Q2 للفورم وليس للملف Q1

تحياتي

[أبو عبد النور]

كان قصدي لماذا لا تجعل زر الفورم على Q2 مباشرة ؟

[عمرو ضياء الدين]

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

[أبو عبد النور]

السلام عليكم،

اليك هذه المحاولة.

 

جلب وتسجيل بيانات من مصنف مغلق_ن001.rar

[عمرو ضياء الدين]

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

استاذي القدير ابو عبد النور

جزاك الله كل خير ونفعك بعلمك وزادك من فضله

هذا هو المطلوب

[عمرو ضياء الدين]

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

واعتذر منك ان اثقلت عليك

جزاك الله خيرا

[أبو عبد النور]

السلام عليكم،

استعمل التعديل التالي :

Private Sub CmbNum_Change()

    If Rs.RecordCount > 0 Then
        Rs.MoveFirst
        For i = 0 To Me.CmbNum.ListCount - 1
            If CInt(Me.CmbNum.Value) = Rs(0).Value Then
                Me.TextBox2.Value = Rs(1).Value    '.Fields(1)
                Me.TextBox3.Value = Rs.Fields(2)
                Me.TextBox4.Value = Rs.Fields(3)
                Me.TextBox5.Value = Rs.Fields(4)
            End If
            Rs.MoveNext
        Next
    Else
        MsgBox "áíÓ åäÇß ÊÓÌíáÇÊ", vbCritical + vbOKOnly
        Exit Sub
    End If
    Me.CmdTarheel.Enabled = True
End Sub

 

جلب وتسجيل بيانات من مصنف مغلق_ن002.rar