كل الانشطه

السلام عليكم ورحمه الله وبركاته تفضل لعله طلبك فقط النطاق المسمي Data تم تمديده لحل مشكلتك ‏‏‏‏جديد 1.xlsm

وعليكم السلام ورحمه الله وبركاته تفضل اخى Private Sub TextBox2_Change() Application.OnTime Now() + TimeValue("00:00:02"), "ورقة1.test" End Sub Sub test() Dim Wb As Workbook, WbName As String, xWb As Workbook Dim ws As Worksheet, sh As Worksheet Dim X, M, N Set ws = ThisWorkbook.Worksheets("ورقة1") If TextBox2 = "" Then AutoFilterMode = False Else WbName = "2024.xlsm" WbPath = ThisWorkbook.Path & "\" & WbName For Each Wb In Workbooks If Wb.Name = WbName Then Exit For Next On Error Resume Next Set Wb = Application.Workbooks.Item(WbName) On Error GoTo 0 If Not Wb Is Nothing Then Set sh = Wb.Worksheets("الأرصدة") ws.Range("H1").AutoFilter , field:=8, Criteria1:=TextBox2.Text 1 M = Application.Match(CDbl(Date), sh.Rows(2), 0) If IsError(M) Then ' insert column to date if not found N = Application.Match("*", sh.Rows(2), 0) sh.Columns(N).Insert sh.Cells(2, N).Value = Date GoTo 1 End If X = Application.Match(Val(TextBox2), sh.Columns(M + 2), 0) If Not IsError(X) Then With sh.Cells(X, M) .Value = ws.Cells(1, "I").Value .Interior.ColorIndex = 30 .Font.ColorIndex = 20 End With End If End If Wb.Save ' Save sheet after set data End If End Sub

السلام عليكم ورحمة الله وبركاته في مايكروسوفت اكسس لدي جدول اسمه "المواقف" يحتوي على حقل اسمه[رقم الموقف ] نوع ترقيم تلقائي وهو مفتاح اساسي وحقل [ تاريخ الموقف ]وحقل [اليوم ] يرتبط بهذا الجدول اربعة جداول بعلاقة ون تو ميني هي ١-جدول "اجتماعات العاملين "وهذا الجدول مرتبط به جدول اسمه "حضور الاجتماعات " وانشأت منهما استعلام حتى يقوم بحساب عدد المشاركين في كل اجتماع ٢-وجدول "الدورات" وهذا مرتبط به جدول اسمه "المشاركين في الدورات " وانشأت منهما استعلام يحسب عدد المشاركين في كل دورة ٣- وجدول "النزول الميداني ٤-وجدول" المادة التي تم توزيعها" اريد ان يكون هناك نموذج بحث بين تاريخين لطباعة تقرير يومي واسبوعي وشهري وسنوي عندما ادخل تاريخ محدد باليوم مثلا يقوم بعرض التقرير وفي اعمال ذلك اليوم فقط لاجتماعات ذلك اليوم ودورات ذلك اليوم ونزول ذلك اليوم و وتوزيع مادة ذلك اليوم وكذلك عندما اقوم بادخال تاريخ اليوم الى بعد سبعة يقوم بعرض ماتم في تلك السبعة الايام وهكذا بالنسبة للشهري والسنوي

السلام عليكم ورحمة الله وبركاته في مايكروسوفت اكسس لدي جدول اسمه "المواقف" يحتوي على حقل اسمه[رقم الموقف ] نوع ترقيم تلقائي وهو مفتاح اساسي وحقل [ تاريخ الموقف ]وحقل [اليوم ] يرتبط بهذا الجدول اربعة جداول بعلاقة ون تو ميني هي ١-جدول "اجتماعات العاملين "وهذا الجدول مرتبط به جدول اسمه "حضور الاجتماعات " وانشأت منهما استعلام حتى يقوم بحساب عدد المشاركين في كل اجتماع ٢-وجدول "الدورات" وهذا مرتبط به جدول اسمه "المشاركين في الدورات " وانشأت منهما استعلام يحسب عدد المشاركين في كل دورة ٣- وجدول "النزول الميداني ٤-وجدول" المادة التي تم توزيعها" اريد ان يكون هناك نموذج بحث بين تاريخين لطباعة تقرير يومي واسبوعي وشهري وسنوي عندما ادخل تاريخ محدد باليوم مثلا يقوم بعرض التقرير وفي اعمال ذلك اليوم فقط لاجتماعات ذلك اليوم ودورات ذلك اليوم ونزول ذلك اليوم و وتوزيع مادة ذلك اليوم وكذلك عندما اقوم بادخال تاريخ اليوم الى بعد سبعة يقوم بعرض ماتم في تلك السبعة الايام وهكذا بالنسبة للشهري والسنوي

