اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

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

اخوتي في الله

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

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

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

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

سؤال :

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

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

 

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

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

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

سؤال :

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

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

 

السلام عليكم

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

تحياتي

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

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

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

  • 3 weeks later...

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

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

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

888888.jpg

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

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

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

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

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

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