نجوم المشاركات

السلام عليكم ورحمة الله وبركاته ... فيه سؤال للأخ الرهوي في الرابط التالي يسأل عن البحث داخل مربع التحرير والسرد نفسه بمجرد الكتابة http://www.officena.net/ib/topic/66565-كيف-ابحث-في-مربع-سرد-بجزء-من-الكلمة-؟/ بحثت وحاولت ولم افلح ... وبعد بحث طويل وجدت المطلوب .. في الحقيقة لا اعلم ان كان هناك طرق اخرى ... ولكن بالنسبة لي لم اجد الا هذه الطريقة القوا نظرة على المرفق ان شاء الله يفيدكم .. هذا رابط المرجع ... http://www.tek-tips.com/faqs.cfm?fid=6295 وهذا الكود الأساسي مع الشرح قبل التعديل Private Sub Combo0_Change() ' Function Description: ' Filter a combo box list as the user types, similarly to how application ' launchers like Colibri, AppRocket and LaunchBar opperate. ' e.g. if the list contains the names of U.S. Presidents, and ' the user types "gw," then the resulting SQL WHERE clause will ' look like "Name Like '*g*w*'" and the resulting list ' will include George Washington, George H. W. Bush and ' George W. Bush, among others. ' The order is preserved, so that typing "wg" creates an SQL WHERE ' clause like "Name Like '*w*g*'" and the resulting list would ' include George Washington but not the Bushes. ' This is accomplished by grabbing the text typed by the user in the ' combo box's edit field, creating an SQL SELECT statement from it, ' and finally applying that SQL statement to the combo box's ' .RowSource property. ' Form design settings: ' Set AutoExpand to No ' Column Count 3 ' Keyed on column 1 (record primary key) ' Showing column 2 (user-readable data) column 2 width > 0 ' First and Second column width=0 Dim strText, strFind ' Get the text that the user has typed into the combo box editable field. strText = Me.Combo0.Text ' If the user has typed something in, then filter the combobox ' list to limit the visible records to those that contain the ' typed letters. ' Otherwise (if the field is blank), the user has deleted whatever ' text they typed, so show the entire (unfiltered) list If Len(Trim(strText)) > 0 Then ' Show the list with only those items containing the typed ' letters. ' Create an SQL query string for the WHERE clause of the SQL ' SELECT statement. strFind = "Name Like '" For i = 1 To Len(Trim(strText)) If (Right(strFind, 1) = "*") Then ' When adding another character, remove the ' previous "*," otherwise you end up with ' "*g**w*" instead of "*g*w*." ' This has no apparent impact on the user, but ' ensures that the SQL looks as intended. strFind = Left(strFind, Len(strFind) - 1) End If strFind = strFind & "*" & Mid(strText, i, 1) & "*" Next strFind = strFind & "'" ' Create the full SQL SELECt string for the combo box's ' .RowSource property. strSQL = "SELECT tName.nameKey, tName.Name, SortOrder FROM tName Where " & _ strFind & " ORDER BY SortOrder;" '' NOTE: to remove the order requirement, such that typing "wg" '' and "gw" return the same results, the SQL WHERE clause needs '' to look like "Name Like '*w* AND *g*'." '' The code above should be changed as follows: ''For i = 1 To Len(Trim(strText)) '' strFind = strFind & "Name Like '*" & Mid(strText, i, 1) & "*' And " ''Next '' ''strSQL = "SELECT tName.nameKey, tName.Name, SortOrder from tblApps Where " & _ ''Left(strFind, Len(strFind) - 5) & " Order By SortOrder" ' Filter the combo list records using the new SQL statement. Me.Combo0.RowSource = strSQL Else ' Show the entire list. strSQL = "SELECT tName.nameKey, tName.Name, tName.SortOrder FROM tName ORDER BY tName.SortOrder; " Me.Combo0.RowSource = strSQL End If ' Make sure the combobox is open so the user ' can see the items available on list. Me.Combo0.Dropdown End Sub اتمنى من خبرائنا واعضاء المنتدى الكرام القاء نظرة على المرفق وعلى الكود كامل لو فيه اضافات او تعديلات . وبالتوفيق للجميع . Search_inside_Combo.rar

