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

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

كلا بل للخبراء فما فوق في اول يوم الترقية انا انتبهت ذلك لكن الحمد للت تم الحل

بسم الله الرحمان الرحيم السلام عليكم تحياتي لجميع اعضاء اوفيسنا المحترمين الموضوع ليس بجدبد فقد تم التطرق له من قبل الاستاد القدير عبد الله باقشير جازاه الله خيرا و ان شاء الله نراه بينانا في المنتدى عن قريب لمتابعتي المنتدى في الاونة الاخيرة رئيت عدت تسائلات عن البحث والتعديل في الجداول و رئيت العديد من الحلول فحاولة الاجتهاد و الوصول الى ابسط و اسهل طريقة لعمل ذلك لذى فكرة في برمجة فورم مرن يكون ملائم لاي جدول مهما كان عدد صوفوفه او عدد اعمدته و لكي يتمكن اي عضو مهما كانت معرفته بالبرمجة ضعيفة من استعماله بسهولة ووصلة الى هذا الفورم الذي ارجو ان اكون قد وفقت في فكرته وان يستفيد منه الاغلبية يتميز هذا البرنامج يجلب الجدول المستهدف للعمل عليه و امكانية البحث داخله بدلالة اي عمود من اعمدته كما ان البحث يتميز بالبحث بأول حرف من الكمة او اي جزء منها حسب احتياجك وايضا تتميز عملية البحث بالسرعة الفائقة لاني اعتمدت على المصفوفات للوصول الى ذلك و تعرفون قوة المصفوفات و فعاليتعها اما بخصوص التكستبوكس و الكمبوبكس فتنشأ برمجيا على حسب عدد اعمدة الجدول نأتي الان الى طريقة استعمال الفورم هذا مع ملفك الخاص اولا اذهب الى محرر الاكواد تجد موديل باسم ModulePublic تجد في بدايته هذين الكودين او التعريفين ان صح التعبير Public Const sNomFeuil As String = "data" 'اسم ورقة العمل التي تحمل قاعدة البيانات Public Const sTableau As String = "tbData" ' اسم جدول قاعدة البيانات اضن ان الامر واضح تصع اسم الشيت الذي يحوي الجدول مكان عبارة "data" واسم الجدول نفسه مكان عبارة "tbData" ملاحظة : يجب ان تكون قاعدة البيانات عبارة عن جدول لايهم عدد اعمدة ولا صفوفه المهم ان يكون جدول باتباعك الخطوات السابقة تكون قد انتهيت من ربط جدولك مع الفورم ثانيا نأتي الى الاعمدة التي تحتاج قوائم في مثالنا لدين العمود 4 و العمود الاخير يحتاجون ان يمثلو في الفورم على شكر قوائم (كمبوبكس) لتنفيذ ذالك قم بأنشاء القوائم الازمة في اي شيت تريد و اعطي كل مدى قائمة اسم معين في المثال الخاص بنا سمينا نطاق قائمة الجنس ب list1 كما هو موصح في الصورة ثم اذهب الى رأس العمود المستهدف قم بادراج تعليق له و اكتب داخل التعليق نفس اسم نطاق القائمة و انتهى الامر ارجو ان اكون قد وفقت في الشرح وان يستفيد أكبر عدد من الاعضاء من هذا العمل ملاحضة: تنسيق عرض اعمد اليست يكون بتنسيقك ععرض اعمدة الجدول نفسه من الشيت و الفورم يكتشف العمود الذي يحوي تواريخ تلقائيا اي ملاحظة او استفسار او اضافة تحتاجونها للفورم لا تترددو في طلبي اهدي هذا العمل الى الغائبين الحاضرين في قلوبنا الاخ ضاحي الغريب و الاستاد عبد الله باقشير تحياتي للجميع UserForm Flexibles.rar

السلام عليكم هذه المرة مع ملف الشرح لأجل الأخ شيفان حمل ملف الشرح من هنا https://drive.google.com/file/d/0Bw4O...بهذا الملف جلب أسماء و مسارات الملفات لمجلد معين متضمنا المجلدات الفرعية لأعمق مستوى فتح موقع الملف – المجلد الموجود فيه-ز البحث فى أسماء الملفات و المجلدات فتح أى ملف من نفس الموضع داخل أكسيس تخزين أسماء الملفات فى جدول أكسيس يمكن تصديره و استخدامه كود استخلاص مسار المجلد من مسار الملف متضمنا شرحا لدالتى instr و instrrev و الفرق بينهما و كذلك شرح دالة left

