البحث في الموقع

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

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

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

السلام عليكم اساتذتي الكرام تكملة للموضوع الفارط من هنا المطلوب مساعدة في فتح تقرير 10 عند اختيار "تصريح ابوي لقاصر" عن طريق الكود وبدون مصدر سجلات ويخص الابن القاصر فقط اي "العمر اقل من 18 سنة" Database22.rar

السلام عليكم ورحمة الله السادة الافاضل محتاج مساعدة في اضافة يوزر فورم جديدة مثل فورم رقم 8 ولكن تختلف في طريقة الطباعة محتاج اطبع ارقام الاذونات سواء اضافة او صرف او مرتجع من خلال 1- من تاريخ الي تاريخ 2- من خلال رقم الاذن نفسه ولسيادتكم وافر التحية مخزن 3.xlsm

هلا باستاذنا الفاضل انا مش بستخدم النماذج القديمه اللى كانت 4 متسابقين بمراحلهم انما تسلسل شغلى كالاتى فورم frm_Options عدد اسئلة المرحله اخترت 10اسئله المفروض ان كل شخص يدخل المسابقه زمن الاجابه سابقا كان لكل سؤال المطلوب انه يكون زمن كلى للاجابه على ال10 اسئله مثلا ليه اللجنه ابدت ملاحظه افرض ان واحد جاوب اول سؤال فى ربع دقيقه وجاله سؤال تانى كان محتاج منه تفكير لمده اكتر من دقيقه فعشان كده طلب الزمن يكون شامل كمية الاسئله على بعضيعنى التعديل لزمن الاجابه بحيث يشمل عدد الاسئله ككل هذا اولا عند بدء مسابقه جديده بيفتح فورم frm_StartExam المفروض ان الشخص المتقدم بيكتب رقمه من البيانات اللى مسجل بها الاعضاء سابقا فى جدول tb_data بيعرض بياناته مثل اسمه ونوع المسابقه او الامتحان المتقدم ليه مسجلهم مجموعه (1) و 2 لو تاكد من بياناته بيدخل المسابقه او الامتحان الخاص به بيفتح فورم frm_QueChoose سابقا كان بيختار سؤال عشوائى سؤال واحد المطلوب دلوقتى يختار عدد الاسئله كلهم لو موجود 10 يختار ال 10 مره واحده بناء على التصنيف ثم فتح نموذج frm_OutQ لعرض الاسئله كان سابقا بغد الضغط على موافق بنختر التالى بيرجع يجيب سؤال جديد عشوائى ويبدا يعد الزمن للسؤال المطلوب بعد الضغط على زر التالى يعرض السؤال والزمن مستمر فى التناقص وهكذا

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

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

السادة الأفاضل ..أرجو الافادة هل يمكن عمل فورم يقوم بنقل عدد معين من تخصص معين من عامود التخصص لمدرسة معينة الى لجنة معينة ... مرفق جدول للتوضيح ولكم الشكر test ai.accdb

في حالة ادخال عدد كثير من سجلات الى فورم فرعي مستمر ( فورم فرعي مستمر يهتز ) و هذا شيء غير جميل . اريد وقف اهتزاز فورم فرعي مستمر M13.rar

السلام عليكم .. ممكن تعديل على فورم البحث والاضافة بحيث يعتمد على نطاق معين وليس كجدول كما هو موجود في الملف المرفق .. أي يكون النطاق المستخدم في الكود من A1الى اخر صف موجود فيه بيانات مثلا U180 بدل النطاق Tableau1 الموجود في الكود .. ويكون اضافة التسلسل اوتوماتيكي وليس يدويا... وعند حذف حقل من الفورم يقوم بارسال القيد المحذوف الى صفحة المحذوفات في الفورم.. واعادة ضبط التسلسل بعد الحذف وكذلك اضافة عمود صورة الموظف تكون في فولدر نفس مسار المصنف ويحتوي على فولدرات باسم كل موظف تحتوي على ملفات مرفقة صور او pdf وتظهر الصورة لكل موظف في الفورم عند اختياره .. وكذلك وجود زر لاستعراض الفولدر الخاص بكل موظف من الفورم .. تحياتي للجميع منظومة-الشؤون-الادارية.xlsm