برنامج المخزون و الفواتير الشامل .... الاصدار الثالث اكسيل 2007 - اكسيل 2010 اليوم بمشيئة الله هو الانطلاق الرسمى لهذة النسخه وبعد انتهاء مرحلة التجربة التى دامت اكثر من شهرين خطوات استخدام البرنامج لأول مره تسجيل البيانات الجديدة داخل البرنامج لعمل فواتير البيع و الشراء و الحركات المالية 1- تسجيل اسماء مناديب البيع وهى خطوه مهمه مطلوبة لتسجيل اسم عميل جديد 2- تسجيل و ادخال العملاء (يتم ربط كل عميل باسم مندوب) 3- تسجيل و ادخال الموردين 4- تسجيل و ادخال اسماء لفئة الصنف وهى خطوه مهمه مطلوبة لتسجيل صنف جديد 5- تسجيل و ادخال الاصناف (ولابد من وجود فئة مدخله مسبقا لكى تستطيع ادخال الصنف) 6- ولا تنسى تسجيل رصيد اول المده فى شاشة البيانات و الجرد الجديد فى هذا الاصدار * واجهة تطبيقية كاملة * برنامج كامل مخزون فواتير ذمم عملاء وموردين واستحقاقات خلال الفترات الزمنية المختلفة * اختصارات سريعة لتنفيذ العمليات و التقارير بسرعة عالية * كشف حساب بطريقة جديدة بمعنى نفترض انه هناك عميل ما علية مديونية بفيمة 15000 فالبرنامج يعطيك كشف حساب تفصيلى للمديونية المستحقة خلال فترات 30 يوم 60 يوم 90 يوم و اكثر من 90 يوم فمثلا فى المثال السابق يكون استحقاق المديونية على حسب فواتير العميل مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 و فى اكثر من 90 يوم 2000 فيكون اجمالى المديونية هم ال 15000 لكن الاستحقاق فى فترات مختلفه وهذا الكشف يفيد كل من يتعامل بالاجل لمعرفة المستحق خلال الفترة التى يريدها وعندما يقوم العميل بسداد جزء من المستحق يتم خصمه من المديونية القديمه بمعنى ان العميل فى المثال السابق قد قام بسداد 1500 فيتم خصمها من ال 2000 وهى مديونية الاكثر من 90 فيصبح كشف حسابة كالتالى مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 وفى اكثر من 90 يوم 1500 فيكون اجمالى المديونية هم ال 13500 * شاشة فواتير جديده تحوى الكثير و الكثير من الاختصارات للعملاء و الاصناف وتوصلك الى عدة تقارير بضغطة زر واحده عرض معلومات عن الصنف و رصيده الحالى داخل المستودع و اخر سعر شراء بمجرد اختيارك للصنف وادخاله داخلة الفاتوره سهولة الغاء وتعديل الصنف داخل الفاتورة عن طريق الدبل كليك ذهاب مباشره الى تقرير صنف معين بمجرد اختياره وضغط تقرير الصنف اكتشف المزيد............ *شاشة لتقرير المديونية خلال الفترات الزمنية المختلفة يجب عليك قراءة ومراجعة شرح البرنامج جيدا حيث توجد العديد و العديد من الاختصارات السريعة التي تنقلك من شاشة الى اخرى بسرعه عالية ولتوفير وقتك داخل البرنامج. كما توفر لك سرعة الحصول على المعلومة المطلوبة. * لتحميل نسخة من الشرح وهى عبارة عن ملف تنفيذي اضغط على الرابط التالى شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) * او الذهاب الى موضوع شرح البرنامج و مناقشات مشرفى و اعضاء المنتدى داخل المنتدى على الرابط التالى شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) كما احببت ان اقدم مناقشة ونصائح مديري و اعضاء المنتدى للبرنامج لكى يستفيد منها الجميع وهذه المواضيع تم مناقشتها في موضوع شرح البرنامج داخل المنتدى انظر المشاركة التالية لمشاهدة النصائح و المناقشات حول البرنامج واخيرا اقدم لكم البرنامج حجم البرنامج 1.2 MB اختر اسم المستخدم المدير كلمة السر 123 محرر الاكواد 85211 لاتترد فى الاستفسار عن اى شيى داخل البرنامج ضع مشاركتك وسوف يتم الرد عليها كما يمكن مراسلتى على الايميل التالى amroomo@gmail.com اخيرا اتمنى ان يكون هذا البرنامج اضافة الى برامج المخزون و الفواتير وتغيير مسارها على الاكسيل فهذا العمل جديد بكل المقاييس فى افكاره التى اتمنى ان اكون قدمتها بصورة جيدة ويستقيد بها الجميع وَقُلْ رَبِّ زِدْنِي عِلْمًا ========================================================= المرفق المحدث الاخير: SIS 3.152 (Add City).rar

