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

بناء على مقترح الأخ الكريم محمد البرناوي بإمكان المستخدم الآن تحديد عدة صور وتحويلها إلى pdf مع نقل جميع الصور إلى مجلد البرنامج آلياً . PDFv20.2.zip

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

أقدم لكم هدية متواضعة عبارة عن برنامج لتحويل الصور إلى pdf بطريقة سهلة وبدون برامج خارجية مع الشكر لكل من استفدت من أكوادهم . PDF.zip

بالضبط 🙂 . . .

وعليكم السلام-فقط يمكنك استخدام هذه المعادلة وتم اضافة قائمة منسدلة لسهولة اختيار الإسم بالإنجليزية ولحسن عمل المعادلة لضمان مطابقة الإسم =IFERROR(INDEX(Sheet1!$B:$B,MATCH($B2,Sheet1!$C:$C,0)),"") move arabic name1.xlsx

اخواني الكرام بصراحة لاغنى عن الاكسس مهما ابحرتوا في لغات البرمجة الاخرى فهي اسهل واكثر متعة من غيرها كما ان تطبيقاتها مطلوبة الى يومنا هذا خصوصاً لمن يتعامل مع مؤسسات حكومية سيعرف قصدي اما اللغات الأخرى مثل php فهي لمن يبحث عن برنامج يمكن الدخول اليه من اي مكان في العالم يعني باختصار موقع الكتروني او منظومة تسجيل بيانات تتطلب الدخول اليها من عدة جهات موزعة جغرافياً في عدة مدن .. هذا النوع من البرمجة يتطلب مهارات في السيكيورتي عالية وذلك لانك معرض للإختراقات من اي مكان في العالم تحياتي

أحسنت استاذ صالح هدية بالطبع مقبولة وعمل ممتاز جعله الله فى ميزان حسناتك

عليكم السلام جرب تبحث داخل المنتدى يوجد الكثير حول تحريك الصور وهذا واحد منها وهذا مثال من مكتبتي سرعة_سيارات.mdb

أستاذى الكريم-حاول دائما توضيح المطلوب بكل دقة فهل عمود التاريخ المطلوب الإستعلام من خلاله هو تاريخ Start أى العمود D وان كان الأمر هكذا فكان عليك محاولة عمل هذا بنفسك كما تم بالملف السابق حتى تتمكن من تعلم هذا ,فالهدف الأساسى من المنتدى التعلم دائما وليس تقديم الحل الجاهز تفضل هذه المرة ايضا لك ما طلبت , واتمنى محاولتك تتم بنجاح بالإعتماد على نفسك فى المرات والطلبات القادمة استعلام2.xlsm

تفضل -بعد اذن استاذنا حسين -لك ما طلبت بمعادلات المصفوفة 1استعلام.xlsm

وعليكم السلام ,وهذا يتم بهذه الطريقة بالضغط على : File ثم Option ثم بعد ذلك Advanced ثم الضغط على Edit Custom Lists ثم بعد ذلك عليك بلصق القائمة التى تريدها ثم الضغط على Add ثم ok ورقة عمل Microsoft Excel جديد __.xlsx

تابع الدورة هنا

أخي @ابوآمنة ماشاء الله تبارك الله ...... هدية جميلة .... ولكن اقتراح تطوير البرنامج بحيث يعمل على صور المجلد بالاضافة الى الاختيار ( بعض الصور وليس الجميع )

أخي الكريم .... تابع الشرح ونفذ .... حسب طلبك كل 22 سجل برقم معين ...... اليس هذا هو المطلوب ؟؟؟؟؟؟