السلام عليكم ورحمة الله وبركاته في مايكروسوفت اكسس لدي جدول اسمه "المواقف" يحتوي على حقل اسمه[رقم الموقف ] نوع ترقيم تلقائي وهو مفتاح اساسي وحقل [ تاريخ الموقف ]وحقل [اليوم ] يرتبط بهذا الجدول اربعة جداول بعلاقة ون تو ميني هي ١-جدول "اجتماعات العاملين "وهذا الجدول مرتبط به جدول اسمه "حضور الاجتماعات " وانشأت منهما استعلام حتى يقوم بحساب عدد المشاركين في كل اجتماع ٢-وجدول "الدورات" وهذا مرتبط به جدول اسمه "المشاركين في الدورات " وانشأت منهما استعلام يحسب عدد المشاركين في كل دورة ٣- وجدول "النزول الميداني ٤-وجدول" المادة التي تم توزيعها" اريد ان يكون هناك نموذج بحث بين تاريخين لطباعة تقرير يومي واسبوعي وشهري وسنوي عندما ادخل تاريخ محدد باليوم مثلا يقوم بعرض التقرير وفي اعمال ذلك اليوم فقط لاجتماعات ذلك اليوم ودورات ذلك اليوم ونزول ذلك اليوم و وتوزيع مادة ذلك اليوم وكذلك عندما اقوم بادخال تاريخ اليوم الى بعد سبعة يقوم بعرض ماتم في تلك السبعة الايام وهكذا بالنسبة للشهري والسنوي

Try Sub Test() Dim ws As Worksheet, m As Long, i As Long, ii As Long Application.ScreenUpdating = False Set ws = ActiveSheet: m = 2 With ws .Columns("K:M").Clear .Columns("M").ColumnWidth = 11 With .Range("K1").Resize(, 3) .Value = Array("Group", "Number", "Work Date") .Interior.Color = RGB(146, 205, 220) .HorizontalAlignment = xlCenter: .VerticalAlignment = xlCenter End With For i = 2 To 6 If .Cells(i, 2).Value < .Cells(i, 3).Value And IsNumeric(.Cells(i, 2).Value) And IsNumeric(.Cells(i, 2).Value) Then For ii = .Cells(i, 2).Value To .Cells(i, 3).Value .Cells(m, "K").Resize(, 3).Value = Array(.Cells(i, 1).Value, ii, .Cells(i, 4).Value) m = m + 1 Next ii End If Next i End With Application.ScreenUpdating = True End Sub

تفضل أخي الكريم @أبو محمد سعيد ، هذا السطر :- Like "*" & [Forms]![Form_Name]![Text_Box] & "*" وهذا مثال تجريبي للفكرة Search By Like.accdb

السلام عليكم ورحمة الله وبركاته أريد استخدام الدالة like عن طريق الاستعلام للبحث عن طريق أي جزء من الحقل

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

عند البحث عن اسم حساب جديد يكون رقمه بعد ال 166 بشيت اسماء الحسابات و العملات بعد يظر هذا الخطا اريد المساعدة منكم للحل *للعلم انا اخذت هذا العمل من هذا الموقع وعدلت عليه بما يناسب عملي* ‏‏‏‏جديد 1 - نسخة - نسخة.rar

للأسف ليس لي تجربة حقيقية مع SQL Server لأخدمك بها

وعليكم السلام ورحمة الله وبركاته أخي الكريم ، بالنسبة للأوفيس 365 فأنا لم أجربه للأسف كثيراً ومعتمد على 2016 لاستقراره وعدم مواجهتي لأي مشاكل عند استخدامه . أعتقد هي المشكلة في أوفيس 365 , وعل أحد الأساتذة والأخوة تجربة الكود على إصدار 365 لمن يملكه ! وإفادتنا بالنتيجة