تضاف كعمود منفصل عن الجديدة هذا فقط لو اضيفت الى الجديدة سيتم تغيير كل حروف الياء المنقوطة الى ياء بدون نقط ولكن اخبرنى لماذا تريد عمل ذلك ؟

اذن تفضل اخى الكريم وحدة نمطية صغطها مخصوصا لك Function LastChar(last_input) If Nz(last_input, "") = "" Then Exit Function If Mid(last_input, Len(last_input), 1) = "ي" Then NewString = Left(last_input, Len(last_input) - 1) & "ى" LastChar = NewString Else LastChar = last_input End If End Function طبعا هتضيف الكود دا فى الاستعلام NewName: LastChar([OldName]) مع تغيير oldname الى اسم حقل الاسماء كما فى الصورة وهذه صورة من الحل شكرا لك

السلام عليكم اخى الكريم هل ممكن ان اتدخل بعد اذن اساتذتنا اخى السائل ما فهمته انك تريد استبدال اخر حرف فقط فى الجملة اذا كان ي يصبح ى بمعنى (مصطفي عيد مصطفي تصبح مصطفي عيد مصطفى فقط اخر كلمة فى الجملة صح كدا ؟؟

علامة التنصيص هذه تعنى فراغ ويمكنك بالفعل استخدامها فى اى معادلة

اخى الكريم الأمر طبعا فى غاية البساطة وهذه المعادلة تعنى انه اذا كانت الخلية رقم N5 من صفحة ادراج العلامات تساوى فراغ فبناءا عليه قيمة الخلية E5 وهى الخلية الذى قمت بكتابة المعادلة بها ايضا تساوى فراغ أما اذا كانت الخلية N5 من صفحة ادراج العلامات بها قيمة وليست خالية من البيانات فبالتالى تصبح الخليةE5 من الصفحة الأخرى مساوية لنفس هذه القيمة أرجو ان يكون الأمر واضح لحضرتك الأن

تقصد هذه العلامات "" فراغ بمعنى اذا كانت الخلية فارغة أما بالنسبة لهذه الخلية $R$2 يعنى هذا تثبيت الخلية R2 مهما تم سحب المعادلة سواء رأسى ام أفقى بارك الله فيك

عليكم السلام ما الحكمة انك عملت 3 جداول للتفاصيل بينما جدول واحد يقوم بالمهمة ؟

تفضل لك ما طلبت 1حركة العهدة.xlsx

بالتوفيق اخي

السلام عليكم اخي سمير .. الاكسس نفسه يعمل لك هذا ادرج مربع تحرير وسرد في النموذج المنضم وتابع المعالج التالي فالتالي سيصنع لك قائمة منسدلة تتنبأ بالنص

استاذي الفاضل ابو ياسين السلام عليكم ورحمة الله وبركاته نعم هذا هو المطلوب تماما بارك الله فيك وجعله الله جل وعلا في ميزان حسناتك يارب ربي يخليك ويحفظك يارب

جرب هذا الامر الاول If Not IsNull(Me.text1) Then Me.Frm1.Form!Qty_Total = Me.text1 End If الامر الثاني If Not IsNull(Me.text1) Then Me.Frm1.Form!Qty_Spece = Me.text1 End If

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

الحمد لله رب العالمين ........

السلام عليكم حياك الله يا أستاذ @سعيد صوابيا منارة المنتدى هذه طريقة أخرى أضعها بين أيديكم البحث.rar

السلام عليكم إخواني الأحباب في المنتدى والصرح العملاق أقدم لكم عملا رائعا بكل ما تحمل كل رائع من معنى ، وهو لأحد عباقرة الإكسيل الذين تعرفت عليهم وهو الأخ (جعفر طرباق ) من المغرب ولكن للأسف الشديد ليس له تواجد بيننا ... هذه الشخصية العبقرية .. شخصية فذة في مجال البرمجة والأكواد ... وكل أعماله التي رأيتها تعبر عن ذلك... وكم أتمنى أن يتواجد بيننا هنا .. !!! أعتذر عن المقدمة الطويلة عن صاحب العمل ، ولكني أكن له كل الحب والتقدير والاحترام .. في المرفق النطاق A1:B20 إذا تم إدخال قيمة أكبر من 1000 تنبض الخلية لمدة ثانيتين أرجو أن ينال الملف إعجابكم Pulsating Cell.rar