تم تعديل المشروع بطريقة مختلفة تماما عن ما كنت افكر به سابقا يمكننا القول الآن ان العمل احترافي الوصف للتعديل الجديد : 1- يدعم فترتين مختلفتين مفتوحتين 2- لا يوجد حد فاصل بين الصباح والمساء .. كل فترة تعمل بشكل مستقل من خلال شاشة واحدة 3- الفترة تبدأ قبل وقت الدخول بساعة وتنتهي بعد وقت الانصراف بساعة ايضا .. 4- لا يمكن التوقيع خارج الوقت المعتبر للفترة .. 5- اذا لم يوقع الموظف خروج .. عند الحضور من الغد يسجل حضور ويبقى حقل خروج الأمس فارغا 6- تم التطبيق على شاشة توقيت الانترنت وعلى شاشة التوقيت المحلي الضوابط : مهم جدا : 1- ادخال البيانات الصحيحة كاملة في فورم التحكم : وقت الحضور الصباحي/وقت الحضور المسائي/ عدد ساعات العمل الصباحي والمسائي والوقت الاضافي ان وجد اكسس هو من يحدد وقت الخروج بناء على وقت الحضور + ساعات العمل 2- تعيين الفترات للموظفين في فورم الأسماء عند انتقال الموظف من الصباح الى المساء فقط يتم تغيير وقته في فورم الاسماء . اذا اردنا ان يعمل الموظف في الفترتين كليهما عليك تسجيله بمعرف جديد ................................. جرب كثيرا ووافني بالنتيجة اذا كل شيء تمام خبرني كي اهديكم المخرج النهائي ChkInOut_NetUp3.rar

