من مكتبتي ... تطبيق لمربعات التحرير و السرد المتتالية أو المتزامنة

[أبو آدم]

تطبيق لمربعات التحرير و السرد المتتالية أو المتزامنة

أحببت أن أشاطركم الفوائد الطيبة الموجودة به

وأورد منها في عجالة وللتوضيح والدلالة

• تحديد مصدر الصف لمربع التحرير و السرد بإستخدام جمل SQL
  
  

  
  Me.cboPhylumID.RowSource = "SELECT tblPhylum.PhylumID, tblPhylum.PhylumName FROM tblPhylum " & _
  
  	 " WHERE KingdomID = " & Nz(Me.cboKingdomID) & _
  
  	 " ORDER BY PhylumName"
  
  

  • تمكين وعدم تمكين مربعات التحرير و السرد عبر الكود وحسب قيم المربعات المتتالية

  
  
  Me.cboPhylumID.Enabled = (Not IsNull(Me.cboKingdomID))
  
    Me.cboClassID.Enabled = (Not IsNull(Me.cboPhylumID))
  
    Me.cboOrderID.Enabled = (Not IsNull(Me.cboClassID))
  
    Me.cboFamilyID.Enabled = (Not IsNull(Me.cboOrderID))
  
    Me.cboGenusID.Enabled = (Not IsNull(Me.cboFamilyID))
  
  

  • [*]تصفية مربع القائمة إستناداً لخيارات مربعات التحرير و السرد

Dim strRS As String


  ' Filter the list box appropriately based on the combo box selection(s)

  strRS = "SELECT qryTaxonomy.SpeciesName, qryTaxonomy.Description FROM qryTaxonomy"

  If Not IsNull(Me.cboGenusID) Then

	strRS = strRS & " WHERE GenusID = " & Me.cboGenusID

  ElseIf Not IsNull(Me.cboFamilyID) Then

	strRS = strRS & " WHERE FamilyID = " & Me.cboFamilyID

  ElseIf Not IsNull(Me.cboOrderID) Then

	strRS = strRS & " WHERE OrderID = " & Me.cboOrderID

  ElseIf Not IsNull(Me.cboClassID) Then

	strRS = strRS & " WHERE ClassID = " & Me.cboClassID

  ElseIf Not IsNull(Me.cboPhylumID) Then

	strRS = strRS & " WHERE PhylumID = " & Me.cboPhylumID

  ElseIf Not IsNull(Me.cboKingdomID) Then

	strRS = strRS & " WHERE KingdomID = " & Me.cboKingdomID

  End If


  strRS = strRS & " ORDER BY qryTaxonomy.Description;"


  Me.lstSpeciesID.RowSource = strRS


  Me.lstSpeciesID.Requery

والتطبيق خير معين على الفهم و التجريب

والله من وراء القصد ... وهو حسبي

...........

CascadingComboBoxes.zip

[ابوخليل]

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

[شيبة المشعور]

جزاك الله عنا خير الجزاء وجعلها في ميزان حسناتك .

[sultanfaraj]

شكرا, ادامك الله

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

يرجى الحل او التوجيه

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

تم تعديل أكتوبر 27, 2013 بواسطه sultanfaraj

[حمادة عمر]

[إبراهيم عطا]

جزاك الله كل خير كم ساعدنا هذا الإجراء!

[عبدالرحمن هاشم]

ربنا يجزيك كل خير انا فعلا كنت محتاج افهم تطبيقات مربع السرد والتحرير.. جاري التعلم

[أبو آدم]

حياكم الله

اثلج صدري ثناؤكم

 

............