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

أ.حسين العربى عسى أن يكون المطلوب test.accdb

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

هذه المعادلة =IF(COUNTIF(البيانات!$E$2:$E$500,الخلاصة!A2)>1,"ERROR",VLOOKUP(الخلاصة!A2,البيانات!$E$1:$F$1500,2,0))

أستاذنا kha9009lid .. أ.حسين العربى أعزكم الله .. ولكن لى طلب بعد إذنكم .. يعنى بالمصرى اللى سؤاله إتجاوب يفوت أى حاجة مش كله شكر شكر شكر .. مفيش دُعا ..🥰

الف الف شكر استاذي الفاضل essam rabea هذا هو المطلوب بالظبط جزاك الله خير والله افرحت قلبي ولك المثل وجعله الله في ميزان حسناتك

اهلا بك فى المنتدى-تفضل 1التسويات.xlsx

شوف المرفق Database501.accdb

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

رائع اخي @essam rabea

جرب المرفق back.rar

جرب الكود الموجود بهذا الرابط من أعمال أستاذنا الكبير ياسر خليل ابو البراء https://pastebin.com/DdEr76jc

اخوانى و احبابى أطـــــباء الاسنان وأعضــــــاء المنتدى الكــــــريم يســـــــعدنى أن اقـــــــــدم لكم برنامـــــــــج عيــادة طـــبيب اســــنان يتميز هذا البرنامج بالبســــــــــــــــاطة و ســـــــــــــهولة الاســـــتخدام و يجمع العـــــــــديد من المــــزايا الاحــــــترافية لبرنامـــــج الاكســس اتمنى ان يحوز رضاكم و مستعد لتنفيذ اى ملاحــظات لاخواننا الاطباء و فى الختـــــــام أسألكم الدعاء لى و لكل من أحببت بالمغفرة و الجنة و الى لقاء قريب مع هدية جديدة .. حتى تحبوا الاكسس البرنامج مكون من جزئين .. قم بوضعهم فى فولدر واحد ثم فك ضغط الملف الاول فقط قم بتغيير دقة الشاشة الى 768 × 1024 للحصول على رؤية ممتازة للبرنامج اخوكم/ عـــلاء الـــدين محمـــــــــــــــــد النكلاوى مصر - البحيرة - شبراخيت ت:3803009/045 موبايل : 0108455973 أخصائى تخطيط برامج بشركة مياه الشرب بالبحيرة neklawy1968@yahoo.com الجزء الاول Dr_net.part01.rar

السلام عليكم اساتذتى الكرام من مشرفين وخبراء وقائمين على هذا المنتدى العظيم أخص بالطلب استاذنا الكريم محمد طاهر من فضلك استاذ محمد طاهر لو ممكن لون خط هذه التعليمات باللون الأحمر ويكون خط عريض ليكون واضح ومبين لكل عضو لأن ما زال هناك العديد من الأعضاء يقوموا برفع مشاركات جديدة دون النظر الى خاصية البحث بالمنتدى هل هذا الموضوع تم نشره من قبل ام لا ؟ وطلب اخر لو تكرمت استاذ محمد , أنا اعلم ان من مجمل التعليمات رفع ملف كنموذج يكون موضح عليه المطلوب بكل دقة ياريت لو يتم اضافة هذا البند من التعليمات ايضا هنا فى التعليمات المختصرة الموجودة أعلى كل قسم- على ان يكون المطلوب موضح ليفهمه الجميع وليس المختص فى المجال فقط أيضا التنبيه على عدم عمل اقتباس من رد عضو معين للرد والإجابة عليه ولكم منى جزيل الشكر وشكرا على سعة صدروكم الكريم جزاكم الله جميعا كل خير وبارك الله فيكم وأحسن مثواكم جميعاً

فورم السابق والتالى والبحث واضافة البيانات فيديو 2 الفيديو

اخي واستاذي عصام دعوة طيبة من زميل ساعدته تسوى الدنيا ومافيها بارك الله لك في صحتك واصلح لك ذريتك فَمَا أُوتِيتُم مِّن شَيْءٍ فَمَتَاعُ الْحَيَاةِ الدُّنْيَا ۖ وَمَا عِندَ اللَّهِ خَيْرٌ وَأَبْقَىٰ لِلَّذِينَ آمَنُوا وَعَلَىٰ رَبِّهِمْ يَتَوَكَّلُونَ لَٰكِنِ الَّذِينَ اتَّقَوْا رَبَّهُمْ لَهُمْ جَنَّاتٌ تَجْرِي مِن تَحْتِهَا الْأَنْهَارُ خَالِدِينَ فِيهَا نُزُلًا مِّنْ عِندِ اللَّهِ ۗ وَمَا عِندَ اللَّهِ خَيْرٌ لِّلْأَبْرَارِ اسأل الله ان يجعلنا من الابرار وممن تقضى حوائج الناس على ايدينا فذلك فضل من الله

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

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