Private Sub cmdSaveTransactions_Click() Call cmdSaveTransactions_Click_Optimized End Sub Private Sub cmdSaveTransactions_Click_Optimized() Dim wsTransactions As Worksheet Set wsTransactions = ThisWorkbook.Sheets("إيرادات ومصروفات") Dim wsCashBox As Worksheet Set wsCashBox = ThisWorkbook.Sheets("صندوق الخزينة") Dim lastRowTransactions As Long Dim i As Long Dim transactionDate As Date Dim transactionAmount As Double Dim dictCashBox As Object ' Dictionary لتخزين بيانات صندوق الخزينة مؤقتًا (التاريخ كمفتاح) Set dictCashBox = CreateObject("Scripting.Dictionary") Dim transactionData As Variant Dim outputArray() As Variant Dim outputRow As Long Dim lastRowCashBox As Long ' تعطيل تحديث الشاشة والأحداث والحساب Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual ' الحصول على آخر صف في شيت الإيرادات والمصروفات lastRowTransactions = wsTransactions.Cells(Rows.Count, "A").End(xlUp).Row + 1 ' حفظ البيانات من الليست بوكس إلى شيت الإيرادات والمصروفات (كما كان) For i = 0 To ListBox1.ListCount - 1 wsTransactions.Cells(lastRowTransactions + i, 1).Value = ListBox1.List(i, 0) wsTransactions.Cells(lastRowTransactions + i, 2).Value = ListBox1.List(i, 1) wsTransactions.Cells(lastRowTransactions + i, 3).Value = ListBox1.List(i, 2) wsTransactions.Cells(lastRowTransactions + i, 4).Value = ListBox1.List(i, 3) wsTransactions.Cells(lastRowTransactions + i, 5).Value = ListBox1.List(i, 4) wsTransactions.Cells(lastRowTransactions + i, 6).Value = ListBox1.List(i, 5) wsTransactions.Cells(lastRowTransactions + i, 7).Value = ListBox1.List(i, 6) Next i ' *** معالجة شيت صندوق الخزينة باستخدام Dictionary لتجميع القيم حسب التاريخ *** ' قراءة البيانات الموجودة في صندوق الخزينة إلى Dictionary lastRowCashBox = wsCashBox.Cells(Rows.Count, "A").End(xlUp).Row If lastRowCashBox > 1 Then transactionData = wsCashBox.Range("A2:D" & lastRowCashBox).Value For i = LBound(transactionData) To UBound(transactionData) Dim dtKey As String: dtKey = Format(transactionData(i, 1), "yyyy-mm-dd") Dim revenueFromSheet As Double: revenueFromSheet = transactionData(i, 3) Dim expenseFromSheet As Double: expenseFromSheet = transactionData(i, 4) Dim previousBalanceFromSheet As Double: previousBalanceFromSheet = transactionData(i, 2) If Not dictCashBox.Exists(dtKey) Then dictCashBox(dtKey) = Array(previousBalanceFromSheet, revenueFromSheet, expenseFromSheet) ' رصيد سابق، إيرادات، مصروفات Else Dim existingData As Variant existingData = dictCashBox(dtKey) existingData(0) = Application.Max(existingData(0), previousBalanceFromSheet) ' نأخذ الرصيد السابق الموجود (قد يكون تراكمي) existingData(1) = existingData(1) + revenueFromSheet existingData(2) = existingData(2) + expenseFromSheet dictCashBox(dtKey) = existingData End If Next i End If ' تحديث Dictionary ببيانات المعاملات الجديدة من الليست بوكس For i = 0 To ListBox1.ListCount - 1 transactionDate = Format(CDate(ListBox1.List(i, 1)), "yyyy-mm-dd") transactionAmount = CDbl(ListBox1.List(i, 5)) Dim revenue As Double: revenue = 0 Dim expense As Double: expense = 0 If ListBox1.List(i, 2) = "إيرادات" Then revenue = transactionAmount ElseIf ListBox1.List(i, 2) = "مصروفات" Then expense = transactionAmount End If If dictCashBox.Exists(transactionDate) Then ' Dim existingData As Variant existingData = dictCashBox(transactionDate) existingData(1) = existingData(1) + revenue existingData(2) = existingData(2) + expense dictCashBox(transactionDate) = existingData Else ' إذا كان التاريخ غير موجود، نحاول الحصول على آخر رصيد سابق من آخر تاريخ في Dictionary (إذا كان موجودًا) Dim lastBalance As Double: lastBalance = 0 If dictCashBox.Count > 0 Then Dim sortedKeys As Variant: sortedKeys = SortDictionaryKeys(dictCashBox) ' دالة لفرز مفاتيح Dictionary lastBalance = dictCashBox(sortedKeys(UBound(sortedKeys)))(0) + dictCashBox(sortedKeys(UBound(sortedKeys)))(1) - dictCashBox(sortedKeys(UBound(sortedKeys)))(2) End If dictCashBox(transactionDate) = Array(lastBalance, revenue, expense) End If Next i ' تحويل Dictionary إلى مصفوفة للإخراج وفرزها حسب التاريخ Dim keys As Variant: keys = dictCashBox.keys ReDim outputArray(1 To dictCashBox.Count, 1 To 4) outputRow = 1 For i = LBound(keys) To UBound(keys) Dim dateValue As Date If IsDate(keys(i)) Then dateValue = CDate(keys(i)) Else Debug.Print "تحذير: مفتاح غير صالح للتاريخ: " & keys(i) dateValue = DateSerial(1900, 1, 1) End If outputArray(outputRow, 1) = dateValue outputArray(outputRow, 3) = dictCashBox(keys(i))(1) ' إيرادات outputArray(outputRow, 4) = dictCashBox(keys(i))(2) ' مصروفات outputRow = outputRow + 1 Next i ' فرز المصفوفة حسب التاريخ If UBound(outputArray, 1) > 0 Then SortArrayByColumn outputArray, 1 End If ' حساب الرصيد السابق وكتابة المصفوفة إلى شيت صندوق الخزينة ReDim finalOutputArray(1 To UBound(outputArray, 1) + 1, 1 To 4) finalOutputArray(1, 1) = "التاريخ" finalOutputArray(1, 2) = "رصيد سابق" finalOutputArray(1, 3) = "رصيد إجمالي اليوم (مدين للإيرادات)" finalOutputArray(1, 4) = "رصيد إجمالي اليوم (دائن للمصروفات)" Dim runningBalance As Double: runningBalance = 0 For i = 1 To UBound(outputArray, 1) finalOutputArray(i + 1, 1) = outputArray(i, 1) finalOutputArray(i + 1, 2) = runningBalance finalOutputArray(i + 1, 3) = outputArray(i, 3) finalOutputArray(i + 1, 4) = outputArray(i, 4) runningBalance = runningBalance + outputArray(i, 3) - outputArray(i, 4) Next i ' مسح البيانات القديمة وكتابة المصفوفة النهائية wsCashBox.Cells.ClearContents wsCashBox.Range("A1").Resize(UBound(finalOutputArray, 1), 4).Value = finalOutputArray wsCashBox.Columns.AutoFit ' إضافة صفوف إجمالي نهاية الشهر (يجب أن يتم بعد كتابة البيانات وفرزها) Call AddMonthlyTotalsToCashBox ' مسح الليست بوكس بعد الحفظ ListBox1.Clear ' ListBox1.AddItem "رقم المسلسل,التاريخ,نوع السند,كود التوريد,اسم التوريد,المبلغ,الملاحظات" TXTSerialNumber.Text = "" ' إعادة تمكين تحديث الشاشة والأحداث والحساب Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic MsgBox "تم حفظ البيانات وتحديث رصيد صندوق الخزينة بنجاح (مع تجميع القيم).", vbInformation End Sub Function SortDictionaryKeys(dict As Object) As Variant Dim arr() As Variant Dim key As Variant Dim i As Long ReDim arr(1 To dict.Count) i = 1 For Each key In dict.keys arr(i) = key i = i + 1 Next key ' فرز المصفوفة حسب التاريخ Dim j As Long, temp As Variant For i = LBound(arr) To UBound(arr) - 1 For j = i + 1 To UBound(arr) Dim date1 As Date Dim date2 As Date If IsDate(arr(j)) And IsDate(arr(i)) Then date1 = CDate(arr(j)) date2 = CDate(arr(i)) If date1 < date2 Then temp = arr(i) arr(i) = arr(j) arr(j) = temp End If Else ' معالجة حالة الخطأ إذا لم يكن المفتاح تاريخًا صالحًا (لأغراض التصحيح) Debug.Print "تحذير: مفتاح غير صالح للتاريخ أثناء الفرز: " & arr(i) & " أو " & arr(j) End If Next j Next i SortDictionaryKeys = arr End Function ' دالة مساعدة لفرز مصفوفة ثنائية الأبعاد حسب عمود معين Sub SortArrayByColumn(arr As Variant, col As Long) Dim i As Long, j As Long, temp As Variant For i = LBound(arr) To UBound(arr) - 1 For j = i + 1 To UBound(arr) If arr(j, col) < arr(i, col) Then ' تبديل الصفوف For k = LBound(arr, 2) To UBound(arr, 2) temp = arr(i, k) arr(i, k) = arr(j, k) arr(j, k) = temp Next k End If Next j Next i End Sub ' دالة لإضافة صفوف إجمالي نهاية الشهر إلى شيت صندوق الخزينة (يتم استدعاؤها بعد تحديث البيانات) Sub AddMonthlyTotalsToCashBox() Dim wsCashBox As Worksheet Set wsCashBox = ThisWorkbook.Sheets("صندوق الخزينة") Dim lastRow As Long Dim i As Long Dim currentMonth As Long Dim totalRevenue As Double Dim totalExpenses As Double Dim startOfMonthRow As Long lastRow = wsCashBox.Cells(Rows.Count, "A").End(xlUp).Row If lastRow <= 1 Then Exit Sub ' لا توجد بيانات startOfMonthRow = 2 If startOfMonthRow <= lastRow Then currentMonth = Month(wsCashBox.Cells(startOfMonthRow, 1).Value) totalRevenue = 0 totalExpenses = 0 For i = 2 To lastRow Dim nextMonth As Long nextMonth = Month(wsCashBox.Cells(i, 1).Value) totalRevenue = totalRevenue + wsCashBox.Cells(i, 3).Value totalExpenses = totalExpenses + wsCashBox.Cells(i, 4).Value If nextMonth <> currentMonth Then ' إضافة صف الإجمالي للشهر السابق Dim totalBalanceEndOfMonth As Double If i > startOfMonthRow Then totalBalanceEndOfMonth = wsCashBox.Cells(i - 1, 2).Value + Application.WorksheetFunction.Sum(wsCashBox.Range("C" & startOfMonthRow & ":C" & i - 1)) - Application.WorksheetFunction.Sum(wsCashBox.Range("D" & startOfMonthRow & ":D" & i - 1)) Else totalBalanceEndOfMonth = wsCashBox.Cells(startOfMonthRow - 1, 2).Value ' الرصيد السابق إذا كان شهرًا واحدًا فقط End If lastRow = wsCashBox.Cells(Rows.Count, "A").End(xlUp).Row + 1 wsCashBox.Cells(lastRow, 1).Value = "إجمالي شهر " & MonthName(currentMonth) wsCashBox.Cells(lastRow, 2).Value = totalBalanceEndOfMonth wsCashBox.Cells(lastRow, 3).Value = totalRevenue - wsCashBox.Cells(i, 3).Value ' نطرح قيمة الشهر الجديد wsCashBox.Cells(lastRow, 4).Value = totalExpenses - wsCashBox.Cells(i, 4).Value ' نطرح قيمة الشهر الجديد currentMonth = nextMonth totalRevenue = wsCashBox.Cells(i, 3).Value totalExpenses = wsCashBox.Cells(i, 4).Value startOfMonthRow = i End If Next i ' إضافة إجمالي الشهر الأخير بعد انتهاء الحلقة Dim totalBalanceEndOfLastMonth As Double totalBalanceEndOfLastMonth = wsCashBox.Cells(lastRow, 2).Value + Application.WorksheetFunction.Sum(wsCashBox.Range("C" & startOfMonthRow & ":C" & lastRow)) - Application.WorksheetFunction.Sum(wsCashBox.Range("D" & startOfMonthRow & ":D" & lastRow)) lastRow = wsCashBox.Cells(Rows.Count, "A").End(xlUp).Row + 1 wsCashBox.Cells(lastRow, 1).Value = "إجمالي شهر " & MonthName(currentMonth) wsCashBox.Cells(lastRow, 2).Value = totalBalanceEndOfLastMonth wsCashBox.Cells(lastRow, 3).Value = totalRevenue wsCashBox.Cells(lastRow, 4).Value = totalExpenses End If End Sub السلام عليكم ورحمة الله وبركاتة رجاء المسااعدة عند ترحيل المبلغ سواء كان ايرادات او مصروفات يتم تكرار التاريخ وعدم جمع المبلغ فى التاريخ المحدد فى صندوق الخزينة ويتم تكرار التاريخ وتكرار المبلغ سواء ايراد او مصروفات برنامج خزينة ايرادات ومصروفات.xlsm