شكرا لادارة الموقع شكرا لك استاذي @ابوخليل شكرا لكم جميعا

اعتقد حدث هذا بعد الترقية الاخيرة تم الرفع لادارة الموقع

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

فعلا حدث معي هذا بعد الترقية الاخيرة للموقع واعتقد ان هذا ليس للخبراء وانما لاجابة الصحيحة علي السؤال

اتفضل اليك كود لتعطيل ازرار الايمن والايسر Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 37 Or KeyCode = 39 Then KeyCode = 0 End If End Sub

السلام عليكم ضع هذا الكود في حدث عند التحميل: SendKeys "{End}" و هذا المرفق بعد التعديل Mando.rar

الاخ شوقى ربيع عودة حميدة وعمل ممتاز جاى بنشاط نمسك الخشب متابع لنشاطك من يوم عودتك بعثت النشاط والنور بالمنتدى تابعت هذا الفورم فى البداية عندما لاحظت وصولك بنشاط اضف اليه حذف سطر كامل لاكتمال الفورم الاخ ضاحى الغريب لاحظت فى الفترة البسيطة عودة عمالقة المنتدى بما انت فيهم فى انتظار الاخوة عبدالله ( باقشير و المجرب) حمد الله على السلامة عودة حميدة

تمام لكن هناك سۆال هل بيعمل تحديث للكل المواد للحد الرسوب او النجاح اي عندنا مواد اكسس حد النجاح فيه 40 درجة و حد النجاح للمادة اكسل هو 35 درجة هل تريد ان يتم التحديث لكل المواد او مادة واحدة على وحده اي مثلا ستختار اسم المادة من كومبوبوكس وستعطي درجة لاحد مربعات النصية وبعدين سيتم العملية

اسف انا نسیت ان الصق الرابط لكن انا عدلت المشاركتي تحياتي