كود ممتاز استاذ حسين لكن اسمح لي بهذه الملاحظة ،اذ لا لزوم للحلقات التكرارية لتعبئة الكومبوبوكس هذا الكود يفي بالغرض Option Explicit Private Sub ComboBox1_Change() End Sub Private Sub CommandButton1_Click() Dim lr, ctr As Object Dim sh As Worksheet Set sh = Sheets("المستفيد") lr = sh.Cells(Rows.Count, "a").End(xlUp).Row + 1 If TextBox1 = "" Or ComboBox1 = "" Or ComboBox2 = "" Or TextBox2 = "" Then _ MsgBox "عفوا يجب تعبئة جميع الحقول", vbInformation: Exit Sub With sh.Range("A" & lr) .Value = TextBox1.Value .Offset(, 1) = ComboBox1.Value .Offset(, 2) = ComboBox2.Value .Offset(, 3) = TextBox2.Value End With 'يجب التوضيح هنا ربما يكون لدينا 50 كومبوبوكس و تكس بوكس فهل نذكرها كلها؟ For Each ctr In Me.Controls If TypeName(ctr) = "TextBox" Or _ TypeName(ctr) = "ComboBox" Then ctr.Value = vbNullString End If Next End Sub '++++++++++++++++++++++++++++++++++++++++++++++++++ Private Sub UserForm_Initialize() Dim sh As Worksheet Dim sh2 As Worksheet Set sh2 = Sheets("الشهر") Set sh = Sheets("المستفيد") ComboBox1.List = sh.Range("H5", sh.Range("H4").End(4)).Value ComboBox2.List = sh2.Range("A2", sh2.Range("A1").End(4)).Value End Sub

السلام عليكم اخى @صلاح بلعلا مشاركه مع اخوانى @ابوآمنة و @rey360 جزاهم الله خيرا تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق القائمة والمربع.rar

أجذر من كذبة نيسان البيضاء في هذا الملف Poisson D'April.xlsm

اخى سليم انت مبدع استاذى اشكرك على الاضافة (ظهور اسماء الشيتات ) جزاك الله خيرا

للحفاظ على الترتيب افعل كما في الصورة

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

تعديل بسيط على الماكرو ليظهر اسماء الشيتات Sub Uniq_items_With_Sh_Names() Dim R As Worksheet, Sw As Worksheet Dim Nme$, Rg As Range Dim cop_rg As Range Dim dic As Object, I%, m% Dim arr(), ky, t% Set R = Sheets("report") Set dic = CreateObject("Scripting.Dictionary") Set cop_rg = Range("B4").CurrentRegion Nme = R.Range("C2") If cop_rg.Rows.Count > 1 Then cop_rg.Offset(1).ClearContents End If m = 5 For Each Sw In Sheets If Sw.Name <> R.Name Then Set Rg = Sw.Range("G5", Sw.Range("G4").End(4)) For I = 1 To Rg.Rows.Count If Rg.Cells(I).Offset(, 2) = Nme Then dic(Rg.Cells(I).Value) = _ Rg.Cells(I).Offset(, 2).Value End If Next If dic.Count = 0 Then GoTo Next_Sheet For Each ky In dic.keys ReDim Preserve arr(t) If t = 0 Then arr(t) = dic(ky) & ": Sheet " & Sw.Name Else arr(t) = dic(ky) End If t = t + 1 Next With R.Cells(m, 2).Resize(dic.Count) .Value = Application.Transpose(dic.keys) .Offset(, 1) = Application.Transpose(arr) m = m + dic.Count: dic.RemoveAll: Erase arr: t = 0 End With End If Next_Sheet: Next Sw End Sub الملف من جديد Unique_item_1.xlsm

- اين مكان هذا المجلد ، في الشبكة ؟ - كيف ترتيبه ، نريد صورة منه علشان نعرف المجلد والمجلدات اللي داخلة وطريقة ترتيبهم ، - اي نموذج نستعمل علشان نوصل للمطلوب ؟ رجاء ، اعمل مثال كامل (سواء بالوورد او الاكسل او بصور) على العمل اللي تريد ، وهذا المثال يجب ان يكون من بيانات برنامجك ، حتى نعرف كيف نعمل مثله 🙂 رجاء اعطنا معلومات اكثر وبالتفصيل الممل ، وإلا ، فانا ممكن اعمل لك مثال من عندي ، وعليك تطبيقه على برنامجك ، ولن اساعدك في تطبيقه 🙂 جعفر

