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

السلام عليكم ورحمة الله وبركاته كثيرا منا يحتاج الى عرض الصور فى مجلد محدد عن طريق الاكسس بحث عن طرق عدة وكل الطرق كانت مثل الصورة التالية والتى كانت لا تروقنى فقلت ارخم عليكم واعمل انا طريقة تانية لانى دى احد عيوبها نى لو عندى الف صورة هفضل اعمل اسكرول لحد ما اصل الى الف سجل وهو عدد المسارات الخاصة بالصور فقلت اعمل طريقة خاصة بينا احنا اوفيسنا مش عارف موجودة ولا لا اهو بالبركة وزيادة الخير خيرين زى طريقة عرض الصور فى الويندوز الية العمل كلها تكمن فى مصدر عنصر تحكم كل كائن من كائنات الصور -------------- بعد الضغط على زر تحديد المجلد ثم الضغط عزر الذهاب الى المجلد سيقوم البرنامج تلقائيا بجلب جميع مسارات الصور داخل البرنامج مع اعطاء كل مسار رقم وعن طريق هذا الرقم ساقوم باستدعاء كل صورة حيث عن المعادلة ( رقم السجل * 8 - 7 ) = 1 ( رقم السجل * 8 - 6 ) = 2 ( رقم السجل * 8 - 5 ) = 3 ةهكذا حيث رقم السجل هو الترقيم التلقائى لكل سجل الذى يعطيه البرنامج تلقائيا عند جلب المسارات فيديو للشرح المرفق Gallary.rar

السلام عليكم برنامج مجاني يختص بالبنوك من حيث الايداع والسحب اتمنى ان ينال اعجابكم من تصميم الاخ المبدع المهندس/ هاني مجدي - جمهورية مصر العربية البنوك.accdb

احسنت استاذ سليم كود ممتاز ولإثراء الموضوع هذا حل اخر بالمعادلات جمع قائمة بعدد (10) صفوف.xlsx

جرب هذا الملف من ملفاتي القديمة Smart_Printing.xlsm

انا جبت لك الحل من اول مرة بس انت ماوضحت انه عند البحث المتقدم

اتفضل On Error Resume Next Forms!forms_serh_fatora2!serh = DLookup("[id_sand]", "tabol_fatora", "[id_sand]=" & Me.id_sand) DoCmd.Close acForm, "forms_serh_fatora1", acSaveNo Me.Refresh DoCmd.Requery If Forms!forms_serh_fatora2!xxx2 = "saved" Then Forms!forms_serh_fatora2!cansel_1.Enabled = True Forms!forms_serh_fatora2!fary2.Enabled = True Else Forms!forms_serh_fatora2!cansel_1.Enabled = False Forms!forms_serh_fatora2!fary2.Enabled = False End If

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

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

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

اجعل Label5 مربع نص ثم جرب هذا الكود If Me.Label5 > 0 Then MSComm1.PortOpen = False Else MSComm1.PortOpen = True End If

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

اسف انا فى العمل الان اصل الى البيت باذن الله واكتب لك الكود عمتا اكتبه لك وان وجدت مشاكل ارسل بها هنا Dim FirstDayInWeek, LastDayInWeek As Variant Dim dtmDate As Date dtmDate = Me.strdate FirstDayInWeek = dtmDate - Weekday(dtmDate, vbUseSystem) + 1 Me.weekfir = FirstDayInWeek LastDayInWeek = dtmDate - Weekday(dtmDate, vbUseSystem) + 7 Me.weekend = LastDayInWeek مربع نص بحقل التاريخ Me.strdate Me.weekfir مربع نص بداية الاسبوع مربع نص نهاية الاسبوع Me.weekend يعمل على الميلادى فقط انت قم بتحويل الميلادى الى هجرى اعتزر منك انا فى العمل عند الذهاب الى البيت ساوافيك بالمزيد ان شاء الله

احسنت اخي برنامج جميل نتمنى لك الموفقية

لي عودة وباذن الله وحسب وقتي وظروفي

السلام عليكم ورحمة الله تم عمل كود بسيط بمعية بعض المعادلات ونطاقات بالتسمية، أرجو أن يكون تقريبا للحل... بن علية حاجي إجازات.xlsm

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

