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

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

  • تمت الإجابة
قام بنشر

اتفضل

استخدمت هذه الاكواد 
واحد بعد تحديث حقل الدول

والاخر في نموذج عند الحالي

Private Sub Combo6_AfterUpdate()
    Me.Combo8.Requery
    Me.Combo8 = ""
End Sub

Private Sub Form_Current()
    Me.Combo8.RowSource = "SELECT Countries.Country FROM Cities INNER JOIN Countries ON Cities.ID = Countries.ID WHERE (((Cities.City) = [Forms]![Form]![Combo6])) GROUP BY Countries.Country;"

End Sub

اليك قاعدتك بعد تعديل

City.rar

قام بنشر
23 دقائق مضت, النهر العطشان said:

هذا بالضبط ما احتاج اليه

اخي الكريم نهر العطشان

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

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