وعليكم السلام 🙂 الظاهر المشكلة في المكتبات !! افتح VBE > Tools > References واعمل صورة لشاشة المكتبات وارفقها هنا . الموقعين يخبرانا المكتبات الصحيحة لكل نسخة من الاكسس ، ولكن الظاهر ان نسخة الاوفيس 365 عملت تغيير في الريجستري ، فلهذا السبب يجب عليك تعديل المكتبات يدويا لبرنامجك 🙂 https://www.access-diva.com/d5.html و http://allenbrowne.com/ser-38.html جعفر

وعليكم السلام-اذا كان المطلوب كما قلت فتكون المعادلة كالتالى بالخلية I4 =IFERROR((Y4/X4)*H4,"") New ورقة عمل Microsoft Excel (2).xlsx

يصبح الكود هكذا

بارك الله فيك ربي يحفظك

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

في اي عمود صفحة data تبحث بتاريخ اليوم وفي اي عمود صفحة data تبحت بين تاريخين departure وفي اي عمود صفحة data تبحت بين تاريخين Reservation

تم إضافة عدد لعناصر القائمة القائمة والمربع _102.zip

تفضل أخي صلاح القائمة والمربع _101.zip

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

اهلا وسهلا بك اخي امين في المنتدى 🙂 رجاء قراءة شروط المنتدى قبل تشارك فيه : قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف رجاء طرح موضوع جديد بعنوان مناسب. شكرا يُغلق. جعفر

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

استاد سليم انت معلم ربنا يحفظك ويزيدك من فضله

وعليكم السلام يا سيد 🙂 تفضل واحصل على الزبدة جاهزة 🙂 جعفر

شكرا اخي @Barna لمرورك و ثناءك واقتراحك وإن شاء الله يكون في الحسبان.

جرب هذا الماكرو Option Explicit Sub Uniq_items() Dim R As Worksheet, Sw As Worksheet Dim Nme$, Rg As Range Dim cop_rg As Range Dim dic As Object, I%, m% Set R = Sheets("report") Set dic = CreateObject("Scripting.Dictionary") Set cop_rg = R.Range("B4").CurrentRegion Nme = R.Range("C2") If cop_rg.Rows.Count > 1 Then cop_rg.Offset(1).ClearContents End If m = 5 For Each Sw In Sheets If Sw.Name <> R.Name Then Set Rg = Sw.Range("G5", Sw.Range("G4").End(4)) For I = 1 To Rg.Rows.Count If Rg.Cells(I).Offset(, 2) = Nme Then dic(Rg.Cells(I).Value) = _ Rg.Cells(I).Offset(, 2).Value End If Next If dic.Count = 0 Then GoTo Next_Sheet With R.Cells(m, 2).Resize(dic.Count) .Value = Application.Transpose(dic.keys) .Offset(, 1) = Application.Transpose(dic.items) m = m + dic.Count: dic.RemoveAll End With End If Next_Sheet: Next Sw End Sub الملف مرفق Unique_item.xlsm

هذا ماأشار اليه الأستاذ jjafferr على ما أظن ssa.accdb

ولا يهمك ..... تفضل واعلمنا بالنتيجة ..... ترقيم مجموعه (1).accdb

وعليكم السلام-كان عليك استخدام خاصية البحث بالمنتدى-تفضل تفقيط مساحة ارض

اهلا وسهلا بك اخي اشرف في المنتدى 🙂 رجاء قراءة شروط المنتدى قبل تشارك فيه : قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف رجاء طرح موضوع جديد بعنوان مناسب. شكرا يُغلق. جعفر

ما شاء الله عليك يا استاذي جعفر طلعنا مثلك في وسط المعمعة

صحيح هناك خطأ مطبعي في استعلام القائمة [Formulaires]![show]![maharat] الصحيح [Forms]![show]![maharat]