هل تقصد فتحها؟

وعليكم السلام -تفضل هيكون بهذه المعادلة =COUNTA($D$6:$D$20) جمع الاسماء.xlsx

السلام عليكم ورحمة الله الملف بعد اضافة الاكواد شيت درجات.xlsm

شكرا جدا جزاك الله خيرا

لك هذا الكود Option Explicit Sub find_abscent() Application.ScreenUpdating = False Dim Sh1 As Worksheet: Set Sh1 = Sheets("الشيت") Dim Sh2 As Worksheet: Set Sh2 = Sheets("abscent") Dim my_rg As Range: Set my_rg = Sh1.Range("c5").CurrentRegion Sh2.Range("TETE_RG").ClearContents Dim i%, k%: k = 1 Dim m%: m = 2 Dim arr(1 To 9) For i = 2 To 18 Step 2 arr(k) = Sh2.Cells(3, i) k = k + 1 Next k = 3 For i = LBound(arr) To UBound(arr) my_rg.AutoFilter k, "غ" k = k + 1 my_rg.Columns(1).SpecialCells(12).Copy _ Sh2.Cells(4, m) m = m + 1 my_rg.Columns(2).SpecialCells(12).Copy _ Sh2.Cells(4, m) m = m + 1 my_rg.AutoFilter Next Erase arr: Set my_rg = Nothing Application.ScreenUpdating = True End Sub الملف مرفق Abscet_Salim.xlsm

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

أولاً تعديل السنبة المئوية لا يسبب أي قلل لأن النسبة مؤخوذة من الدرجات والتقدير مؤخوذ من الدرجات ثانيًا لا داعي لعمل دمج مراسلات فالإكسيل يقوم ذلك ثالثًا إليك الملف بعد التعديل ترتيب الطلاب _salim (3)1111.xlsm

اتفضل DoCmd.Requery If Len(Me.costmor_no & "") = 0 Then MsgBox "هذه الفاتوره غير مسجلة" Undo Exit Sub End If If Me.xxx2 = "saved" Then Me.cansel_1.Enabled = True Me.fary2.Form!نص18.Enabled = True Me.fary2.Form!نص14.Enabled = True Me.fary2.Form!Qote_item.Enabled = True Else Me.cansel_1.Enabled = False Me.fary2.Form!نص18.Enabled = False Me.fary2.Form!نص14.Enabled = False Me.fary2.Form!Qote_item.Enabled = False End If

استاذي مصطفى المعادلة (قي العامود Y) يحب ان تمتد الى حوالي 2000 صف(عدد الايام في السنوات من 2016 الى 2020) اي $Y$2:$Y$2500 تقريباً و كذلك الى قي العامود ($V$2:$V$2500)

جرب هذا الماكرو Option Explicit Sub tarnsfer_daya() Dim Rg1 As Range: Set Rg1 = DATA.Range("a5").CurrentRegion Dim last_ro%: last_ro = Rg1.Rows.Count Dim last_col%: last_col = Rg1.Columns.Count Dim lr%: lr = ABSCENT.Cells(Rows.Count, 1).End(3).Row ABSCENT.Range("B7:S" & lr).ClearContents Dim i%, K%, St$, mtch% Dim m%: m = 7 For i = 7 To last_ro + 4 For K = 4 To last_col - 7 If DATA.Cells(i, K) = "غ" Then St = DATA.Cells(5, K) On Error Resume Next mtch = Application.Match(St, ABSCENT.Rows(5), 0) If Err.Number <> 0 Then On Error GoTo 0 GoTo 1 End If ABSCENT.Cells(m, mtch) = DATA.Cells(i, "B") ABSCENT.Cells(m, mtch + 1) = DATA.Cells(i, "C") End If 1: Next m = m + 1 Next End Sub الملف مرفق Salim_Abscent.xlsm

تفضل جلب البيانات بثلاث شروط2.rar

ممنون منك استاذي الفاضل ونبينا (ص) قال ( ما خاب من استشار ) شكر ممزوج بآيات العرفان

السلام عليكم أصبح الكود يقرأ 3 أرقام وراء الفاصلة إليكم الملف المرفق دينار كويتي.rar

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