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

تفضل المستودع التقني.xlsm

راديو احترافى لن تجده الا بمنتديات اوفيسنا الاصدار الاول : JU_Radio v1.zip

تفضل TestDBv.mdb

تفضل أستاذ عبد جرب وللاسترجاع اعكس الأوامر مع عمل نموذج ارجاع مصدره الجدول TargetTbl Private Sub Command1_Click() Dim db As DAO.Database Dim StrSQLADD As String Dim StrSQLDEL As String ' تعريف القاعدة الحالية Set db = CurrentDb ' ادراج السجل الحالي في جدول التخزين StrSQLADD = "INSERT INTO TargetTbl SELECT * FROM [SourceTbl] WHERE IDREC = " & Me!IDREC db.Execute StrSQLADD 'حذف السجل الحالي بعد حفظه في الجدول السابق StrSQLDEL = "DELETE * FROM SourceTbl WHERE IDREC = " & Me!IDREC db.Execute StrSQLDEL ' تحديث النموذج للتخلص من السجل المحذوف Me.Requery End Sub TestDB.mdb

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

بعد إذن استاذي جعفر لست بحاجة لعمل جدول وترحيل السجل اليه فقط تحتاج الى خانة نعم لا باسم Deletrecord في منشأ الاستعلام للمنوذج اجعل قيمة الحقل false والاسترجاع السجل للظهور اعمل نموذج اخر وفي منشئ الاستعلام اجعل الخاصية True ::بالتوفيق::

اهلا بك اخى اشرف في المنتدى تفضل لك ما طلبت معادلة عد2.xlsx

وعليكم السلام 🙂 في الحدث بعد تحديث الحقل "الحالة الزوجية" ضع هذا الكود (ما يهمك ، الكود هنا مقلوب ، بس في VBE بيطلع صح 🙂 ) : if me.[الحالة الزوجية]="اعزب" then me.[عدد الاطفال].visible=false else me.[عدد الاطفال].visible=true end if جعفر

وهذا أيضا برنامج متكامل للمبيعات والعملاء على هذا الرابط https://www.officena.net/ib/topic/91701-برنامج-ادارة-المبيعات-و-العملاء/?tab=comments#comment-575051

بارك الله فيكى وجزاكى الله خير الثواب-والحمد لله الذى بنعمته تتم الصالحات

تفضلى المستودع التقني.xlsm

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

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

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

هيك طلبك والا بدك المسلسل يبدأ م نرقم 1 ؟؟ Database111.accdb

وضح السؤال ؟؟ مشان نعرف نساعدك ؟؟ النموذج فارغ

يعطيك العافية المشكلة يا طويل العمر كل ما اسجل مندوب جديد واضغظ زور الحفظ اروح اشوف كشف حساب التفصيلي رصيد افتتاح لكل مندوب نفس الرصيد وبيانات متكررة وانا لا اريد التكرار رصيد افتتاحي الملف موجود بعد التعديل كشف.rar

tst2.rar

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

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

كيف تتم المساعدة والملف لا يفتح أصلا ؟!!!!! فبالتالى لا يمكن المساعدة

تم التعديل على الماكرو ليتناسب مع المطلوب Option Explicit Sub give_data() Dim N As Worksheet: Set N = Sheets("names") Dim S As Worksheet: Set S = Sheets("Salim") Dim lrN%: lrN = N.Cells(Rows.Count, 3).End(3).Row Dim lrS%: lrS = S.Cells(Rows.Count, 3).End(3).Row Dim t%, i%: i = 6 Dim m%: m = 9 S.Cells(m, 3).Resize(lrS + 10, 8).Clear Do Until i = lrN + 1 If N.Cells(i, "Y") Like "*" & S.Range("m3") & "*" Then With S.Cells(m, 3) t = t + 1 .Value = N.Cells(i, 1) .Offset(, 1) = N.Cells(i, 3) .Offset(, 2) = N.Cells(i, 2) .Offset(, 3) = N.Cells(i, 5) .Offset(, 4) = N.Cells(i, 10) .Offset(, 5) = N.Cells(i, 8) m = m + 1 End With End If i = i + 1 Loop Cells(1, 4) = t If t = 0 Then MsgBox "No Studiant for this category" Exit Sub End If lrS = S.Cells(Rows.Count, 3).End(3).Row With Range("c9").Resize(lrS - 8, 7) .Font.Size = 22 .Borders.LineStyle = 1 .Interior.ColorIndex = 35 .InsertIndent 1 End With Range("RG_TO_COPY").Copy Cells(lrS + 2, 5) With Cells(lrS + 3, "g") .Formula = "=COUNTIF(F9:F" & lrS & "," & """فرنسي""" & ")" .Offset(1).Formula = "=COUNTIF(G9:G" & lrS & "," & """مسلم""" & ")" .Offset(2).Formula = "=COUNTIF(H9:H" & lrS & "," & """نظامي""" & ")" .Offset(, 2).Formula = "=COUNTIF(F9:F" & lrS & "," & """الماني""" & ")" .Offset(1, 2).Formula = "=COUNTIF(G9:G" & lrS & "," & """مسيحي""" & ")" .Offset(2, 2).Formula = "=COUNTIF(H9:H" & lrS & "," & """منازل""" & ")" End With End Sub الملف من جديد Legan _salim _new.xlsm