لم تجبني على كل حال ندع هذه الاستفسارات للخطوة القادمة تفضل : تم اعداد البرنامج لادخال الدرجات خطوات العمل على البرنامج لأول مرة على الترتيب 1- اعداد المواد وخصائصها في فورم المواد 2-ادخال بيانات الطلاب من فورم تسجيل الطلاب 3- اعداد السنة الدراسية من فورم اعداد السنة الدراسية 4- فتح فورم ادخال الدرجات والبدء بالعمل .................................................... وبما ان الفقرة 1 والفقرة 2 تم عملها فعلا لذا اقرأ جيدا خطواتك التي يجب ان تسير عليها اقول هذا الكلام حتى ابين لك ما يحدث برمجيا عند فتح المثال سيظهر لك فورم البداية اتركه مفتوحا واذهب الى الجداول وافتح جدول الدرجات Tbl_degree_Detail سوف تجده خاليا أغلقه ثم ارجع الى فورم البداية المفتوح وانقر على زر : اعداد الفصل الدراسي سوف يفتح لك فورم الاعداد : انقر على اعداد ثم اغلق الفورم ارجع الى جدول Tbl_degree_Detail وانظر الى النتيجة لقد تم رصد الطلاب وموادهم ولم يتبقى الا ادخال الدرجات اغلق الجدول ....................................... من فورم البداية انقر على زر ادخال الدرجات وابدأ العمل بعد تسجيلك للدرجات كاملة من الفصل الأول وحتى الاختبارات النهائية ارفع مثالك لننتقل للخطوة التالية وهي التعويض والرأفة ملحوظة : يوجد 4 طلاب ... ادخل درجاتهم بحيث يتوفر جميع الحالات irSchool2.rar

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

