البحث في الموقع

بناء على طلب احد الاخوة شرح تفصيلى لدالة: DLookup Function الوصف-Description : ترجع الدالة DLookup قيمة حقل واحد إذا لم يكن هناك سجل يلبي المعايير أو إذا كان المجال لا يحتوي على أي سجلات، ترجع الدالة DLookup القيمة Null إذا كان هناك أكثر من حقل ترجع الدالة DLookup التكرار الأول لذلك يجب تحديد معايير تضمن أن تكون قيمة الحقل التي يتم إرجاعها بواسطة الدالة DLookup فريدة قد تحتاج إلى استخدام قيمة مفتاح أساسي للمعايير او قيمة فريدة للتأكد من أن الدالة DLookup ترجع قيمة فريدة بناء الجملة الدالة-Syntax DLookup : يختلف بناء الجملة الخاص بوظيفة DLookup الشكل العام البسيط لبناء الجملة يكون كالتالى DLookup("FieldName" , "TableName") وعندما نريد بناء جملة ترجع قيمة حقل من جدول بناء على قيمة محددة لابد ان يحتوى بناء الجملة على معيار الشكل العام لبناء الجملة كالتالى DLookup("FieldName" , "TableName" , "Criteria") و لابد من الاخذ فى الاعتبار انه سوف نعتمد فى بناء جملة DLookup من هذا النوع الذى يعتمد على معيار على نوع البيانات المستخدم فى هذا المعيار انواع البيانات المستخدمة فى المعيار هى لا تخرج عن الثلاث انواع الاتية (رقم - نص - تاريخ - Numeric - String - Date ) ودائما تلك الجزئية هى مصدر القلق والخطأ والتساؤل ولكى نبسطها DLookup("FieldName" , "TableName" , "Criteria = n") '|Numeric DLookup("FieldName" , "TableName" , "Criteria = 'S'") '|String DLookup("FieldName" , "TableName" , "Criteria = #D#") '|Date بكل بساطه فى بناء الجملة الرئيسي عندما نستخدم معيار يحتوى على نوع بيانات من النوع رقم فقط تم وضع علامة = بعد Criteria ثم الرقم بدون اى اضافات عندما نستخدم معيار يحتوى على نوع بيانات من النوع نص فقط تم وضع علامة = بعد Criteria ثم النص بين علامتين تنصيص مفرده ' عندما نستخدم معيار يحتوى على نوع بيانات من النوع تاريخ فقط تم وضع علامة = بعد Criteria ثم التاريخ بين علامتين هاش # يستخدم ما سبق عندما نكتب قيمة المعيار بطريقة مباشرة وعندما يكون المعيار مستمد من عنصر موجود اما حقل فى استعلام او مربع نص فى نموذج يكون بناء الجملة كالأتى DLookup("FieldName" , "TableName" , "Criteria =" & [ObjectName]) '|Numeric DLookup("FieldName" , "TableName" , "Criteria ='" & [ObjectName] & "'") '|String DLookup("FieldName" , "TableName" , "Criteria =#" & [ObjectName] & "#") '|Date ملاحظة هامة عند التعامل مع التاريخ لابد ان يكون تنسيق التاريخ فى المعيار على الطريقة الأمريكية mm/dd/yyyy -------------------------------------------------------------------------------------------------------------------------- وعندما يكون المعيار مستمد من متغير يتم اسناد قيمة المعيار اليه داخل محرر الأكواد يكون بناء الجملة كالأتى ولا ننسى عند التعامل مع التاريخ لابد ان يكون تنسيق التاريخ فى المعيار على الطريقة الأمريكية mm/dd/yyyy Dim MyVariable As String Dim stLinkCriteria As String MyVariable = 1 stLinkCriteria = "[FldCriteria]=" & MyVariable '|Numeric 'MyVariable = "Mahmoud" 'stLinkCriteria = "[FldCriteria] ='" & MyVariable & "'" '|String 'MyVariable = "03/01/1982" 'stLinkCriteria = "[FldCriteria] =#" & MyVariable & "#" '|Date stLinkCriteria = "[FldCriteria]=" & MyVariable '|Numeric 'stLinkCriteria = "[FldCriteria] ='" & MyVariable & "'" '|String 'stLinkCriteria ="[FldCriteria] =#" & MyVariable & "#" '|Date DLookup("FieldName", "TableName", stLinkCriteria) مثال متقدم : احضار بيانات دفعة واحدة من اكثر من حقل عن طريق المصفوفات من خلال الـ DLookup على طريقة استاذى الجليل ومعلمى القدير و والدى الجبيب الاستاذ @jjafferr Dim strDLookupFlds As String Dim stLinkCriteria As String Dim MyVariable As String Dim Arry() As String Dim ChosFld As String MyVariable = 1 stLinkCriteria = "[FldCriteria]=" & MyVariable '|Numeric 'MyVariable = "Mahmoud" 'stLinkCriteria = "[FldCriteria] ='" & MyVariable & "'" '|String 'MyVariable = "03/01/1982" 'stLinkCriteria = "[FldCriteria] =#" & MyVariable & "#" '|Date strDLookupFlds = DLookup("[Fld1] & '|' & [Fld2] & '|' & [Fld3] & '|' & [Fld4] & '|' & [Fld5] & '|' & [Fld6] & '|' & [Fld7] & '|' & [Fld8]& '|' & [Fld9]", "[tblName]", stLinkCriteria) Arry = Split(strDLookupFlds, "|") Debug.Print strDLookupFlds ChosFld = Arry(0) Debug.Print ChosFld 'Arry(0) = Fld1 'Arry(1) = Fld2 'Arry(2) = Fld3 'Arry(3) = Fld4 'Arry(4) = Fld5 'Arry(5) = Fld6 'Arry(6) = Fld7 'Arry(7) = Fld8 'Arry(8) = Fld9