استاذ @عبد اللطيف سلوم السلام عليكم ورحمه الله وبركاته لما جعلتهم فى جدولين منفصلين؟ اجعله جدول واحد وبدل حقل Notes اجعله حقل نوع العمليه وبه دائن او مدين او حتى بجدول منفصل كود 1 = دائن كود 2 يساوى مدين ثم هتحتاج حقل ترقيم بعيد عن الترقيم التلقائى لضبط العمليه ثم هيتم التجميع والطرح ع اساس كود النوع دائن و مدين وكود العميل هذه مساهمه منى لعلها تكون بفائده والله اعلى واعلم وان شاء الله تجد اقتراحات وحلول اخرى من اساتذتنا الافاضل ذوى الخبره بالمجال تقبل تحياتى وبالتوفيق ان شاء الله

اخى ابو عمار لست باستاذ مجرد طالب علم مبتدئ مثلك بارك الله فيك اتفضل هل هذا التقرير ما تريد ؟ جزاه خيرا الاستاذ @kha9009lid على هذا العمل الجميل جعله الله فى ميزان حسناته تقبل تحياتى وبالتوفيق ان شاء الله هههههه نسيت ارفاق الملف Database481_up.accdb

حسب ما فهمت : تريد جمع العدد الموجود في حقل HO لكل دورة الا وهي الحقل المسمى: sub اذن نستخدم هكذا معيار: =DSum("[ho]","[searchfinal2]","sub='" & [sub] & "'") report.accdb

شكرا استاذنا الكريم جزاك الله خير

جرب هذا الملف My project_new.xlsm

العفو في خدمتكم اخي

الكووود شغال ميه ميه شكرا لك والى الاخ علي

استاذي واخي @حسين العربى الحل مقدم من استاذنا الكريم @essam rabea انا فقط قدمت الشكر لاستاذنا عصام على جهوده

الشكر لله اخي @mostafa_27

محاولة الاسماء المكررة ثنائيا وثلاثيا ورباعيا Database481.accdb

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

فيه حلول لا تقلق الاصدار المعدل بالامس هل يعمل بدون مشاكل ? هنــا اذا كان يعمل فقط ادخل عرض التصميم واعمل زر امر وضع الكود التالي On Error Resume Next DoCmd.GoToRecord , , acNewRec Me.u_s = Null Me.sh = Null وان لم يعمل قم بانشاء قاعدة جديدة فارعة واستورد كافة كائنات القاعدة القديمة جرب الحل الاول اولا علما بان الكود المقدم من الاستاذ على يعمل جيد بالتوفيق

بارك الله فيك واحسن الله اليك ووسع الله فى رزقك

جزاك الله كل خير وزادك الله من فضله

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

جرب كده نسخة_من_تطبيق_فرق_السعر_هيئة.xlsm

بعد اذن الاخوه ارجو ان يكون هذا المطلوب عدد الموظفين الذين يملكون هواتف.xlsx

بارك الله فيك عمل اكثر من رائع

تفضل لأنك لم تطبق المعادلة بطريقة صحيحة تقاطع العمود مع السطر OK.xlsx

أحسنت استاذ أنس عمل رائع جعله الله فى ميزان حسناتك وبالتوفيق ان شاء الله

ادارة ستوديو.xlsm برنامج سهل وبسيط الدخول 123 اعداد عوض كارو