استاتذتي وأخواني الكرام السلام عليكم ورحمة الله وبركاته منذ فترة طلب مني ألاخ / أبوادم علي البريد فـورم لنموذج فاتورة مبيعات باللغة الانجليزية مع الطباعة وبعد ان صممت النموذج أحببت ان اشارككم فيه عسي ان يكون فيه النفع وان يكون عام ليستفيد منه الباحث عن شيء شبيه النموذج مفتوح(( يمكن تطويعه لاي عمل اخر )) تنويه (( العلامة التجارية "الشعار"" والاسماء بالنموذج من محض الخيال وليس لها علاقة باي علامة تجارية حالية وذلك حفاظا علي الحقوق ولا تعتبر نوع من انواع الدعاية لاي جهة )) أحببت ان انوه فقط ربما تصادف اسم شركة قائمة. ( نموذج الفورم ) ------------------------- ----------------------------- والله ولي التوفيق نموذج فاتورة.rar

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

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

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

السلام عليكم ورحمة الله وبركاته بفضلكم وبفضل المبدعين ومساعدتكم جميعا استطعت تصميم عدة برامج للموظفين والتوظيف والمواصلات والدوام وغيرها وهذه المرة أطمع في مساعدتكم الكريمة في عمليات حسابية حيث أنني لم أستخدم الحسابات في الأكسس كثيرا **************************************************** هذا العمل خاص بي حيث أنني اريد عمل برنامج لمشروع استيراد البضائع تعطلت في مرحلة الحسابات في الاستعلام حيث انني اريد ان أعتمد على الاستعلام في الحسابات وليس النموذج وهدفي هو حساب التكلفة للبضائع مع سعر البيع والفائدة في النموذج المرفق تجدون مزيد من التفاصيل وارجو أن تكون واضحه (الملف أكسس 2010، في حال رغبتكم بغير 2010 أرجو تذكيري بطريقة تحويله) عظيم الشكر لكم

شكرا استاذى حمادة عمر تعديل ممتاز وهو المطلوب فعلا جزاك الله خيراً انت واستاذنا زيزو العجوز

يبدوا ان الموضوع تم حله انظر الى مشاركه استاذى الكبير @ابو خليل لقد تم تغييرها الى اللون الابيض الرسائل تعمل معى اخى

السلام عليكم ورحمة الله وبركاتة شكر اخي سليم جده تشكر عليه واوضحت لي الكثير من الامور وفكرتك الاخيره جيده وسوف اخذها بالحسبان للمناذج الاخرى اضفت هذه المعادلة واوفت بالمطلوب : =SUMPRODUCT($O$11:$O$67;--(LEFT($I$11:$I$67;2)*1=J$69))

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

اخي الحبيب ضاحي مذا عساي ان اقل بعد كلماتك هده ليس لي ان اقول اني احبكم في الله ايضا اخي ضاحي وكل الاساتذا الكرام الذين مرو بهذا السرح العظيم بحق هم فرسان كما وصفتهم اخي ضاحي لك مني كل الاحترام و التقدير وجازاك الله خير يكفيني مرورك استاذي الغالي مجدي يونس فمرورك يشرفني وشكرا لعبراتك الجميلة والمنتدى منور بنورك استاذي الغالي و بالاساتذا المحترمين اعضاء المنتدى بخصوص الحذف هو مدرج بالفعل يضهر اثناء التعديل لك مني فائق الاحترام و التقدير

الاخ العزيز دعنى اقتبس من كلاماتك السابقة فى هذه الازرار فى غيابكم دخلت للاكسل بالموضوع التالى فالحمد لله على السلامة ونرتاح شوية لمتابعة اعمالكم الرائعة

الاخ العزيز نورت المنتدى وباقى الزملاء نورو المنتدى فى انتظار اول فيديو

اضم صوتي للاخ / حسين فقد قمت بطرح نفس السؤال سابقا ولم اجد اجابة مع اني في اشد الحاجة له الاخ / حسين وانا نريد فقط نموذج بسيط به زر لسحب عدة اوراق (صور) من الاسكنر وحفظهم في اي مكان هذا المطلوب فقط ان كان الاخ حسين له بعض الاضافات واعتقد ان برنامج الاستاذ / جعفر ليس به سحب اكثر من صورة

شكرا لك استاذي ابوخليل بانتظار الرد من الادارة الموقع تحياتي

::: تفضل لا اعرف ان كنت فهمت طلبك اخيرا ... بالتوفيق new1_up.rar

السلام عليكم اهلا بك استاذى الحبيب لعلك بخير احنا هنا جايين على انواركم وحبكم ومودتكم

الفا شكر اخي co2002co في البداية احب اقول لك اني من خلال خبرتي في الاكسس لاحب البرامج الجاهزه لاني بعض الحيان يكون بها مشاكل ولا استطيع حلها ثانيا احب ان اصمم البرنامج علي طريقتي واتعب فيه لكي اعرف فيما بعد اطور فيه ولو حدثة مشكله به اعرف حلها اما بالناسبة للرابط الذي ارفقته فعلا به برنامج جيد ولاكن غير كامل طبعا انا هاخد منه كود معاينة الصوره وكود السحب من الاسكنر الحين نريد كود سحب عدة صور وكود سحب صورة واحدة

السلام عليكم الاخ الكريم / ابو يحيى بارك الله فيك بعد اذن الاخ والاستاذ الحبيب / زيزو العجوز .. جزاه الله خيرا وبنفس اكواده الراائعة قم باستبدال الكود الخاص بالنسخ بالكود التالي بزيادة سطر واحد فقط وهو Call SheetColors55 ليكون الكود كالتالي : Sub Copy_AddSheet() Dim x As String Sheet1.Unprotect Sheet1.Range("A2:E" & Sheet1.Range("B" & Rows.Count).End(xlUp).Row).Copy x = WorksheetFunction.Text(Now(), Format("dd-mm-yyyy")) For i = 1 To Sheets.Count If Sheets(i).Name = x Then Exit Sub If Sheets(i).Name <> "form" Then Sheets(i).Visible = xlSheetHidden End If Next i Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = x With ActiveSheet .Range("A2").PasteSpecial xlPasteValues .Range("A2").PasteSpecial xlPasteFormats .Range("A2").PasteSpecial xlPasteColumnWidths .DisplayRightToLeft = False .Range("A2").Select .Protect End With '=================================== Call SheetColors55 '=================================== Sheet1.Protect Application.CutCopyMode = False End Sub وذلك بعد اضافة الكود التالي في موديل ( هو نفس كود الاستاذ / زيزو العجوز .. والخاص بالتلوين ولكن بتعديل بسيط جدا ) ليصبح التلوين للشيت في نفس خطوة وامر النسخ بضغطة زر واحدة Sub SheetColors55() Dim x, y, z As Integer x = WorksheetFunction.RandBetween(0, 255) y = WorksheetFunction.RandBetween(0, 255) z = WorksheetFunction.RandBetween(0, 255) colr = VBA.RGB(x, y, z) On Error Resume Next ActiveSheet.Select ActiveSheet.Tab.Color = colr End Sub تقبلوا خالص تحياتي وجزاكم الله خيرا

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

استاذ قنديل الصياد جزاك الله خيرا ربنا يجعلك منارة للعلم .. معا سيكون افضل برنامج ان شاء الله وفي انتظار الدفعه القويه منكم ============= وربنا يرزقنا بالاستاذ ضاحي الغريب فهو عملاق في العلم ومحترم

اسال الله تعالي ان يرزقكم الخير كله وان يفرج كربكم كما فرجتم كربتي احبكم في الله

السلام عليكم تفضل هذا الكود يقوم بالعمل Me.x = Right(Me.t, Len(Me.t) - InStrRev(Me.t, "\")) حيث me.t مربع النص الذي به مسار الملف me.x مربع النص الذي سيظهر به اسم الملف Microsoft Office Access 2007 قاعدة بيانات جديد ‫‬.rar

أبشر أخي الكريم ... وللعلم أنه ليس العيب في محتويات القاعدة ..بمعنى أنني أنشئ ماكروا لغتح نموذج أخر وماكروا للعودة وماكروا لعرض التقرير ..فعند الضغط على الماكروات أكثر من 19 مرة تظهر هذه الرسالة وهكذا في كل قواعد الاكسس ,,وللعلم أنني استخدم الان أوفيس 2013 وقد قمت بأعمال كثيرة عليه دقيقة فقط أرفع لك نموذج من هذا أخي العزيز بارك الله فيك هذا النموذج يصل إليك أستخدم الازرار في النموذج للدخول والرجوع وعند ما تصل العدد 19 ستظهر لك تلك الرسالة استخدام الماكروات.rar

اخى (Hani) لاتحتاج للشكر هذا واجبنا ان نتعاون. بصراحة انا لااعرف كثيرا عن اكواد (VBA) لذا لم اتمكن ان اجد الحل لك .... تقبل اعتذاري

الف شكر لاساتذة شوقي ربيع و حمادة عمر الشرح واضح وان شاء الله تجزون باعمالكم هذه تحياتي

مشاركة مع اخوتي واحبتي افضل عملية بحث احتفظ بها (طريقة استاذنا جعفر ) Dim mySQL As String Dim mySQL1 As String Private Sub Form_Load() mySQL = "Select * From tbl_test" Me.ID = "" If Len(Me.ID & "") = 0 Then Me.sfmList.Form.RecordSource = mySQL End If End Sub Private Sub ID_Change() Dim fld As String Dim x() As String Dim A As String Dim i fld = "ID" fld = fld & " & ' ' & " & "fname" fld = fld & " & ' ' & " & "mname" fld = fld & " & ' ' & " & "lname" mySQL1 = "Select * From tbl_test" mySQL = mySQL1 & " Where " Me.ID.SetFocus A = Me.ID.Text A = Replace(A, "/", "|") A = Replace(A, "\", "|") A = Replace(A, " ", "|") A = Replace(A, "*", "|") x = Split(A, "|") If UBound(x) = 0 Then mySQL = mySQL & fld mySQL = mySQL & " Like '*" & x(i) & "*'" Else For i = LBound(x) To UBound(x) If i = 0 Then mySQL = mySQL & fld mySQL = mySQL & " Like '*" & x(i) & "*'" Else mySQL = mySQL & " AND " & fld mySQL = mySQL & " Like '*" & x(i) & "*'" End If Next i End If If Len(Me.ID.Text & "") = 0 Then mySQL = mySQL1 End If Me.sfmList.Form.RecordSource = mySQL End Sub افضل عملية بحث.rar

اود عمل برنامج او ملف لمساعدتي و كذلك رؤساء الاقسام للتنبيه بقرب انتهاء صلاحية بطاقة الموظف قبل شهر بحيث يتم تثبيته في الجهاز و يكون يعمل مع بدء تشغيل الجهاز و كذلك يقوم طباعة قائمة اوتوماتيكيا بالبطاقات التي بقي شهر على انتهائها يوميا الساعه الثامنه صباحا و كذلك تنبيه على سطح المكتب اسم الموظف الرقم الدائم القسم تاريخ الاصدار تاريخ الانتهاء

أخي الكريم الأمر يختلف من شخص لأخر و من بلد لأخر احد الاقتراحات هو ان تحسب قيمة الساعة بناء على راتبك الشهري او راتب شخص في نفس الخبرة ، و تضرب ذلك في نسبة 150% او 200% بحسب درجة تمكنك و تضرب ذلك في عدد الساعات المطلوبة لاعداد البرنامج هذا مجرد رأي ، و لا يعد قاعدة ، و أتمنى أن يفيدك من هم أكثر مني خبرة في هذا الامر و لا تنسي أن الأمر يخضع للعرض و الطلب ، و هذا في حالة اعداد برنامج لعميل بعينه اما اذا كان البرنامج عام و قابل للبيع العام فطبعا السعر سيقل بحسب عدد النسخ المتوقع بيعه أخيرا ، كما ذكرت سابقا هذا مجرد رأي ، قد يكون مناسبا لك و قد لا يكون

وعليكم السلام هذه بعض الاشياء التي يجب النظر فيها: يجب ان يكون البرنامج مقسما الى الجداول BE (وهذا الذي تضعه في الشبكة) ، والواجهة FE وفيه بقية الكائنات (ويكون على كمبيوترات المستخدمين) ، يجب ان تكون بعض الحقول مفهرسة في الجدول ، وهذه الحقول هي التي تستخدمها كمعيار في الاستعلام مثلا ، يجب ان تتأكد من الاستعلامات بالذات معمولة بطريقة لا تبطئ البرنامج والاكسس هنا يساعدك فيخبرك اين مكان المشكلة في برنامجك يجب ان تستخدم اسلاك بسرعة 1000 مثل cat 6 ، و Switch او Router بسرعة 1000 (Giga) . جعفر

اتفضل كما طلبت مع توجيه معاينة فاتورات بين تاريخين مع توجيه.rar

اتمنى من صاحب السؤال ان يشارك معنا هل وصلت للمطلوب ولا بعد مع تقدير

الشكر لله سبحانه وتعالى وحده الذى هدانا وما كنا لنهتدى لاولا ان هدانا الله عزوجل جزانا واياكم وكل اساتذتنا الكرام فى هذا الصرح الشامخ وكل اخواننا المسلمين خيرا اعمل استعلام واعمل معيار فتح البيانات بين تاريخين على حقل التاريخ بهذا السطر من الكود >=[From_Date] And <=[To_Date] وبعد كده كمل فى الاستعلام العملية الحسابية الخاصة بالطرح

كود جميل ورائع سلمت يمينك

السلام عليكم ورحمة الله وبركاته لقد طرح أخي معلمي الأستاذ // عبدالله باقشير (( حفظه الله)) نموذج فورم فاتورة بكود سهل بعد أذنه قمت بالتعديل الطفيف لتتناسب مع الاعمال التجارية جميع البيانات في الفورم من بيانات الشركة والبيانات التي تظهر اسفل الفورم يمكن تغيرها بسهولة من (( شيت 1)) وكذلك جميع البيانات الخاصة بالعميل - رقم الفاتورة التاريخ - الكمية - كود الصنف - اسم الصنف - سعر الوحدة - الاجمالي ) يمكن التغير عليها من الشيت الاول وذلك لسهولة تغيير البيانات واستخدمها بما يتناسب اغلبية الطلبات بالمنتدي الحبيب والشكر كل الشكر لاخي ومعلمنا الاستاذ // عبدالله باقشير علي طروحاته القيمة التي نتعلم منها جعل جميع اعماله في ميزان حسناته والله ولي التوفيق نموذج الفورم نموذج فاتورة مع الطباعة (E) علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=46761#entry280633 ولا تنسونا بدعوة بظهر الغيب بصلاح الحال فاااااااتورة خبورية 2.rar

تفضل شاهد الاستعلام Query1 قم بتشغيلة و سوف ترى تاريخ التقاعد طبعا تم استخدام داله DateAdd سن المعاش.zip

تفضل اخي الكريم الفورم أوفيس 2003 2003.rar

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