البحث في الموقع
Showing results for tags 'مربعات تحرير'.
تم العثور علي 1 نتيجه
-
تطبيق لمربعات التحرير و السرد المتتالية أو المتزامنة أحببت أن أشاطركم الفوائد الطيبة الموجودة به وأورد منها في عجالة وللتوضيح والدلالة تحديد مصدر الصف لمربع التحرير و السرد بإستخدام جمل 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