فورم ذكاء اصطناعي اضافة وبحث وحذف واغلاق لفورم اكسل الفيديو الملف فورم بحث بالاسم او رقم التليفون 10 فورم بحث واضافة وحذف بيانات بالذكاء الاصطناعي.xls

انا كده بحاول اعمل قاعدة لاضافة البيانات للفواتير الضريبية مثل بورتال الضرائب عملت التصميم والمعادلات وقف معايا نقطتين اولا انا بحاول الصب فورم لاضافة الضريبة يفتح فاضي زي البورتال وعند الضغط علي الزر لاضافة ضريبة يظهر السطر الاول وكل ما اضغط يظهر سطر جديد ثانيا معادلات حساب الضريبة ضريبة الجدول وضرائب اخري تدخل في حساب ضريبة القيمة المضافة مثل المثال المرسل في الصورة لو القيمة عندي 1000 جنية وتم اضافة قيمة مضافة هيبقي قيمة الضريبة 140 جنية طب لو ضفت بعدها ضريبة جدول مثلا 8% هيكون قيمة ضريبة الجدول 80 جنية وتتحول القيمة الاصلية لحساب الضريبة من 1000 الي 1080 لحساب ضريبة القيمة المضافة فقط ثالثا انا حاطط اتنين كمبو بوكس في الصب فورم كمبو فية مجموعة الضرائب العامة وعند الاختيار يحمل البوكس الاخر ب انواع الضرائب اللي تخص الاختيار الاول بس لما بنزل لسطر جديد تختفي القيمة اللي في السطر الاول في الكمبو الثاني مرفق صورة من البورتال للقيم ونفس الصورة من القاعده والقاعده 017 - Copy.accdb

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

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

