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

أولا - في الغالب عند التعامل مع الشبكات يكون هناك برنامج ال temviewer لتسهيل الحركة المرورية بين الأجهزة والتحكم بها. وللتغلب علي مثل هذه المشكلات. ثانيا- مجرد وجهة نظر وأنتم أدري بطبيعة أعمالكم (ولكن هذا ما يجري عليه العمل غالبا) لما لا تكون قاعدة البيانات الخلفية فقط دخل المجلد المشترك هذا ويكون البرنامج (القاعدة الأمامية: التي تحوي النماذج والتقارير و...) يتم تحميلها علي كل جهاز بالشبكة بشكل مستقل. بحيث اي تعديل يتم علي القاعدة الأمامية التي هي داخل المجلد المشترك ولكن بعيد عن القاعدة الخلفية يتم تحميله بشكل آلي بواسطت كود يبحث عن التحديثات ان وجدت. وتكون قاعدة بياناتك تحت يدك تحدث بها متي شئت وكيف شئت بلا ازعاج من المستخدمين وآسف علي الاطالة.

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

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

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

هذه المعادلة =TEXT(C4,"hh:mm")&"-"&TEXT(C5,"hh:mm") و اذا لم تعمل معك استبدل الفاصلة "," بفاصلة " ; " منقوطة لتبدو هكذا =TEXT(C4;"hh:mm")&"-"&TEXT(C5;"hh:mm")

3-1 مقدمة الي الاستعلامات 11-8-2003 3-2 إستعلامات الاختيار - 1 12-8-2003 3-3 استعلامات الاختيار - 2 + الاستعلام المحوري 19-8-2003 3-4 تقسيم لانواع الاستعلامات 25-8-2003 3-5 الاستعلام ذو المتغيرات 29-8-2003 3-6 إستعلام الحذف 5-9-2003 3-7 إستعلام التحديث 10-9-2003 3-8 استعلام الإلحاق14-9-03 3-8 استعلام إنشاء جدول ---17-9-2003 3-11 إستعلام التوحيد 24-9-2003 3-12 باقي استعلامات الاس كيو ال 20-10-2003 ---------------------------------------- وصلة دروس تصميم الجداول http://www.officena.net/ib/index.php?showtopic=2218

🙂

تفضل 🙂 1311.8.Data.accdb.zip

تمام بارك الله فيك وعليك

هل انتهت المشكلة! رجاءا اخبرنا ما كانت المشكلة بالضبط؟

تم تفعيل زر الحذف مع ادراج التاريخ بالتنسيق كما تريده Private Sub Cmd_Del_Click() First_Of_all Dim FR As Range If Val(Me.Where) <= 0 Then Else Set FR = ws.Range("A8:A" & lr) _ .Find(CInt(Me.Where), lookat:=1) If FR Is Nothing Then MsgBox "I can't Find That " _ & """" & Me.Where & """" & " In Column A" Exit Sub Else ws.Cells(FR.Row, 1).Resize(, 7).Delete lr = ws.Cells(Rows.Count, 2).End(3).Row ws.Range("a10").Resize(lr - 9) = _ Evaluate("Row(1:" & lr - 9 & ")") End If Me.Where = CInt(Me.Where) End If End Sub yasse.w._1.xlsm

اخى اشكرك واشكر الاخ احمد الفلاحجي والاخ ABOLO2 المشكلة فى برنامج الاكسس

هاد وقت البخور استاذ شغل البخور ام تراه خلص وننتظر لما تشترى تانى .؟

شفاك الله وعافاك من كل داء وصرف عنك وعن المسلمين كل مكروه وشر

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

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

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

اتفضل اضف الكود الاتى قى بداية الكود هند التحديث لمربع النص Select Case text3 Case "ت4" text3 = "رياضيات 4" text3.Requery End Select

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

نعم هناك طريقه 😄 التحكم بقاعدة بيانات الخلفية على الشبكة - قسم الأكسيس - أوفيسنا (officena.net)

هذه المعادلة =IF(ISNA(MATCH(C16,$C$10:$K$10,0)),"No Matching",INDEX($C$11:$K$11,MATCH(C16,$C$10:$K$10,0))) My_if.xlsx

هممم البرنامج يعمل بأي عدد من الصفحات ، ولكن على 5 مخازن فقط ، وهذا تم اخذه من برنامجك الاكسل !! تم تقييد العمل هكذا بسبب طريقة طلبك لفرز البيانات (طبعا هناك طرق اخرى للقيام بهذا العمل) !! رجاء اخبرني كم مخزن ممكن يكون عندك ، لأنه لازم يتم تضبيط البرنامج كاملا. جعفر

