بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
781 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو طاهر الوليدي
-
بارك الله فيكم جميعا وفي تفاعلكم
-
على سبيل المثال : من يصمم مربع تحرير سرد (قائمة منسدله ) بالشروط التالية : 1- ان تكون جاهزة مثلها مثل مربع التحرير والسرد حق اكسس 2- ان يكون لها خصائص ومعايير 3- ان تقوم بعمل البحث العشوائي مثل جوجل عربي انجليزي ارقام حروف حرف حرفا مع اعطاء مقترحات . 4- ان تقبل الربط على اي نموذج اكسس دون الربط برمجيا لا ماكرو ولا مودل ولا برمجة بمعنى انها مبرمجة جاهزة ماتحتاج سوى عملية الربط بالحقول بنفس طريقة كمبوكس اكسس الاصل ماهو الفارق بينها وبين كمبوا اكسس انها تعمل عملية البحث وفرز جميع الاسماء المتشاهبة بالحروف ظهور لست بنفس طريقة جوجل بضبط
-
سؤال : حول المثال كيف اجعل عند الانتهاء من التحميل ولوصول 100% يفتح لي نموذج ثاني
-
مطلوب تقرير حسب ما يتم اختياره من الحقول في الجدول
طاهر الوليدي replied to عربي عالمي's topic in قسم الأكسيس Access
بس في عيب واحد انه يكشف كلمة السر في حقول المستخدمين -
البحث بالنص.rar
-
اخواني هذا كود من احد المواقع يقول صاحبه انه يقوم بالبحث حرفا حرفا ويجمع الاسماء في القائمة المتشابهة نفس طريقة جوجل بصورة دقيقة ولكن لم استطع تطبيقة يرسله للمنتدى للاستفاده منه الجميع Option Compare Database Option Explicit '************* Code Start ************** ' This code was originally written by OpenGate Software ' It is not to be altered or distributed, ' except as part of an application. ' You are free to use it in any application, ' provided the copyright notice is left unchanged. ' OpenGate Software http://www.opengatesw.net Function fLiveSearch(ctlSearchBox As TextBox, ctlFilter As Control, _ strFullSQL As String, strFilteredSQL As String, Optional ctlCountLabel As Control) '================================================================================== ' THIS FUNCTION ALLOWS YOU TO FILTER A COMBO BOX OR LIST BOX AS THE USER TYPES ' ALL YOU NEED TO DO IS PASS IN THE CONTROL REFERENCE TO THE SEARCH BOX ON YOUR ' FORM, THE LISTBOX/COMBO BOX YOU WANT TO FILTER, AND WHAT THE FULL AND FILTERED ' SQL (ROWSOURCE) SHOULD BE. ' ' ctlSearchBox THE TEXTBOX THE USER TYPES IN TO SEARCH ' ' ctlFilter THE LISTBOX OR COMBOBOX ON THE FORM YOU WANT TO FILTER ' ' strFullSQL THE FULL ROWSOURCE YOU WANT TO DISPLAY AS A DEFAULT IF NO ' RESULTS ARE RETURNED ' ' strFilteredSQL THE FILTERED ROWSOURCE FOR THE LISTBOX/COMBOBOX; FOR EXAMPLE ' YOU WOULD WANT TO USE '...like ""*" & me.txtsearch.value & "*""" ' TO FILTER THE RESULTS BASED ON THE USER'S SEARCH INPUT ' ' ctlCountLabel (OPTIONAL) THE LABEL ON YOUR FORM WHERE YOU WANT TO DISPLAY THE ' COUNT OF ROWS DISPLAYED IN THE LISTBOX/COMBOBOX AS THEY SEARCH '===================================================================================== 'ADVANCED PARAMETERS - Change these constants to change the behaviour of the search Const iSensitivity = 1 'Set to the number of characters the user must enter before the search starts Const blnEmptyOnNoMatch = True 'Set to true if you want nothing to appear if nothing matches their search 10 On Error GoTo err_handle 'restore the cursor to where they left off 20 ctlSearchBox.SetFocus 30 ctlSearchBox.SelStart = Len(ctlSearchBox.Value) + 1 40 If ctlSearchBox.Value <> "" Then 'Only fire if they've input more than two characters (otherwise it's wasteful) 50 If Len(ctlSearchBox.Value) > iSensitivity Then 60 ctlFilter.RowSource = strFilteredSQL 70 If ctlFilter.ListCount > 0 Then 80 ctlSearchBox.SetFocus 90 ctlSearchBox.SelStart = Len(ctlSearchBox.Value) + 1 100 Else 110 If blnEmptyOnNoMatch = True Then 120 ctlFilter.RowSource = "" 130 Else 140 ctlFilter.RowSource = strFullSQL 150 End If 160 End If 170 Else 180 ctlFilter.RowSource = strFullSQL 190 End If 200 Else 210 ctlFilter.RowSource = strFullSQL 220 End If 'if there is a count label, then update it 230 If IsMissing(ctlCountLabel) = False Then 240 ctlCountLabel.Caption = "Displaying " & Format(ctlFilter.ListCount - 1, "#,##0") & " records" 250 End If 260 Exit Function err_handle: 270 Select Case Err.Number Case 91 'no ctlCountLabel 'exit 280 Case 94 'null string 'exit 290 Case Else 300 MsgBox "An unexpected error has occurred: " & vbCrLf & Err.Description & _ vbCrLf & "Error " & Err.Number & vbCrLf & "Line: " & Erl 310 End Select End Function ' ***** Code End ******
-
هذا مثال طبقه حول كلمة التفقيط فى اكسس.rar
-
ظهور إسم المستخدم الذي قام بالدخول في form عند إضافة سجل
طاهر الوليدي replied to mohamed elalfy's topic in قسم الأكسيس Access
هاني مجدي محمد استاذي الذي اسلوبه ممتميز واوجه له اشكر وبارك الله فيه -
المرفق جداول ولايوجد تقارير من اجل نعرف نشخص مكان المشكله
-
البحث من خلال اكثر من مربع نحرير وسرد في اكثر من حقل
طاهر الوليدي replied to AbedElkader's topic in قسم الأكسيس Access
الله يبارك في استاذنا جعفر له بصمات متميزه في المنتدى اماانا مجرد مبتدا -
الملف المرفق معطوب ممكن ارساله مرة ثانية اخي العزيز ابو ياسين
-
من له طريقة استدعاء قيمة من حقل محسوب في اي نموذج في النظام او تقرير او جدول من اجل تكون رصيد اول المده واخر المده استدعاء قيمة حقل محسوب من النموذج الى التقارير عن طريق المودل او الماكروا هذا الشرح المهندس/ ايهاب عثمان في منتدى الفريق العربي ولكن المرفق عندهم الصفحة غير موجودة نتكلم عن ثلاثة أنواع من الأرصدة 1 – الرصيد التراكمي وهو الرصيد الذي يتم تسجيله في نهاية كل سطر(عملية) محاسبية وهو عبارة عن الرصيد السابق + الحركة المدينة – الحركة الدائنة ويتم تسجيله في عامود واحد باشارة موجبة للرصيد المدين أو سالبة للرصيد الدائن . وطريقة العرض هذه تستخدم في كشوف الحركة مثل كشف حركة الخزينة 2 – الرصيد الأفقي يكون العرض هنا ببساطة شديدة لاسم الحساب ورصيد اول المدة (المدين في عامود والدائن في عامود) يليه الحركة ثم رصيد اخر المدة بنفس الطريقة والكل في صف واحد وهذه الطريقة هي الخاصة بموازين المراجعة.. 3 – الرصيد الرأسي وهو عبارة عن رصيد افتتاحي في بداية التقرير تليه الحركات المدينة والدائنة ة(كل حركة في سجل) وفي نهاية التقرير يظهر رصيد نهاية المدة وتستخدم هذه الطريقة في إعداد كشوف الحساب -------------------------- حول المثال المرفق : 1 - هنا تجدون المثال الخاص بهذا الدرس نموذج الافتتاح اسمه Arg كل ما يطلبه منك هو تاريخ بداية وتاريخ نهاية الفترة المطلوب عرض ارصدتها (يفضل ان تكتب التاريخ من 1/1/2008 إلى 31/12/2008) و اسم الحساب الذي تريد عرض نتائجه وبأسفل النموذج تجدون جدولا لاختيار نوع الرصيد (الأنواع الثلاثة المذكورة أعلاه) ووسيلة العرض سواء على شكل استعلام أو تقرير.. ولاحظوا أن النوع الثاني من الأرصدة (ميزان المراجعة) لا يتطلب بالضرورة تحديد اسم الحساب فلو تركت مكان اسم الحساب فارغاًً لظهرت لك جميع الحسابات بعد ذلك ليس إلا أن تضغط على الزر الموجود أسفل النموذج لتظهر لك النتائج. 2 – قد يثور تساؤل ما الفائدة من عرض الأرصدة في شكل استعلام ثم في شكل تقرير أليس الاستعلام هو مصدر التقرير؟؟ أقول لك نعم ولكن الية العمل وطريقة الحساب للأرصدة تختلف في الاستعلام عنها في التقرير وإذا لاحظت ستجد أن الصيغ الموجودة بالحقول المحسوبة داخل الاستعلامات تختلف عنها في مربعات النصوص داخل التقارير. 3 – بيانات المثال كلها موجودة في جدول بسيط للغاية اسمه Data حقوله هي Docid - نوع (ترقيم تلقائي) لإدخال رقم المستند ... ولاحظ أن نوع الحقل هنا هو الفكرة الاساسية لحساب الارصدة داخل الاستعلامات Acc - نوع (نص) لإدخال إسم الحساب DocDt – نوع (تاريخ/وقت) لإدخال تاريخ المستند Db – نوع (عملة) لإدخال المبالغ المدينة Cr – نوع (عملة) لإدخال المبالغ الدائنة وبيانات الجدول بسيطة جداً عبارة عن مجموعة من الحركات الدائنة والمدينة خلال عامي 2007 و 2008 لحسابات أسماؤها a – b- c هذا هو الجدول الوحيد لدينا وعليه بنيت كافة الاستعلامات والتقارير --------------------------- الاستعلامات والتقارير بنيتها وآليات عملها : طبقاً لأنواع الارصدة الموجودة بالمثال سنرتب حديثنا عن الاستعلامات والتقارير الخاصة بكل نوع 1 - رصيد تراكمي (كشف حركة) أ - الاستعلام : اسمه AccBl بنيناه كما يلي: *** انشأنا ثلاثة استعلامات متتابعة الاول op01 مبني على الجدول Data وظيفته تحديد كافة الممعاملات السابقة لتاريخ بداية الفترة المختارة عن طريق المعيار الخاص بحقل التاريخ DocDt وكان المعيار هو <[Forms]![Arg]![a] حيث A هو اسم مربع النص الذي ستكتب فيه تاريخ البداية داخل النموذج وايضا تحديد اسم الحساب عن طريق معيار تحت حقل اسم الحساب وكان المعيار هو <[Forms]![Arg]![acc] حيث acc هو اسم مربع النص الذي ستختار فيه اسم الحساب داخل النموذج بناءً على هذه الاستعلام انشأنا استعلام OP02 لتجميع الحركات المدينة والدائنة SumOfDb و SumOfCr ثم الاستعلام Op03 لايجاد المحصلة (مدينة أو دائنة) ووضعه في مكانه الصحيح الان معك الاستعلامop03 لعرض الرصيد الافتتاحي للحساب الذي اخترته عن الفترة محل البحث. *** الحركة خلال الفترة جمعناها في الاستعلام Tr المبني على جدولنا وذلك لنفس اسم الحساب (بنفس المعيار السابق) وللفترة من بداية الفترة الى نهايتها عن طريق المعيار الخاص بحقل التاريخ DocDt وكان المعيار هو <Between [Forms]![Arg]![a] And [Forms]![Arg]! حيث A هو اسم مربع النص الذي ستكتب فيه تاريخ البداية و B هو اسم مربع النص الذي ستكتب فيه تاريخ الالنهاية داخل النموذج وهذا الاستعلام لعرض الحركات حركة حركة ولا تجميع فيه. ***الان نريد ضم الشتات ولم الشمل الرصيد الافتتاحي يليه سجلات الحركة عليك باستعلام التوحيد الأقوى من الحديد :lol: اسمه all يجمع بين الاستعلامين op03 و Tr *** لا يتبقى لنا سوى تحديد الرصيد التراكمي وسيكون ذلك في حقل محسوب داخل استعلامنا النهائي الذي هو Accbl اسم الحقل المحسوب هو Accum صيخته هي التالية Accum: [db]-[cr]+nz(DSum("[db]","all","[docid]<" & [docid])-DSum("[cr]","all","[docid]<" & [docid]),0) يحتاج لبعض الشرح ؟؟؟ حسناً.. ماهو الرصيد التراكمي ؟ اليس هو صافي الحركة الحالية(مدين-دائن) مضاف اليها مجموع الحركات السابقة (مدين-دائن) باشارتها طبعاً هذا ماتكونت منه الصيغة السابقة [db]-[cr] هي صافي او ناتج طرح الحركة الحالية المدينة - الدائنة DSum("[db]","all","[docid]<" & [docid]) هنا مجموع الحقل المدين Db من الاستعلام ِall بدالة التجميع الشرطي Dsum والشرط ان يكون رقم المستند(الحقل Docid) في الاستعلام all اقل منه في استعلامنا الحالي ومن هنا نشأت أهمية اختيار نوع الترقيم التلقائي لهذا الحقل عند تصميم الجدول وبنفس االدالة ونفس الشرط قمنا بتجميع الحركات الدائنة السابقة DSum("[cr]","all","[docid]<" & [docid]) ولا يخفى عليكم دور الدالة Nz في حذف القيم الفارغة والمساعدة في اظهار النتائج سليمةً الان اتضح محتوى الحقل المحسوب المدين الحالي-الدائن الحالي+اجمالي المدين السابق - اجمالي الدائن السابق مع حذف اي قيم فارغة. والنتيجة النهائية ان يظهر الرصيد التراكمي المدين باشارة موجبة وان كان دائنا ظهر باشارة سالبة (بين قوسين) ب - التقرير : بنفس الاسم الذي يحمله الاستعلام : AccBl مصدره هو الاستعلام Accbl وتميز بشيئين عن الاستعلام السابق *** مربع النص الاصفر الموجود بأعلى التقرير فيه شوية شغل ومعادلات :D *** الرصيد التراكمي معروض ببساطة شديدة عبارة عن ناتج طرح المدين - الدائن مع تشغيل خاصية التجميع لمربع النص بمعنى Running Sum = Yes 2 - رصيد افقي (ميزان مراجعة) أ - الاستعلام : إسمه Trial_b03 منتديات الفريق العربي للبرمجة بنيناه هكذا *** استعلام تحديد اسمه Trial_b01 مبني عل الجدول Data وظيقته الفصل بين محصلة الحركات(المدينة و الدائنة) قبل فترة البحث عن تلك الواقعة في نطاق الفترة رصيد البداية : op: IIf([docdt]<forms!arg!a,[db]-[cr],0) دالة الشرط IIF تختبر التاريخ بالحقل Docid فان كان سابقا للتاريخ الموجود بمربع النص A بالنموذج Arg ارجعت ناتج طرح الحقل Db - الحقل Cr والا ارجعت 0 كل ذلك بمعيار لتحديد رقم الحساب تحت الحقل Acc ويتميز هذا المعيار بانك لو تركت مربع اسم الحساب بالنموذج فارغاً ظهرت لك كل الحسابات والمعيار هو الاتي Like "*" & [forms]![arg]![acc] & "*" ومعيار اخر تحت حقل التاريخ Docid لمنع ظهور اي تاريخ يجاوز فترة النهاية الموجودة بالمربع b في النموذج Arg والمعيار هو <=[forms]![arg]! *** استعلام اخر اسمه Trial_b02 ميني على السابق وظيفته التجميع للحقلين المحسوبين السابقين بدلالة اسم الحساب *** اخيرا استعلامنا النهائي Trial_b03 مبني عن السابق وظيفته فصل المدين عن الدائن في رصيد البداية والحركة وكذلك حساب الرصيد النهائي بنفس فكرة الدالة iif ب - التقرير : إسمه TrialB مبني على الاستعلام Trial_b03 يتميز بالاتي : *** الحركات في المربع الاصفر :P *** التجميع في نهاية التقرير 3 - رصيد رأسي (كشف حساب) أ - الاستعلام : إسمه Virticl02 مبني على استعلام التوحيد Virtical01 الذي يجمع بين اربعة استعلامات *** op03 تكلمنا عنه سابقا *** Tr تكلمنا عنه ايضأ *** Lines مجموعة من الخطوط بشكل "======" *** استعلام end03 وهو لعرض الرصيد في نهاية الكشف وقد نشأ من تتابع الاسنعلامين end01 و end02 بنفس فكرة تتابع الاستعلاماتOp01 -op02- op 03 ب - التقرير : اسمه VirticalRp مبني على الاستعلام Tr يتميز التقرير ببساطته ولثد تم حساب الارصدة في البداية والختام بصيغ داخل التقرير نفسه بالدوال iif وDsum المرتبطة بالاستعلام OP03 .................................... في انتظار استفساراتكم ودعواتكم
-
وين المرفق من اجلل نفهمك مرفق مثال لتحضير يحتاج الى تطبيق مربعات الصح مع ايام الشهر تظهر وتختفي طبعا مرتبات حكومية المرتبات.rar
-
البحث من خلال اكثر من مربع نحرير وسرد في اكثر من حقل
طاهر الوليدي replied to AbedElkader's topic in قسم الأكسيس Access
بس سؤال اذا ممكن ... هل يمكن الاستعاضة عن الثلاث مربعات بمربع واحد فقط يؤدي وظيفة الثلاث مربعات معاً ؟ هذا مثال رائع اكتب اي شي في الجدول اسم رقم مرض اي شي يطلع مباشرتا مشاركة من احد الاخوة لاذكر اسمه الان Database3.rar -
اخواني الاعزاء طرحت عليكم عدة اسئلة في موظوع واحد وهو ايجاد الرصيد الشهر السابق اخر المدة وتحويله الى الشهر الحالي اول المدة ولم يستطيع احد اعطائي الجواب ولكن اذا تم وضع استدعاء الاجمالي التراكمي في التقارير واكذلاك النمواذج هل يمكنني ذلك وكيف صندوق.rar
-
البحث من خلال اكثر من مربع نحرير وسرد في اكثر من حقل
طاهر الوليدي replied to AbedElkader's topic in قسم الأكسيس Access
ممكن تتبع نفس الخطوات في الماكروا -
افكار ممتازة للمنتدى الجميل ضع سؤلك في الباب المخصص
طاهر الوليدي replied to طاهر الوليدي's topic in قسم الأكسيس Access
شكرا على الاهتمام استاذي الفاضل واسمكم على اسم ابي محمد اخوكم طاهر الوليدي