أخي الكريم اذا انت بحاجة الى تصدير الجداول الى sql servr بعد ذلك تقوم برفع الجداول على موقع استضافة وتعمل موقع على الانترنت نت لكي يتمكن الطلبة من الدخول اليه والاستعلام عن النتائج لاحظ هنا ان الموضوع خرج عن نطاق الاكسس تماما ::بالتوفيق::

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

حسب علمي لا اظن ذلك جرب احذف سجل وانظر الى امر التراجع في الاكسس في الأعلى هل يظهر؟؟ لا يظهر اذن لا اظن على حسب خبرتي يتم التراجع بعد الحذف نهائياً

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

جرب هذا الملف Order_Me.xlsm

شكرا استاذ علي اسفة عذتك كتير..الله يعطيك الف عافية

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

Expand And Collapse( الطى والتوسيع ) ExpandCollapse( الطى والتوسيع).mdb

,وعليكم السلام يمكنك استخدام هذا الكود Private Sub CommandButton3_Click() UserForm1.PrintForm End Sub New Microsoft Excel Worksheet.xlsm

Dim f As String Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount f = rst!Delchk For i = 1 To RC If f = "true" Then rst.Edit rst!Delchk = False rst.Update Else rst.Edit rst!Delchk = True rst.Update End If rst.MoveNext Next i rst.Close: Set rst = Nothing غير فقط Delchk= الحقل في الجدول هذا مسمى الحقل في الكود واترك الباقي كما هو طبقه على القاعدة كما هو ولن يحدث معك خطأ بإذن الله هذا في كود التحديد أما كود الإلغاء أعمل العكس true أجعلها false

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

لو ممكن رفع ملف اكسيل بكل المطلوب يكون افضل حتى تتمكن الأساتذة من المساعدة بكل دقة

اقترح هذا الماكرو Option Explicit Sub CALCUL() Dim MY_DIC As Object Dim K, m#, x%: x = 3 Set MY_DIC = CreateObject("Scripting.Dictionary") With MY_DIC Do Until Range("B" & x) = vbNullString K = Range("B" & x): m = Range("D" & x) If Not .exists(K) Then .Add K, m Else MY_DIC(K) = MY_DIC(K) + m End If x = x + 1 Loop Range("F3").Resize(.Count) = _ Application.Transpose(.Keys) Range("G3").Resize(.Count) = _ Application.Transpose(.Items) .RemoveAll: Set MY_DIC = Nothing End With End Sub الملف مرفق Working_with_dictionary.xlsm

تفضل New_Microsoft_Excel_Worksheet.xlsx

بارك الله فيك وجزاك الله كل خير

كان عليك من البداية استخدام خاصية البحث بالمنتدى -تفضل https://www.officena.net/ib/topic/82743-حساب-أستهلاك-فاتورة-الكهرباء/?tab=comments#comment-526565 https://www.officena.net/ib/topic/82743-حساب-أستهلاك-فاتورة-الكهرباء/?tab=comments#comment-526565 https://www.officena.net/ib/topic/85820-حساب-فاتورة-الكهرباء/?tab=comments#comment-544146

تفضل أخى الكريم فهذه معادلات مصفوفة فلابد من الضغط على Ctrl+Shift+Enter وليس Enter فقط حكام.xlsx

تفضل Book1.xlsx

دائما وابدا يجب رفع ملف للعمل عليه تجنبا لإهدار الوقت بارك الله فيك

أحسنت استاذ شريف معادلة رائعة ولإثراء الموضوع هذا حل اخر بمعادلات المصفوفة دالة تحسب المبالغ بدلالة الشهر والسنة وذلك من التاريخ 1.xlsx

تفضل لك ما طلبت الحكام 2.xlsx

بارك الله فيك وزادك من فضله ولك بمثل ما دعوت لى وزيادة

تفضل تم الحل بمعادلات المصفوفة استعلام.xlsm

وعليكم السلام تفضل البحث في أكسيل.xlsm

تفضل تعديل على الكود - الترحيل على اساس شروط ثلاث -استثناء بعض الارقام2.xlsm

وعليكم السلام اخى الكريم اهلا بك فى المنتدى تفضل الملف بدون حماية لتحليل الاختبارات للمرحلة المتوسطة والثانوية.xls

بعد اذن استاذنا عماد وذلك بكتابة السطر الأول داخل الخلية ثم الضغط على Alt+Enter وكتابة السطر الثانى جزاك الله كل خير

اهلا بك اخى الكريم فى المنتدى تفضل 1.xlsx