السلام عليكم ورحمة الله تعالى وبركاته ------------------------------------------------- ما سوف اتناوله هنا ان شاء الله فى موضوعى هذا طرح الاكواد بالامثلة التى تساعد المبتدئين امثالى مع الشرح المبسط قدر الامكان لاننى مع الحكمة التى تقول " القارئ كالحالب والسامع كالشارب " وهنا انا احورها لتصبح صانع المثال كالحالب ومحلل المثال كالشارب فصانع المثال يفكر ويتعب ويبذل الجهد لصنع مثاله ام المحلل الذى يتلقاه جاهزا يستمتع بتناول الافكار والتعلم ببساطة دون عناء ولاننى لا اقوى ولا استطيع الحفظ ولكن بمجرد فهمى للكود داخل مثال عملى تتسارع وتتوالى الافكار بعكس التعامل النظرى اقدم هذه السلسلة من الطروحات البسيطة بالطريقةالتى احب انا اتناولها وخى بالنسبة لى اكثر طريقة تساعدنى على الفهم اولا سلسلة دوال التعامل مع النصوص وبما اننا سنتناول تلك الدوال اولا لنتعلم الاعلان عن المتغير النصى داخل محرر الاكواد String: هو متغير نصي يتسع هذا المتغير النصي إلى 2 جيجا بايت و كل حرف يشغل 1 بايت نحجر متغير لاسناد قيم نصيه له نسمى هذا المتغير مثلا >------>> StrJudy يتم الاعلان عنه كلاتى Dim StrJudy As String وبعد ذلك نعطي قيمة لهذا المتغير باسناد نص - اما مباشرة بكتابة النص مباشرة داخل محرر الاكواد - او من خلال >------>> اى عنصر فى النموذج | او حتى من خلال الدالة >------>> DLookup لجلب القيمة النصية من جدول او استعلام وهنا للتبسيط استخدم الطريقة المباشرة StrJudy = "I Love officena.net" وحتى نستطيع تجربة هذا عمليا نقوم بانشاء زر امر فى نموذج ونضع الكود الاتى فى حدث عند النقر 1 Dim StrJudy As String 2 StrJudy = "I Love officena.net" 3 MsgBox (StrJudy) --المثـــــــــــ(العمــــــــــــــــلى)ـــــــــــــــال----------------------- 001 - اعلان عن متغير نصي.mdb

شرح باسلوب مبسط جداً جداً قيمة خصم 50 % على الصنف الشتوي و30 % على الصنف الصيفي شرح مبسط جداً لحساب قيمة الخصم بالنسبة لنوع الصنف

اخواني الاعزاء لدي 3 ملفات لبعض الاساتذة الكبار في المنتدى بكل واحد معادلة عندما احاول نقل المعادلة الى ملف اخر تتنقل معي لكن ما تكون نشطة او مفعله اما الملف الثالث ففيه كود لإزالة المسافات كيف استطيع ان اغير الخلية بدلا مثلا من A اجعلها C او اي خلية اخرى او بمعنى اخر شرح مبسط لكل ملف عن كيفية عمل هذة المعادلات وكيف استطيع نقلها الى ملف اخر ولكم جزيل الشكر معادلة ازالة المسافات ما عدا المسافات المفردة.rar معادلة فصل الحروف عن الارقام2.rar دالة لاخذ الارقام من خلية دون الحروف.rar