هذه ليست مشكلة وانما بسبب كون الحقل Permit No ترقيم تلقائي على العموم استبدلنا الترقيم التلقائي بترقيم عن طريق الكود [Permit #] = Nz(DMax("[Permit No]", "Permit to Work"), 0) + 1 جرب المرفق الان HCT Permit To Work System.mdb

تم التعديل قليلاً على الملف بحيث انك تستطيعين اختيار بداية البيانات من خلال Combobox و نزولاً 16 صف الصفحة Namouthaz VIVA_Mia_new.xlsm

لا اعلم هل فهمت المطلوب ام لا جرب المرفق الاسماء تسجل في tbl2 وفي النموذج الرئيسي عند اختيار الموظف اذا كان مسجل في جدول2 يسمح لك بالاستمرار واذا لم يكن يعطيك رسالة HCT Permit To Work System.mdb

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

أخى محمد صلاح1 على عجالة جرب ورد Test.zip

السلام عليكم هذا هو الرقم السرى 1278 الى الاستاذ طاهر / ارجو الرد بعد تجربة الباسوورد

تم التعديل كما تريد Option Explicit Sub get_data() Application.ScreenUpdating = False Dim dic As Object Set dic = CreateObject("scripting.dictionary") Dim dic_key Dim ro# Dim i%: i = 2 Dim x_titel#: x_titel = 2 Dim find_ro# Dim lrDem# lrDem = Demandes.Cells(Rows.Count, 1).End(3).Row Dim my_rg As Range Set my_rg = Demandes.Range("A1:F" & lrDem) On Error Resume Next Demandes.ShowAllData On Error GoTo 0 Facteur.Range("H:M").Clear lrDem = Demandes.Cells(Rows.Count, 1).End(3).Row Facteur.Range("Q1") = "رقم الفاتورة" With dic Do Until Demandes.Cells(i, 1) = vbNullString If Not .exists(Demandes.Cells(i, 1).Value) Then .Add Demandes.Cells(i, 1).Value, "" End If i = i + 1 Loop For Each dic_key In dic.keys Facteur.Range("H" & x_titel).Resize(8, 2) = _ Range("Header_Rg").Value Range("H" & x_titel + 2).NumberFormat = "0" Facteur.Range("Q2") = dic_key my_rg.AdvancedFilter 1, Facteur.Range("Q1:Q2") Demandes.Range("c1:f" & lrDem). _ SpecialCells(xlCellTypeVisible).Copy _ Facteur.Range("H" & x_titel + 9) Application.CutCopyMode = False Demandes.ShowAllData find_ro = Demandes.Range("A1:A" & lrDem).Find(dic_key).Row With Range("H" & x_titel + 6) .Value = Demandes.Cells(find_ro, 2) .NumberFormat = "d/m/YYY" .Offset(-2, 1) = dic_key End With ro = Facteur.Cells(Rows.Count, "H").End(3).Row Range("K" & ro + 2) = _ Evaluate("SUM(K" & x_titel + 10 & ":K" & ro & ")") Range("H" & ro + 2).Resize(3) = _ Range("RESULT").Value Range("K" & ro + 3) = _ Range("K" & ro + 2) * [D2] / 100 Range("K" & ro + 4) = _ Range("K" & ro + 2) + Range("K" & ro + 3) x_titel = ro + 8 Next dic_key .RemoveAll End With Set my_rg = Nothing Range("Q1:Q2").Clear Columns("H:M").InsertIndent 1 Application.ScreenUpdating = True End Sub '========================= Sub clear_data() Facteur.Range("H:K").Clear End Sub '========================= Sub Print_areas() Application.ScreenUpdating = False Dim My_Area As Range Dim last_row# Dim Serach_RG As Range Dim find_what$: find_what = "الإجمالي شامل الضريبة" Dim My_row#, Fix_row# Facteur.ResetAllPageBreaks last_row = Facteur.Cells(Rows.Count, "H").End(3).Row If last_row = 1 Then GoTo Leave_Me_Alone Set My_Area = Range("H1:K" & last_row) Facteur.PageSetup.PrintArea = My_Area.Address Set Serach_RG = My_Area.Find(find_what, after:=Range("h2")) If Not Serach_RG Is Nothing Then My_row = Serach_RG.Row: Fix_row = My_row Do Facteur.HPageBreaks.Add Before:=Range("H" & My_row + 3) Set Serach_RG = My_Area.FindNext(Serach_RG) My_row = Serach_RG.Row If My_row = Fix_row Then Exit Do Loop End If Leave_Me_Alone: Application.ScreenUpdating = True End Sub '''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Worksheet_Activate() ' Dim t%, h%, w%, l% ' h = 40: w = 140: l = 758 ' With Me.Shapes.Range(Array("Button 1")) ' .Height = h: .Width = w ' .Left = l: .Top = 10 ' End With ' With Me.Shapes.Range(Array("Button 2")) ' .Height = h: .Width = w ' .Left = l: .Top = 60 ' End With ' With Me.Shapes.Range(Array("Button 3")) ' .Height = h: .Width = w ' .Left = l: .Top = 110 ' End With ' End Sub ' '''''''''''''''''''''''''''''''''''''''''''''''' الملف مرفق Tasmim Fatura_with Printing_Special.xlsm

السلام عليكم ورحمة الله تم عمل المطلوب بالمعادلات (معادلات بسيطة ومعادلات صفيف)... بن علية حاجي ترحيل الحراس.xlsm

أخي أحمد هناك دالة في الاكسل لهذا الغرض ولا لزوم لل Vlookup (Rept(text,number_times تكفي هذا المعادلة =REPT("*",A2)

اتفضل اخى الكريم الملف الترحيل من الاكسيل الى الورد.xlsm

من لا يشكر الناس لا يشكر الله الف الف شكر اخوي nawafabufars الف الف شكر اخوي ali mohamed ali اجبتم فاجتم جزاكم الله كل خير

لك ما تريد percent _simple.xlsx