يمكن طريقة عملي هي السبب !! انا عادة اشتغل على مشروع/ملف ، ولما اتملل/اتعب منه ، آخذ استراحة بذهابي الى المنتدى لأرد بسرعة على اكبر عدد من الاسئلة ، وبعض الاوقات اثناء العمل على سؤال ، يجي سؤال آخر سهل ، فأرد عليه ايضا !! يعني يكون عندي 3-4 ملفات مفتوحة في نفس الوقت ، هذا غير اذا ذهبت ابحث عن شيء معين !! وسط هذه المعمعة ، اولوية الرد يكون للأسئلة الواضحة 🙂 1. طلب مبهم !! مادام البرنامج يشتغل صح ، فهو صح ، والسلام 🙂 2. كذلك غير واضح !! رجاء التوضيح اكثر ، والافضل ان تعطينا مثال من برنامجك ، خطوة بخطوة 🙂 الله يعين الجميع ان شاء الله على هذا البلاء 🙂 جعفر

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

ابحث في المنتدى هناك الكثير من طرق توزيع الطلاب على اللجان .....

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

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

سيدي الفاضل 🙂 1. تم حذف جميع هذه الكائنات : . 2. تم حذف النموذج Tooth ، 3. تم اخذ الصور وبقية الكائنات كجزء من النموذج الرئيسي All_P ، 4. هذه الكائنات اصبحت غير مرتبطة بجدول : . 5. عند النقر المزدوج ، جميع هذه الكائنات تنادي الوحدة النمطية f_Remove_a_Tooth : . 6. هناك جدول فرعي جديد stbl_All_P ، يرتبط بالجدول All_P ، عن طريق الحقل PCode ، وفيه الحقول التالية : dDate ، Tooth_Number ، Remarks ، 7. هناك نموذج فرعي sfrm_All_P (نموذج مستمر) والذي يأخذ بياناته من الجدول stbl_All_P ، وعمل هذا الجدول تسجيل الضرس/الاضراس التي يتم قلعها ، بالوقت والملاحظات ، بحيث يبقى هذا كتاريخ لجميع الاضرس التي قلعها الدكتور ، 8. عند النقر مرة على الضرس ، يتم تحويل لونه الى اللون الازرق ، وعند النقر مرتين على الضرس ، فالوحدة النمطية f_Remove_a_Tooth تقوم بعمل التالي : أ. عمل سجل جديد ، ويكتب في السجل رقم الضرس ، والوقت ، ويقف التركيز على حقل الملاحظات ، ب. اخفاء الضرس من الصورة ، 9. يمكن اضافة اي عدد من الاضراس في النموذج الفرعي ، 10. في حدث الحالي للنموذج الرئيسي ، فأنه بقراءة الاضراس المقلوعة من النموذج الفرعي ، ويقوم بإخفاء هذه الضروس من الصورة ، Private Sub Form_Current() On Error GoTo err_Form_Current Dim rst As DAO.Recordset Dim i As Integer Set rst = Me.sfrm_All_P.Form.RecordsetClone rst.MoveLast: rst.MoveFirst: RC = rst.RecordCount For i = 1 To RC Me("A_" & rst!Tooth_Number).Visible = False rst.MoveNext Next i Exit_Form_Current: Exit Sub err_Form_Current: If Err.Number = 3021 Then Resume Exit_Form_Current Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub والنتيجة: . 11. تم العمل على الصورة التي على اليمين ، ويجب ان تعمل نفس الشيء للصورة على اليسار ، 12. الوحدة النمطية f_Remove_a_Tooth : Public Function f_Remove_a_Tooth() Dim frm As String Dim fld As String frm = Screen.ActiveForm.Name fld = Screen.ActiveControl.Name 'add a new Record, and add the Tooth number in to Forms!All_P.SetFocus Forms!All_P!sfrm_All_P.SetFocus DoCmd.GoToRecord , , acNewRec Forms!All_P!sfrm_All_P!DDate = Now() Forms!All_P!sfrm_All_P!Tooth_Number = Replace(fld, "A_", "") Forms!All_P!sfrm_All_P!Remarks.SetFocus 'now hide the tooth Forms(frm)(fld).Visible = False End Function . جعفر 1188.Dental.accdb.zip

اخر تحديث يمنع اضافة الاقساط اكثر من مرة تمت الاضافة بواسطة الاخ @kha9009lid اقساط.accdb