ربما يكون المطلوب Option Explicit Dim ws As Worksheet Dim lr%, i% Sub First_Of_all() Set ws = ActiveSheet lr = ws.Cells(Rows.Count, 2).End(3).Row End Sub '+++++++++++++++++++++++++++++++++++++++ Private Sub Cmd_Saech_Click() Dim Arr(5), Itm, FR As Range Arr(0) = "T_B": Arr(1) = "T_C":: Arr(2) = "T_D" Arr(3) = "T_E": Arr(4) = "T_F": Arr(5) = "T_G" First_Of_all If Me.Where = vbNullString Or _ Val(Me.Where) <= 0 Then MsgBox "Please Type Correct Number" Exit Sub End If Set FR = ws.Range("A8:a" & lr) _ .Find(CInt(Me.Where), lookat:=1) If FR Is Nothing Then MsgBox "No data" Else With ws.Cells(FR.Row, 2) For i = 0 To UBound(Arr) Me.Controls(Arr(i)) = .Offset(, i) Next End With End If End Sub '+++++++++++++++++++++++++++++++++ Private Sub Cmd_Tarhil_Click() Dim CTr As Control, Bol As Boolean Dim Arr(5), Itm Arr(0) = "T_B": Arr(1) = "T_C":: Arr(2) = "T_D" Arr(3) = "T_E": Arr(4) = "T_F": Arr(5) = "T_G" First_Of_all For Each CTr In Me.Controls If CTr.Name Like "T_*" _ And CTr = vbNullString Then Bol = True: Exit For End If Next If Bol Then MsgBox "Please Fill all TextBoxes To countinous" Exit Sub End If With ws.Cells(lr + 1, 2) For i = 0 To UBound(Arr) .Offset(, i) = Me.Controls(Arr(i)) Me.Controls(Arr(i)) = vbNullString Next End With MsgBox "That's ALL", vbInformation, "ADmin" Unload Me End Sub yasse.w.xlsm

خطأ املائي والصحيح 2004 باذن الله اخي ومعلمي جعفر

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

الحمدلله 🙂 ونعم افتح موضوع جديد ، ولكن : - لا تذكر انه يجب التعامل مع الاكسل ، لأنك ستنفر مجموعة معينه من الاعضاء ، - ولا تذكر اسمي في الموضوع ، فهذا يُعد مخالف لقوانين المنتدى، والاعضاء قد يتركون الموضوع ظنا منهم ان السؤال موجه لي 🙂 وحياك الله 🙂 واذا عندك اي استفسار اخير ، قبل اغلاق هذا الموضوع 🙂 جعفر

الظاهر التغيير الصحيح هو : مو فقط b = x انما b = اي حرف 🙂 جعفر

استخدم هذا الكود في النموذج الرئيسي لديك عند حدث التحميل ..... جرب ووافينا بالنتيجة If CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings")) <> "1" Then CreateObject("WScript.Shell").RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings"), "1", "REG_DWORD" End If

التقرير الموجود عندك حاليا يأخذ الصفحات ، ولنقل ان الصفحات 11 صفحة ، ولكني اضفت عليه ميزة ، وهي انك اذا لم تختار الصفحات فإنه يأخذها جميعا ، 1 الى 11 ، واذا اخترت اول صفحة (4 مثلا) ولم تختار آخر صفحة ، فهو يجعل الاختيار بين صفحتك والصفحة الاخيرة ، 4 الى 11 ، واذا اخترت الصفحة الاخيرة (6 مثلا) ولم تختار الصفحة الاولى ، فهو يجعل الاختيار بين 1 الى 6 🙂 وكذا التواريخ 🙂 جعفر 1311.8.Data.accdb.zip

وعليكم السلام - لك ما طلبت حضور ادارة المشتريات1.xlsx

جرب هذا الملف 1- العامودين B و C يدرج فيهما التسلسل و اسماء الحساب (بدون اكرار) 2-التاريخ في الخلايا D2 & D1 يدرج في قوائم منسدلة (دون تكرار) 3 -اذا لم تدرج هذه المغلومات غادر الصفحة Repport ثم عد اليها 4- أخنر التاريحين من D1 و D2 واضغط الزر Run Option Explicit Dim Mx As Date, Mn As Date Dim D As Worksheet, R As Worksheet Dim Rg_D As Range, Rg_R As Range Dim Ro_d%, Ro_R%, m% Dim Dic_date As Object Dim Dic_F As Object Sub Begin() Set D = Sheets("data"): Set R = Sheets("Repport") Ro_d = D.Cells(Rows.Count, 3).End(3).Row Ro_R = R.Cells(Rows.Count, 2).End(3).Row If Ro_R < 6 Then Ro_R = 6 End Sub '+++++++++++++++++++++++++++ Sub Crete_val_data() Dim i% Begin If Ro_d < 4 Then Exit Sub Set Dic_date = CreateObject("Scripting.Dictionary") Set Dic_F = CreateObject("Scripting.Dictionary") For i = 4 To Ro_d If IsDate(D.Cells(i, 3).Value) Then Dic_date(D.Cells(i, 3).Value) = vbNullString Dic_F(D.Cells(i, 7).Value) = vbNullString End If Next With R.Range("D1:D2").Validation .Delete .Add 3, Formula1:=Join(Dic_date.keys, ",") End With R.Range("C6").Resize(Dic_F.Count) = _ Application.Transpose(Dic_F.keys) R.Range("B6").Resize(Dic_F.Count).Value = _ Evaluate("Row(1:" & Dic_F.Count & ")") End Sub '+++++++++++++++++++++++++++++++++++ Sub get_Data() Begin Dim x x = R.Cells(Rows.Count, 2).End(3).Row R.Cells(6, 4).Resize(x - 5, 2).Formula = _ "=SUMPRODUCT(--(data!$C$4:$C$100<=$D$2),--(data!$C$4:$C$100>=$D$1),--(data!$G$4:$G$100=$C6),(IF(ISNUMBER(data!D$4:D$100),(data!D$4:D$100),0)))" R.Cells(6, 6).Resize(x - 5).Formula = _ "=SUM(D6,-E6)" R.Cells(6, 2).CurrentRegion.Value = _ R.Cells(6, 2).CurrentRegion.Value End Sub الملف مرفق Raad.xlsm