استكمالاً لما سبق في النموذج Home 👆 :- نستكمل العمل لضبط الوقت المتبقي ، و اليوم سنضيف وقت صلاة العشاء وما يتبعه كما يلي :- ✨ في الدالة Salawat داخل النموذج Home ، سنضيف السطرين المسؤولين عن إدراج وقت صلاة العشاء و وقت الإقامة . Me.isha = Format(GetTimes(Me.longitude, Me.latitude, Me.timezone, "Eshaa", Me.tx, dt, mydate), "hh:mm AM/PM") Me.Ish_Eq = Format(DateAdd("n", 10, CDate(Me.isha)), "hh:mm AM/PM") حيث سيكون وقت الإقامة 10 دقائق بعد نهاية الأذان . ✨ في حدث Form_Timer للنموذج Home سنقوم بحجز المتغير [ishaTime As Date] من نوع Date لصلاة العشاء وقيمته [ishaTime = CDate(Me.isha)] ، والحدث الذي سيقوم باحتساب الوقت المتبقي لموعد صلاة العشاء ؛ ليصبح الكود للحدث كما يلي :- Private Sub Form_Timer() On Error Resume Next Dim tfajr As Date, tzohr As Date, tasr As Date, tmagrib As Date, tisha As Date Dim dt As Integer Dim currentTime As Date, nextPrayerTime As Date, timeLeft As Date Dim hoursLeft As Integer, minutesLeft As Integer, secondsLeft As Integer Dim fajrTime As Date, zohrTime As Date, Country_Name As String, ishaTime As Date If Me.daylight = True Then dt = 1 Else dt = 0 End If tfajr = GetTimes(Me.longitude, Me.latitude, Me.timezone, "fajr", Me.tx, dt, Date) currentTime = Time fajrTime = CDate(Me.fajr) zohrTime = CDate(Me.zohr) ishaTime = CDate(Me.isha) Country_Name = DLookup("[city_name]", "City", "ID=" & [city_name]) If currentTime < fajrTime Then Txt_Pry_Name.Value = "الفجر" nextPrayerTime = fajrTime ElseIf currentTime < zohrTime Then Txt_Pry_Name.Value = "الظهر" nextPrayerTime = zohrTime ElseIf currentTime < ishaTime Then Txt_Pry_Name.Value = "العشاء" nextPrayerTime = ishaTime Else Txt_Pry_Name.Value = "الفجر" nextPrayerTime = DateAdd("d", 1, fajrTime) End If If currentTime < nextPrayerTime Then timeLeft = nextPrayerTime - currentTime Else timeLeft = DateAdd("h", 24, nextPrayerTime) - currentTime End If hoursLeft = Hour(timeLeft) minutesLeft = Minute(timeLeft) secondsLeft = Second(timeLeft) If Me.Txt_Time_Count = "00:00" Then Me.Txt_Time_Count = "00:00:59" Me.Txt_Time_Count = Format(hoursLeft, "00") & ":" & Format(minutesLeft, "00") & ":" & Format(secondsLeft, "00") Else Me.Txt_Time_Count = Format(hoursLeft, "00") & ":" & Format(minutesLeft, "00") End If Me.Caption = Country_Name & " " & "بقي لصلاة " & Txt_Pry_Name & " " & Txt_Time_Count & " تقريباً" & " ، في مدينة " If Time() = tfajr Then MsgBox "حان الآن موعد أذان الفجر", , "" End If End Sub Salawat.accdb يتبع ... 👈

السلام عليكم ورحمه الله وبركاته بارك الله فيك استاذي العزيز ... ولكن عندي استفسار لماذا هذا الكود يشتغل على اوفيس 2016 32 بت تمام ، ولم يشتغل على اوفيس 365 64 بت وبدون اي رسائل خطأ فقط عدم استجابة مع الشكر استاذي الفاضل ... علما ايضا ان كثير من الاكواد لم تشتغل على اوفيس 2021 32 بت ايضا ولا يوجد اي رسائل خطأ وانما لا يستجيب الكود اريد ان اعرف اين تكمن المشكلة ؟؟؟؟ مع الشكر

للرفع مرفق لكم نموذج للتعديل backupand restor.accdb

السلام عليكم هناك مشكلة

توكلنا على الله

جرب هذا التعديل أخي الكريم ، بعد تجربته عندي طبعاً أعتقد أنه مطلبك قاعده بيانات للتجارب - Copy - Copy.mdb