السلام عليكم اخوتى الاعزاء محتاج كود vba لبرمجه زرار داخل يوزر فورم ( ملف رقم ١ ) يقوم بعرض يوزر فورم اخر داخل ( ملف رقم ٢ ) وهو ملف اكسيل اخر

نظام مدرسي بالاكسل يا ريت لو فى ارجو يالتعديل عليه واضافة فورم ادخال بيانات ومربع بحث ملف المدرسة كامل الفصول 2024-2023.rar

السلام عليكم اساتذة طلب مساعدة بخصوص كود عند ظهور فورم C1 اثناء الصغط على زر Antr في مكان الميلاد لكل من الزوح والزوجة والابن علما انهم مستقطبين من فورم واحد وهو C1 والصورة توضح المطلوب WIL.rar

فورم اكسل لحساب المصاريف بالذكاء الاصطناعى موقع sider صورة من الموقع للاكواد فورم لحساب المصاريف المدرسية.xlsm

عمل فورم من خلال موقع chatgptبحث واضافة وحذف وحفظ ومسح فورم بحث واضافة وحذف بيانات بالذكاء الاصطناعي.xlsm

بسم الله الرحمن الرحيم وبه نستعين السلام عليكم ورحمة الله وبركاته السادة الكرام لدى ملف اكسل وارجو منكم تحويله الى فورم ادخال البيانات و البحث بين تاريخين معيين المرفق.xlsx