تفضل: جمع جميع القيم التي تدخلها في نموذج ادخال البيانات عن طريق الزر ، وبدون السجل الاول ، ومافيه داعي تحفظ الحقل RowID في الجدول ، لأنه متغير يأخذ قيمه من داله ، فاتركه بحاله 🙂 جعفر 1311.7.Data.accdb.zip

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

عليكم السلام، تفضل. JO_2021.accdb

يا اخي الكريم زيل علامة الصح

ممكن !!!!!!!!!!!!!!!!!!!!!!!!! ولكن اين المرفق

تفضل ..... تحويل.accdb

مشكوووووووووووووووور الف الف الف شكر الله يجزيك خير

جرب هذه المحاولة بمجرد الكتابة في الخلية c2 سيتم جلب البيانات غير اسماء الشيتات اجعل ورقة البيانات"data" وورقة التقرير report وضع الكود في ورقة التقرير Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("c2")) Is Nothing Then Sheets("data").Cells.AutoFilter Field:=1, Criteria1:=Target.Value Sheets("data").AutoFilter.Range.Columns("A:q").Offset(1).Copy Sheets("report").Range("A10") End If Sheets("data").AutoFilterMode = False End Sub

لا أعرف سبب التركيز على الحلقات التكرارية في أكثر الاكواد في حين يمكن عمل ذلك بواسطة فلتر بسيط Option Explicit Sub test_salim() Dim ws As Worksheet Dim ws2 As Worksheet Set ws = Sheets("البيانات") Set ws2 = Sheets("التقرير") If ActiveSheet.Name <> ws2.Name Then ws2.Select ws.AutoFilterMode = 0 ws2.Range("A10").CurrentRegion.Clear ws.Range("A9").CurrentRegion.AutoFilter 1, ws2.[c2] ws.Range("A10").SpecialCells(12).Copy ws2.Range("A10").PasteSpecial (8) ws2.Range("A10").PasteSpecial (11) Application.CutCopyMode = 0 ws.AutoFilterMode = 0 End Sub

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

جرب هذا الملف Employ.xlsx

السلام عليكم . تقبل الله منا و منكم الصلاة و الصيام و القيام إن شاء الله لقد قمت بإضافة تحديث للبرنامج يمكن الزبون من تأجيل عملية إغلاق البرنامج لأجل حفظ العمل المتواجد بين يده. أضفت زر أمر في نموذج العد التنازلي عند الضغط عليه يغير العد من 60 و يغير حجم النموذج و ينقله للركن العلوي في الجهة اليسرى من الشاشة close pro.rar

تفضل فلترة بعدة شروط.xlsx

وعليكم السلام تفضل فلترة بعدة شروط.xlsx

السلام عليكم ورحمة الله حل أول بالدالة SUMPRODUCT في الملف المرفق... بن علية حاجي عدد الذكور والاناث حسب الفئة.rar

السلام عليكم ورحمة الله أخي الكريم، المشكل الذي ذكرته ليس في الأوفيس وإنما في ملف Registry الخاص بالويندوز... وإن شاء الله حل هذه المشكلة يكون بتنفيذ الأداة في الملف المرفق وهي تقوم بتصحيح الخلل في ملف Registry تلقائيا والمتعلق بخصائص HTM/HTML... أرجو أن تفيدك هذه الأداة... أخوك بن علية html_association_fix.zip

السلام عليكم ورحمة الله أهلا بك أخي "أبو حنين" افتقدك المنتدى كثيرا وشكر على الكود الجميل الذي وضعته... هذا حل آخر بالمعادلة على أساس أن البيانات في العمود A من الورقة Sheet1 : =INDEX(Sheet1!A:A;MATCH("zzz";Sheet1!A:A;1)) بطبيعة الحال هذا إن لم يكن أحد المستعملين اسمه "zzz" وأن تكون الأسماء نصية... أخوكم بن علية

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

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