دي تحط تحتها 600 خط أحمر . هو مشروع جميل وفكرته حلوة بالنسبة لي ، ولكنه سيستغرق وقت وجهد طويل فعلاً ، لذا انصحك بانشاء الجداول بدايةً وباتباع اسلوب محدد وهو :- لا تستخدم أسماء عربية في مسميات الحقول . لا تستعمل المسافات بين الأسماء . لا تستعمل اسماء حقول محجوزة للبرنامج مثل ( Name,Date,To,From ..... إلخ ) لا تستعمل رموز ( #، @،$،& .... إلخ ) في مسميات الحقول . لا تستعمل الأرقام في أسماء حقول الجداول أو تبدأ بها . دي بعض الأساسيات بالنسبة لي اللي لازم أتبعها في تأسيس الجداول ، ثم اعتماد الحقل الرئيسي أو اللي لازم اربط فيه الأمور ببعضها ، وهنا هيكون رقم الكتاب المفتاح الفريد أو الغير مكرر . ابتدي وارفع ملفك ونتابع مع بعض لأنه طبعاً مستحيل يكون كل اللي انت وضحته في جلسة وحدة . بالتوفيق

قاعده بيانات للتجارب - Copy - Copy.rar طيب يا جماعه .. علشان تفهمو طلبى عملت قاعده البيانات الصغيره دى للتوضيح.. زرار الطباعه التانى مش عارف ليه مش بيطبع علطول لوحده لازم اعمل اى اكشن اختار مره مثلا او الغى الاختيار ...... جرب تفتح النموزج وتطبع علطول مش حتلاقيه بيطبع.... فين المشكله بقااااااااا

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

ايه رايك في المشروع دا ؟

ي اخي foksh حقيقي مش هبخل في حاجة. والفكرة هي ١: جدول الموظفين وهو عبارة عن جميع الموظفين كل اسم وله المسمي الوظيفي له والرقم الوظيفي رقم الهاتف والايميل outlookMail. ....نموذج جدول الموظفين ٢:جدول للكتب الصادرة رقم الكتاب والموضوع والتاريخ و مطلوب الرد و تاريخ الرد . طبعا هيكون في حقل الموظف اللي عمل الكتاب واللي وقع عليه وممكن اكتر من موظف يوقع علي الكتاب قبل ما يتوقع من رئيس القسم ...نموذج للصادر وجدول للكتب الواردة رقم الكتاب والموضوع والتاريخ و مطلوب الرد و تاريخ الرد . وحقل هيكون في الموظف اللي اتحول له الكتاب عشان يرد عليه .....نموذج للوارد الفكرة النهائية وهي ..... انشاء كتاب عن طريق اكسس نربط الجداول ببعض بحيث نعمل جدول انشاء للكتب صادر ويكون فيه الحقول نفس اللي فوق ونعمل نموذج انشاء كتاب يفتح لي ملف وورد يكون فيه شعار الشركة من فوق ومن تحت وداخل الملف التاريخ والموضوع والرسالة وتنسيق التاريخ والخط وفي آخر الرسالة التوقيع واسفل التوقيع توقيع للموظفين اللي عملوا الكتاب. طبعا الرسالة بيعملها الموظف وبعدين يفتح قائمة يختار منها يبعتها للتوقيع النهائي لرئيس القسم او يبعتها لموظف اعلي منه للموافقة وبعد الموافقة يرسلها الي رئيس القسم للتوقيع. او ممكن يرسلها لمسئول اعلي طبعا بحسب الدرجات. طيب اذا رفض للتعديل او غير مهمه المسئول الكتاب ترجع تاني بالتدريج للموظفين الي اخر موظف عملها ..طبعا لو أمكن يكون فيه سجل بمتابعة الكتاب فو فين عند أي مسئول . وتروح للمدير في صندوق الوارد ويروحله اشعار ان فيه كتاب وصله واذا وافق المدير علي المذكرة يتم التوقيع عليها الكتروني( توقيع المدير). وتروح اشعار للموظفين اللي عملوها ان المدير وقع عليها. ويروح اشعار للسكرتارية في صندوق الوارد ان في كتاب اتوقع والسكرتير ياخده من الوارد و ويكون فيه زر إرسال ايميل الي الجهة الصادر لها اللي اختارة من قائمة عبر Outlook بالمذكرة او الكتاب النهائي ويكون ملف pdf عارف انه مشروع كبير وضخم..

نعم أخي @Zooro1 . حتى تكون الفكرة واضحة

مشكور اخي وحبيبي Foksh وجزاكم الله خيرا وزادكم علما علي المجهود المقدر والنتيجة الجميلة التي ظهر بها التقرير وهو ما كنت اريده فعلا🌷