أبو آدم

جزيت خيرا على ردك الطيب لكل امرئ فيما يحاول مذهب ، الاخ علي يعرض وجهة نظره ، وانت تعرض ما ترى ونحن نضرب الرأي بالرأي وكل يتبع ما يشاء جزيتم خيرا .............

اخي العزيز جهد طيب ونتمنى لك التوفيق اقترح الانتقال الى الاصدار 2003 أو التعامل مع الاصدارين حيث ان معظم الاخوة يتعاملون مع الاصدار 2003 في حال التخصيص للاصدار 2007 ، توضيح ذلك للعموم

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

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

اذا كان ارفاق قاعدتك ممكناً فارفقها وساطبق لك الفكرة مع الشرح الوافي ، بإذن الله ............

جزيت خيراً وبارك الله لك وبك

ماذا تريد بالضبط up MyNumber = Int(99.8) ' Returns 100 dowm MyNumber = Fix(99.8) ' Returns 99

المرفق ... بدل الرابط الخارجي ........... كيفية التقريب.rar

أخي العزيز بواسطة الوحدة النمطية أنشأنا جدول فيه جميع الارقام غير المستخدمة فاصبحت الارقام المستخدمة معروفة والارقام غير المستخدمة في الجدول الجديد ما الغاية من استخدام الوحدة النمطية من خلال الاستعلام ؟؟ ........

كلامي واضح أبا حفص المسألة ليست تحفظاً أو رفض نقاش ، فلو لم أكن راغباً بالنقاش لما تصدرت للمسألة وضعت أمامي غاية لتحقيق حاجة وحققتها كما حللت المسألة اذا كان التطبيق لم يحقق حاجتك ، فحدد لي مطلوبك وأنا جاهز ............

أداء جيد جزيت خيراً وسّع مستوى التعقيد لتتضح الأمور أكثر ويكون الأداء أشمل وإلى الأمام .....

أنار الله دربنا ودربك وفتح علينا وعليك

أخي ابو حفص بدون لماذا عملت ولماذا لم تعمل ، فهذه اسئلة لا مجال لها هنا ، هذا تحليل نفذته بما رأيت في المسألة من حاجات ، فإذا كانت لك حاجات أخرى ، فلا بأس في الأمر وصدرنا يتسع لك طلب نستطيع تنفيذه. ملاحظتك الثانية لم أفهما جيداً ، اذا سمحت وضح الغاية التي تريد الوصول اليها ، حتى نتمكن من تنفيذها لك ، إن شاء الله

vbCrLf_Chr(13) & Chr(10) .rar

وعند الحاجة لتفاصيل لكل حادثة حديث ، ولكل مقام مقال ..... ............

جرب ووافني بالنتيجة ..... والله من وراء القصد ... وهو حسبي ............ NA_MissingSeq.rar

منقول للفائدة Module.rar

vbCrLf .rar

الكود جاهز لدي تقريباً ، يبقى التدقيق والتجربة والضبط بانتظار الانتهاء منه وسارفقه لكم ....والله المستعان ...

لا يمكن الاستغناء عنها حال الحاجة لها ، او تحقق لزومها ولتوضيح فعلها الواضح ، لسهولة التفريق بين تقطيع أقسام الجملة وتقطيع النتائج أفضل أن نستخدمها في صندوق رساله Private Sub cmdMessageBox_Click() MsgBox "Your logon credentials have been checked " & _ "and your application has been approved: Congratulations!" & _ vbCrLf & "Before leaving, would you like " & _ "to take our survey survey now?", _ vbYesNoCancel Or vbQuestion Or vbDefaultButton2, _ "Crofton Circle of Friends - Membership Application" End Sub وبالتطبيق نجد أننا نقطع إجزاء الجملة لاسطر لتحقيق السهولة في التعرف و القراءة باستخدام & و _ أما تقطيع أسطر النتائج حسب الاختيار فلا يتم الا بها

إخوتي الفضلاء أتابع الموضوع منذ فترة وراقني ما دار بينكم من حوارات أظنها طيبة ، ولكنني رأيت أن أزعجكم بتدخلي بحواركم الطيب لنصل للنتائج المرجوة ، بالطريقة المناسبة أن شاء الله. ودعونا هنا نحلل الحاجة التي نبحث عنها بابسط الطرق الأخ عبدالله و الأخ ابو حفص ، يتحدثون عن النماذج و التقارير ، للتعامل مع النتائج وهذه أبسط الطرق للتعامل معها هي الجداول النتائج قد تكون كبيرة جداً ومتشعبة ، أي أن مواقع الثغرات متقطعة ، و العدد كبير وقد يصل الرقم أو الأرقام المهملة للآلاف مثلاً وإختصاراً للوقت نعرض الروتين التالي: قراءة الأرقام من الجدول المستهدف وتحديد بدايات الثغرات ونهاياته انشاء جدول مؤقت ونقل مناطق التسلسل الفارغة له ( من ... الى) إنشاء جدول جديد نقوم بتخزين الارقام المتسلسلة فيه 1 2 3 ... 77 ، 78 ، 79 ، 80 .... وهكذا هنا يكون لدينا جدول متاح للاستخدام متى نشاء في نموذج أو تقرير وطبعاً سيكون الأمر - ولا بد - مرنأً وبسيطاً ومتاحاً سنبداً بالتطبيق ونوافيكم بالنتيجة ، قريباً بإذن الله .....................

وعليكم السلام ورحمة الله وبركاته هي VBA keyword كلمة معرفة لدى vba ، تستخدم لتقطيع أقسام الجملة (الكود) مع زميلتها ( _ ) underscore character ، لتحقيق سهولة القراءة والتعرف على أجزاء الكود و نتائجه ............

لتحديد مصدر الصف لمربع التحرير و السرد بجملة SQL ضمن VBA وفي حدث عند التحميل للنموذج Me.cboTitle.RowSource = "SELECT Employees.Title " & vbCrLf & _ "FROM Employees " & vbCrLf & _ "GROUP BY Employees.Title " & vbCrLf & _ "ORDER BY Employees.Title;" ...........

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

Greater than or equal حيث يكون تاريخ ميلاد الموظف في جدول الموظفين أكبر من أو يساوي 19/2/1952 WHERE Employees.BirthDate >= #2/19/1952# WHERE Employees.BirthDate <= #2/19/1952# Less than or equal حيث يكون تاريخ ميلاد الموظف في جدول الموظفين أقل من أو يساوي 19/2/1952